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Percom's DOUBLERII tolerates wide variations in media, drives 

GARLAND. TEXAS — May 22. W81 — 
Harold Mauch. president uf Percum Data 
t'ompany. announced here today that an itn- 
proved version ot the Company's innovative 
DOUBLER^' adapter, a double-density piuy-in 
module for TRS-80" Model I computers, is 
now available. 

Retletttng design refinements based on both 
thet)rctical analyses and field testing, the 
nOUBLER IL". so named, ponnits even great- 
er tolerance in variations amons; media and 
drives than the previt)us desiun. 

Like the oriRinal IXX'BLER, the DOU- 
BLER II pliigs mto the drive controller l(" 
stxrket of a TRS-80 Model I Expansion Inter- 
face and permits a user to run either snijile- or 
double -dervsity diskettes on a Mtxlcl 1. 

With a IX^L'BLER II installed, over four 
times more lormatted data — as much as 364 
Kbytes — can be stored on one side of a five- 
inch diskette than can be sKired usin^ a stan- 
dard Tandv MixJel I drive system. 

Moreover, a LX_"iUBLER H equips a Model I 
with the hardware required to run Model III 
diskettes. 

(Ed. Note: See "OS-SO": Bridging the TRS- 
80' software compatibility gap" elsewhere on 
this page.) 

The critical clock-data separation circuitry* 
of the rXDlJBLER II is a proprietary design 
called a ROM-programmed digital phase-kx'k 
ItKtp data separator. 

According to Mauch, this design is more 
tolerant of differences from diskette to diskette 
and drive to drive, and also provides immunity 
to performance degradation caased by circuit 
component aging. 



Mauch said "A IX)UBLER II will operate 
just as reliably two years after it is installed as it 
will two days after installation." 

The digital phase-lock lix>p also eliminates 
the need for trimmer adjustments typical ot 
analiig phase-l(K:k kxtp circuits. 

"You plug in a Percom DOUBLER II and 
then forget it." he said. 

The DOLIBLER II also features a refined 
Write Precompensarion circuit that more 
effectively minimizes the phenomena of bit- 
and peak-shifting, a reliability-impairing char- 
acteristic of magnetic data recording. 

The DOUBLER 11, which is tully st.ftware 
compatibk- with the previous tX^UBLER. is 
supplied with DRI-nOS". a TRSDOS'- 
compatible disk operating svstyn. 

Tlie DOUBLER I! sells for SZ>$S, mdud- 
ing the DBLDOS J'^kette^ ^'^j^ll.V! 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



GARLAND. TEXAS — The Percom 
SEPARATOR" does verv well for the Radio 
Shack TRS-80* Mi.>del I computer what the 
Tandv disk controller dt>es (xtorly at best: reii- 
ahly separates clock and data signals during 
disk-read operatit)ns. 

Unreliable data-clock separation causes for- 
mat verification failures and repeated read 
retries. 

CRC ERROR -TRACK LOCKED OUT 

The problem is most severe on high-number 
(high -density) inner file tracks. 

As reported earlier, the clock-data separa- 
tion problem was traced by Percom to misap- 
plication of the internal separaror ot the 1771 
drive controller K^ used in the Mixlel I. 

The Percom Separator substitutes a fiigft- 
resuluiiun digital data separator circuit, one 
which operates at 16 megaliert;, for the low- 
restilution onc-megahert: circuit of the Tandy 
design. 

Separator circuits that operate at lower 
frequencies — for example, two- or four- 



megaherti — were found by Percom to provide 
only marginally improved performance over 
the original Tandy circuit. 

The Percom stilution is a simple adapter that 
plugs into the drive controller ol the Expansion 
Interface (El). 

Not a kit — some vetidors supply an un- 
lestcd >cpafan>r kit of rcsistots. ICs and other 
paraphernalia that mav be installed by mod- 
i tying the computer — the Percom 
SEPARATOR is a fulK assembled, fully tested 
plug-in module. 

Installation involves merely plugging the 
SEPAR.^TOR into the Model 1 El disk con- 
troller chip socket, and plugging the controller 
chip into a socket on the SEPARATOR. 

The SEPARATOR, which sells for only 
$29.95. may be purchased Irom authoti:ed Per- 
com retailers or ordered directly from the fac- 
tory. The facror\- toll-free order number is 
1-800-527-1592. 

Ed. nor<;; C~>pening the TRS-80 Expansion In- 
terface may void the Tandy limited *X^-day 
warranty. OrcleSOBon inquiry card 



Owners of original LX)LIBLERs may pur- 
chase a DOUBLER I! upgrade kit. without the 
disk controller IC. for $iO.OO. PrhiI of pur- 
chase of an original fXU'BLER is required, 
and each DOUBLER owner may purch.Lse only 
>.ne DOUBLER II at the $50.00 price. 

The Percom DOUBLER II is available from 
authorized Percom rerailers, or mav be ordered 
direct from tlie factory. The factory toll-free 
order number is 1-800-527-1592- 

Ed. note Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. ^^^^ ^sa on inquiry ca(d. 

All that glitters h not gold 

OS.80 Bridging the TRS-80* 

software compatibility gap 

(J(imparibilin hcrwcen TRS-SO' MiJcl I Jukcne* .inJ 
the new Mmicl III ■> iiboui »t genuine ui i |p>ld-pl.itvJ Ii;a1 
KniKctrand. 

Tnic, MiiJcl ITRSnOS' ili*l(cncsc3nhiTi?aiiin.iMiivli-l 
111. But tir^i rlii'v tnuit he corvcrii'd jnJ (v-ntimiat Int 
MikIcI III Kprrjiuiri. 

Anil you lanimi utik io j Mvnii-I 1 TRSlX^S'disln-iti:, 
Not wiiK d Model III- You tjnnor aJJ jlile. Delete j file Ot 
in any way nvKJify a Model I TRSIX)S diskette v. ith a Mudcl 
111 computer. 

Funhetinore. yi'ut timvefted TRSWS Jisketies cannot 
he ^inverted fnitli for Model 1 opcrdti>>n. 

TRSDOS IS a one-way street, .^nd [here's rxi retreating. 
A poini to consider before switchinK the company's payroll 
to yuur new Model 111, 

Real software compatibiliiv should allow the JitM. im- 
mediate intcrchanRtahihty ot Model I and MoJd III ditket 
res. No read-onlv limiiaiiom, no lonverMon 're- record in^ 
■.teps and no chance to he let! high and dry with Mt>dcl III 
divkeiTi'* ihfll cunt he r»in on a Mtxiel I, 

%'hal's (Kc answer; The answer is Petcom'i OS-8C"'' 
tamily otTRS-SCdisk operating syslettw 

OS-80 programs allow dirtct, immeJiate inicrchanKcahilnv 
,il M.Kiel I. indMi^icl III d.,kertes 

You irtn nin M.-del I Mngli,--Llen>iiv Jislcetie* on n Model 
III, iii>Ta!l Pttcom'^ rlv'sTii l>^l'Bl.ER'* .id.ipler m youi 
MiKJel 1, ,ind you L^n run double- density Model 111 diikeites 
»n J Mudel I , 

There's no convcrjion, lyo Te-recotdinc 

Slip an OS-80 diskette out of yout Model 1 and instn it 
direcrly in a Model HI. 

And vice-vcTsa. 

JuH have ihe torteci OS-80 disk oreruiini; >v^tcm — 
aS-80. OS-80n or OS-SO'lll — in c-th computer. 

Moreover, with OS-80 svftcms. you Lan i»dd, delete, and 
update files. You can read cJuJutiU' dikkeileTeiiardleiiodhe 
system of oriHln, 

I.TS.80 1% the .wiBinal Pcreom TRS-80 DOS ioi BASIC 
piogra miners. 

Even OS-80 urilities arc written in BASIC. 

OS-W IS the Percom sviiem about which a user wrote, in 
Creative Compurinf* maKa:ine. '". . the best SJO.OC you 
will ever ipend."' 

RcHotring<'nly*eeenKby(esofmerrKir^-, OS-SCdidiopei- 
aiinijsysiemsrfsidc tnnipleiely in RAM. Thetc'snoneedto 
dedic;ite a drive cxcluwytly for .i sviteiii diskeite. 

And. unlike TRSPOS, vou can work at the track lecior 
level, defining and aintrolhni; data tormats — ■ m BASIC - - 
Io create simple or complex data structures that enecute 
mtire quickly than TRSDOS tile*. 

The Percom OS-KO IX^S suppuris single -JenMiv i>per3 
tion of the Model Uompiiier - pricei*i2^.95;iheOS-SOD 
iuppoitu iknihle-denMty opemtuin of Model I iompulets 
eou.p|x\l with a DOUBLER or DOUBLER II. and. OSSC, 
III — lor the MikIcI I Hot course ^supporij both iincie- and 
double -densily operation. kW-fiCD and OS-,''0'II1 i-atli 
*c!l tor *44>»S ^429 
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world hasn't been the same since. 
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And Now Artificial 
Intelligence 
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by Harold Nelson 

There has always been someone to put 
humanity in its proper place, scientists like 
Copernicus, Darwin and Freud. Now we 
have roast mules, Animal, and SHRDLU. 
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Godel, Escher, Bach 

by Nancy Robertson 

While the debate rages over whether or not 
machines can really think, a young com- 
puter scientist suggests man has jumped 
from the golden bough to be left swinging 
from a golden braid. 
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IVIastermind— An Intelligent Program 

by Duane R. Hope 

When this author got bored with solo play of this popular game, 
he decided to create a worthy opponent Inside his computer. 

Simple Syllogisms ^^^ 

by Rick Hoffman 

If you've ever fantasized about having an intelligent computer, 
here's a way to add some smarts to your little black box. 
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374 Llstprog For stickiers on neatness. Doug Riffel 
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^0 REM APKS 



by Wayne Green 



'Before. . . computer artificial intelligerjce 

. . . ive have to come to terms 

with what we mean by 'intelligence.' ' 



Artificial Intelligence, Eh? 

That gets the same sort of snickering 
laugh from me that i provide the robot- 
oriented folk. You know how to make a 
robot, don't you? Well, you start with a 
British midget, , . 

Before we can tackle computer artifi- 
cial intelligence we have to come to some 
terms with what we mean by "intelli- 
gence." Frankly, even with our largest 
computers we are stilt far away from any- 
thing remotely describable as intelli- 
gence. As measured by psychologists, in- 
telligence has to do with the ability to 
cope with a new situation: This is the op- 
posite of the normal computer approach. 
A computer can only cope with those 
things for which it has been designed to 
cope. 

In addition to our brains being several 
orders of magnitude more complex than 
even our best computers, there may be 
other more serious obstacles in the way of 
creative problem solving by computers. 
Take the simple matter of memory— have 
you any idea how your brain stores infor- 
mation? I hope you said no, because no 
one yet has even a hint as to how, or 
where, we store all the data we pick up. 

!f you add up the amount of input to the 
brain — from the zillions of rods and cones 
in the eye, at so many frames per second; 
from the ears, nose, touch all over the 
body; temperature; kinesthesia; pressure; 
and so on-— the amount of material put in- 
to storage is incredible. We seem to forget 
most of this input, but under hypnosis we 
are able to regress and get back full per- 
ception from any time. The information is 
recorded; it is only our ability to contact 
the recordings which is a problem. 

I remember when a chap first came out 
with the announcement that it was possi- 
ble to go back in memory to the prenatal 
period. Boy, did he get the hee-haw. Today 
it is commonly accepted, complete with 
the ability of anyone not only to recall 
events but to recall voices and things that 
were said near one during that period of 
life- I've personally regressed many peo- 
ple to the prenatal period and had them 
play back their recorded memories. Often 
these memories have a surprising impact 
on present day life. 



Prenatal memories are unlike later 
ones, in that they are mere recordings of 
perceptions and can only be recalled 
under hypnosis, bypassing the conscious 
mind entirely. The prenatal conciousness 
didn't know what the sounds meant, so 
they were not interpreted and filed under 
as complex a cross Index system as are 
later memories. 

Getting back to memory, it appears we 
are able to store considerably more data 
than the brain can possibly hold. When we 
touch some parts of the brain certain 
memories are stimulated, but this may be 
because we have hit a switching circuit 
rather than a memory storage area. 
Removing large hunks of the brain does 
not always remove memory. 

It may be that we are able to use a 
holographic type of storage system, 
somehow storing large numbers of memo- 
ries or a few molecules. But I'm skeptical 
about that; in view of our ability to recall 
things throughout our lifetime with amaz- 
ing clarity, in spite of our cells being con- 
stantly replaced, I wonder if we aren't us- 
ing some outside storage medium. 

If you've read much about dying and 
death, you are aware that we have an in- 
credible body of evidence that there is 
part of our being called the spiritual which 
seemstocontinueafter death. This part of 
us seems to retain all those memories 
which were supposedly buried with the 
body. So, there might be some sort of 
limitless, timeless storage system we use. 
Physical problems with the brain — or pro- 
gramming problems — can interfere with 
our memory access. Hypnosis and other 
sneaky techniques known to psycholo- 
gists make it relatively simple to access 
even the most hidden (by programming) 
memories. 

If I'm right about this, our electronic 
computers are going to have a heck of a 
job matching us in memory capacity, even 
with laser disks. And then comes the com- 
plex system of indexing we use. Perhaps 
you have to have done psychological work 
to appreciate how perfect an instrument 
the brain is and how invariably it will res- 
pond to a request on the unconscious 
level. If I get you to relax and ask you to 
return to a time when you were eating a 
ham sandwich, your mind will— Infalli- 



bly— do just that. If I ask you to return to 
an earlier ham sandwich, it will. And I can 
take you back to the first ham sandwich 
you ever ate. It's all there, when you know 
how to access it. All cross-indexed be- 
yond the wildest hopes ot any computer 
imagined today 

That brings us back to the concept of in- 
telligence—the ability to cope with a new 
situation on the basis of past information. 
The built-in indexing system we have can 
breakdown a new situation into extremely 
small parts, all on an unconscious level, 
and develop a scheme for meeting a com- 
pletely new event. The better able the 
brain is to do this integration, the higher 
the intelligence. People with a high IQ 
have a better working computer system. 

As one of the founders of fJensa, the 
high IQ society, I've met and talked with 
hundreds upon hundreds of people with 
high IQs Yes, they have good computers, 
but that doesn't mean they appear very 
smart. Lefsdrawaparallel withoneof our 
microcomputers. If we give our computer 
a very limited amount of data with which 
to work, and then we make sure that part 
of that data is not true, and then, just to 
really screw things up, we program the 
system with a crummy program, we can 
see that the computer itself is of less 
significance than we thought. 

People are programmed, beginning 
with that prenatal time. If they are taught 
values which are not true, given data 
which is not factual, it really doesn't make 
any difference how fantastic their com- 
puter is, they will still do dumb things and 
be failures, I hope I will not make any addi- 
tional enemies, but the truth is that the 
Mensa people are no more successful 
than anyone else. 1 have found no correla- 
tion between intelligence and success. 

The Mensa people do seem to have a 
better computing system, but then, no one 
ever claimed that everyone was equal In 
any way. Some make a big deal out of be- 
ing intelligent. But then, some people use 
their height In similar ways — or anything 
else they inherited which is deemed supe- 
rior in our society, 

I suppose that if we could build a com- 
puter system big enough to store as much 
as we can with our minds which had the 
ability to cross-index as welt as we do, we 
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might then start talking in terms of ar- 
tificial Intelligence. Until then, please 
don't bug me. 

If you want to tai<e issue over the con- 
cepts of a spirit body, piease do me the 
kindness to read the literature before 
discussing it. The same goes for reincar- 
nation, communications with the dead, 
and ail that occult stuff, And don't forget 
to come to grips with parapsychology, 
mental communications, ghosts and 
other psychic phenomena. ■ 

Regaining Our Technology 

t should be no secret that Japan has 

passed us by in much of our electronic 
technology. I've written a good deal about 
that in the last few months, and the rea- 
son I think it became possible. Part has to 
do with the support the Japanese govern- 
ment gives their electronic industries, the 
tax benefits, the low cost loans, and the 
skilled training for their workers. But part 
of the problem, I'm convinced, lies in a lit- 
tle-known event that occurred almost 
twenty years ago. 

In 1963 proposals were made to change 
the ham rules. With about 85 percent of 
the hams believing they would have to 
take the difficult FCC exams over to get 
back their frequencies, spirits dropped 
and amateur radio growth stopped dead— 
for over ten years! 

If ham growth had continued as it had 
from the end of WWII, we would today 
have over two million hams and over half 
of these would be engineers and techni- 
cians, working in our electronics and com- 
munications firms. Well, we lost out on 
about one million engineers and techni- 
cians and there is no way that the loss of 
that many technical people— particularly 
hams, who are the most rabid of the lot— 
hasn't hurt our technology. 

At the same time we stopped our ham 
growth, the Japanese set up a no Morse 
Code license and their ham population 
has far surpassed ours, even though they 
have only half our population. When I visit 
the computer labs in Japan I am greeted 
as W2NSD and known through 72 Maga- 
zine. I see hams all through their labs. 

Remember, if you will, that virtually 
every major communications break- 
through has been discovered and pio- 
neered by hams. FM was pioneered by 
hams, NBFM was too, as was sideband, 
RTTY, and so on. 

The new generation of computer hack- 
ers may, to some degree, help us through 
this technician famine, but we need to do 
something on a national level to get in- 
terest in electronics, computers and so on 
into our high schools and infect our 14 
and 15 year olds with the ham and com- 
puter virus. We are way behind now, so it 



is going to take a lot of work to catch up. I 
spoke recently to the chairman of the FCC 
about this and there is a good possibility 
we may be able to get this to the White 
House for consideration. 

One college can't turn out a million 
technicians, but if we can get amateur 
radio going again— perhaps with a ver- 
sion of a no-code license — and we can get 
schools to push computers, we could 
catch up to the Japanese by 1990. We're 
not going to do it by accident, that's for 
sure.B 

Micro Mountain 

bout a year ago I got to talking with 
the presidents of two local colleges 
about my plans for introducing microcom- 
puter courses into their educational cur- 
riculum. Both liked the idea and we start- 
ed to lay the groundwork. 

Then I got a call from one of them say- 
ing he wanted to get out of the college 
business and wondered if Wayne Green 
Inc. was in any position to take on a col- 
lege. We weren't at that time, but I started 
thinking seriously about it and looking for 
someone with the background to tackle 
the job. You don't find someone with the 
ability to run a college quickly, so the col- 
lege was eventually sold to a Florida 
school. 

The college was a nice one, with 800 
acres and 15 major buildings, but it had 
drawbacks, too. It had been built in the 
days of cheap energy and was a bear to 
keep heated in the winter. The spread-out 
buildings meant extensive plowing after 
every snow storm — and so on. 

Just recently we Ijcked into a chap with 
the right background to get our school 
started. Since then I've been giving a lot of 
thought to the plans and they have been 
growing almost daily. A recent NBC White 
Paper on training workers fueled the fires 
of imagination. 

Since 80 percent of all new jobs come 
from small firms — particularly new 
firms— why not think in terms of an indus- 
trial area centered around the school? 
This would allow entrepreneurs to open 
small firms and make use of students as 
part of the teaching process, providing 
workers of outstanding intelligence and 
skills at a low cost. 

I had been thinking in terms of a school 
which would have an 18-24 month course, 
resulting in an Associate's Degree. Part of 
that time would be spent learning theory 
and the other part doing practical profes- 
sional work, either with Instant Software 
or with one of the other nearby commer- 
cial firms. Thus, each student would get 
the benefit of practical on-the-job training 
as well as theory and associated business 
courses. 



Could we build an eastern counterpart 
to Silicon Valley, calling it Micro Moun- 
tain? After talking with the people at Atari 
and Apple and smaller firms in the micro- 
computer business, there is no question 
in my mind about the need for skilled peo- 
ple; The industry needs them badly. In- 
deed, the lack of skilled workers has been 
seriously holding back growth of the field 
and the situation is only going to get 
worse. 

The courses I had In mind for the school 
would start with an understanding of 
microcomputers: how they work; how to 
fix them; how to interconnect accessories 
and get them to work. We'd explain the ar- 
chitecture of the popular chips and the 
reasons for support chips. I'll bet we could 
get some help with these courses from 
chip manufacturers— they need skilled 
people too. 

Then we would go on to printers, disk 
drives, and other accessories: how they 
work, how to fix them, and why they have 
been designed the way they were. 

Software would come next, with intro- 
ductions to all common languages and 
heavy emphasis on Basic and perhaps 
Pascal. We'd go into operating systems, 
machine and Assembly programming, 
utilities and how they simplify program- 
ming and service of systems. Then we 
would get Into teaching about the many 
applications programs— how they work, 
what to look for, how to fix them. We'd 
work with as many different word pro- 
cessors as possible, accounting pack- 
ages, and industry-specific packages. 

Man does not live by computers alone, 
so we would also teach a variety of 
business programs such as business law, 
how to buy or rent buildings, personnel 
management, how to apply for and get a 
job, finance, accounting and bookkeep- 
ing, advertising, promotion, writing, 
editing, printing, marketing, packaging, 
Z-theory, photography, and so on. We 
want students to be able to go to work for 
a firm and be qualified to proceed to upper 
management. 

The idea seems like one whose time has 
come, so we'll be developing it and look- 
ing for support from the industry. ■ 

Computers and Hamming 

Ith almost 30 percent of the active 
hams already into computers it is a 
wonder so little has been done to marry 
the two interests. One of my other publica- 
tions, 73 Magazine (for radio amateurs), is 
going to take the big step and put the two 
together with an on-the-air ham bulletin 
board system. 
The idea Is to have one channel where 

Continues on page 67 
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Metatronics(a subsidiary of Met a Technologies Corp., as of September 1. 1981) introduces a unique device allowing the connec- 
tion of as many as 8 disk drives to a TRS-80 fVIODEL I computer. Its integrated design is compatible with application software 
running under VTOS, LDOS, NEWDOS/80 (versions I & Jl), NEWDOS + and TRSDOS 2.3. Features include a U.L. -approved power 
supply, power-monitor LED. operating environment protection circuitry, high-impact metal case and gold-plated contacts. 
Complete with instructions and patch program diskette for configuring your favorite operating system. 

TRSaO 4 TRSDOS are Irademarksoflhe Radio ShacVdiuision ol Tandy Corp. EXTENT-BO is a todemark of Mf'.sli0HL(;i Coip. LDOS iB a Iradenameot Loflica I Syslems Inc. 
NEWDOS is B tradename o) Apparat Inc. 
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"Those of us who have been 

using Model Uls. . .know 

what frustration is all about." 



READY or Not... 



I am writing in response to Ron Balew- 
ski's articie "Never Ready" (July 1981). He 
stated in the articie that the message 
string that was to be displayed instead of 
READY would not appear after CLOAD 
because it uses a different address for re- 
entry to Basic. 

But, it is possible to make this patch in- 
to the RAM location that is called upon re- 
entry to Basic. So, I have written a very 
short routine to handle the flaw in the pro- 
gram. It only uses 5 bytes, thanks to a little 
ASCII character called the upward line- 
feed (27 decimal or IB hex). I have never 
seen this character used in a program 
before although it seems to be a very han- 
dy character to use. This is the routine: 

LD A.IBH lUp-ward LIne-leed 

CALL 33H [Display al cursoi 

This requires the following changes in 
the Basic program: 

X FOR K^326a3TO32703:BEADD POKE K.UNtXT K 

And add the following lines: 

35DATA62,27,2O5,51,0 

125 K = 16821:POKE K, 195 POKE K + 1, 171. POKE 

K + ,127 

Be sure to set the memory size to 32683 
instead of 32688 before running the pro- 
gram. 

Craig Riecke 
Lincoln. NE 

What About Level t 

I have just read the June 1981 issue of 
80 Microcomputing, the first subscription 
copy that I have received (the transatlan- 
tic postal service is not as efficient as it 
could be), and I must say that I was very 
impressed. It is fair to say that a single 
issue contains more information on the 
TRS-80 than the three leading UK micro- 
computer publications combined in an en- 
tire year. 

But. . . there wasn't a single item on or 
program in Level I Basic. Surely some of 
your readers have TRS-80S equipped with 
Level I? I know the general idea Is that 
Level 1 is OK for starting with and Level II 
or Model 111 Basic is required for serious 
use, but it depends on what you mean by 



serious. My Level I system plays Chess, 
Star Trek, Adventure, runs the Editor/As- 
sembler and will shortly be doing some 
simple word processing, thanks to the 
Electric Pencil. In fact, it does everything 1 
want a personal computer to do, so why 
bother upgrading to Level II? (I should add 
that I am fully familiar with the facilities of 
Level II and Disk Basic). 

About a year ago 1 helped form the UK 
Level I User Group, which is dedicated to 
TRS-80S equipped with Level I Basic, and 
to making them do more than people think 
they are capable of. The group's main ac- 
tivity is the production of a bi-monthly 
newsletter/magazine, and fellow 80 Micro- 
computing readers are invited to write to 
me for a sample copy (free, but please 
enclose $1 for postage). 

Nick Rushton 

123 Roughv^ood Drive 

Northwood, Kirkby 

Merseyside L33 9UG 

United Kingdom 

Pilot Praise 

The following is an open letter to Randy 
Hawkins, authorof "Pilot— The Language 
of Computer Aided instruction" (July 
1981). 

I've dealt with all kinds of people over 
the years, but never anyone v/ho was as 
prompt and courteous as you. When you 
told me last Saturday you'd mail a fix for 
your Pilot program on Monday, I expected 
that would be the last I'd hear from you . . . 
at best it would be weeks. But this after- 
noon's mail brought your four-page Model 
III changes. 

Next, don't apologize for inconve- 
niences. Those of us who have been using 
Model His for some time know what frus- 
tration is all about. 

Now, for some items on how it's work- 
ing for me. After debugging it, I found the 
system tape wouldn't load. I sat here star- 
ing at the * * on the screen and watching it 
switch to D* at the very end of the pro- 
gram. I made extra copies. Normally, the 
D* message tells me I've got a problem 
with volume settings, although it's mighty 
rare on the Model III. If it persists, I clean 



the heads, then normally it boots up with- 
out any trouble. 

But your Pilot 80 sat there sticking its 
D' tongue out at me every time, no matter 
how I adjusted the volume. Finally, a little 
bell went "tinkle-tinkle" in my head. This 
month's fvlicrocomputer News (from Tan- 
dy), mentioned that Haunted House will 
load in the Model 111 if you simply load it 
over itself on a checksum error. Next time 
around, I watched the ** change to D*, 
then a pause while it passed the blank por- 
tion between saves, then another series of 
blinking D's, and danged if it didn't per- 
form like a charmer! 

1 found when putting in the tutorial pro- 
gram that your suggestion to use "a" In- 
stead of "@" or the shifted "@"wasof lit- 
tle help. It worked fine everywhere except 
in line 325. 1 went over that damned line at 
least 20 times; I edited it, rewrote it, delet- 
ed it and rewrote it, and no matter how 
hard I tried, I couldn't get that "a" to ap- 
pear on the screen. It came out "A" every 
time. Well, you warned us that using two 
quotations in a tine could lead to unpre- 
dictable results. Have you ever edited a 
line, hit L several times and saw it was let- 
ter perfect, then entered and listed it? 
Comes up "A". 

My final attempt was to delete lines 305 
to 330, name the program to the end, and 
then redo the missing lines, this time com- 
bining lines 320 and 325. Now ! had three 
quotes in one line. But it worked perfectly. 

I can assure you Piiot will make some of 
my self-imposed tasks easier, and pro- 
duce neater programs when 1 want to 
create a tutorial. Even though my system 
is 48K and i can't make use of 16K of my 
RAM, I take my hat off to you for an ex- 
cellent program. I have also stuck your 
name in the master tape where it belongs 
to identify your work. 

Karl H. Meyer 
Corpus Chrlsti, TX 

Bungled Broker 

Your article "The Software Broker" 
(June 1981) contained many serious mis- 
takes. The following are some that I have 
found. There may be more. 

Continued on page 14 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 
CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO T 

DO WITH YOUR ^ 
KRSONAl COMPUTER 

It MMK UnSCH 

$7.95 



333 pages, written in simple terms, of 
"what-to-do" and "how-to-do-it". Suitable 
not only lor microcomputers, but lor pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definite^ a 
MUST BUY! 

A PARTIAL LIST OF APPLICATIONS 

Real Estate Evaluation Test Your Typinc Spsad 



Astrology 
(nconw Tax 
S peed Reidhig 
Personality Test 
Statistical Analysis 
Logic Circuit Analysis 
Carpenter and Mechanic's Helper 
General Purpose Clock Twner 



Finances & Investments 
Biorythm 
Energy Efficiency 
Antenna Design 
Letter Writirv 
ftadpe index/Calculator 



"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

CaH now and place your order (or ttiis new 
book, 'THE CUSTOM TRS-SO™ 4 OTHER 
MYSTERIES", Irom IJG. Inc. More than 
300 pages, with over 60 photographs, of 
protects for the hardware hobbyist. In- 
cludes schematics. PC layouts, software 
driver code, etc. tor such do-it-yourself 
undertakings as high resolution graphics, 
reverse video, real-time ck)ckycalender, 
musK synthesis, ROM/RAM additions and 
moret 

THE CUSTOM TRS-80tm $29.00 

CALL FOR AVAIUBILITY 



MfCROPARAPHERNAUA 

NEWDOS by APPARAT 

NEWDOS/SObyApparal S139.9S 

NEWDOSUPGRADE CALL 

NEWDOS -t- with ALL UTILITIES 

35track 169,95 

40 track $79 95 

BOOKS 

TRS-80TM DISK 

AND OTHER MYSTERIES . . $19.95 
microsoft™ BASIC DECODED $29.95 
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META NOTATIONS. . ■ 

MTC introduces lis FREE computer "bulletin 
board" service. Set up your terminal or ter- 
minal software for 300 baud, parity di&at>l«d, 
8-bit word lengtii, and 1 stop bit. Dial (216) 
289-8689. After tt>e connection is •stat>IJshed, 
type LOGIN META. When ashed (or a valida- 
tion code, type META. Have tun! 

In a couple of monttis MTC will introduce ttte 
successor to AIOSIII/CALCS. It is called 
AIDS/P- and Is based on MTC's PRIMAL-- 
(Practical Relational Information Manage- 
ment Applications Library), a powerful 
system for PRIME minicontputars. AIDS/P 
features the best of tti* critically acclaimed 
AIDS-llt;CALCS but is probably an order of 
magnitude beyond it in power. It will be first 
made available to AIDS-III/CALCS owners (lor 
an upgrade charge), ttien to tt>e general 
public. Price will be in the $20O-$30O rar>ge. 

■ ■ * 

Effective Septemtrar 1. 1981, Metatronics Cor- 
poration became a subsidiary of MTC. 
Metatronics will carry the complete MTC 
product line in addition to its own. Order pro- 
cessing and lulllllmeni departments tiave 
been combined to improve service response 
levels. MTC's superior software and supplies 
marketing, ana Metatronics exceptional 

rieriptieral offerings should prove to be a 
omidable combination. (Sorry guys, if you 
can't beat us, Join us . . .) 

MTC now oilers a more complete selection of 
diskette products (ad deadlines prevented In- 
clusion In anything l>ut this column). New 
manufacturers are MAXELL and 3M. Definite- 
ly call for specilic inlormatlon. For example, 
MAXELL Brand 5% " diskettes in a PLASTIC 
LIBRARY CASE are only S34.95 tor a box of 
10! SCOTCH Brand diskettes are comparably 
value-priced. MTC is also introducing its own 
PARAGON" Brand media products. The in- 
tent Is to offer a super-high quality product at 
a very competitive price. For example, a box 
of 10 single-sided, soft-sectored, double- 
density, 100% certiliad diskettes with HUB 
RINGS is only $24.95! A full tine Of products 
(including HEAD CLEANING KITS, etc.) will 
be ottered. The PLAIN JANE'- (almost 200,000 
units sold) distcette lir>e will become part of 
the PARAGON • MAGNETICS operation (but 
don't quote us verbatim). 



Single Sided. Soft-Sectored 5'/.-inch, 
(tor TRS80™) Mini-ttoppy 

DISKETTES 



$21 



95 

box of 10 



Let your TRS-80^*' Test Itself WItfi 

THE FLOPPY DOCTORS 
MEMORY DIAGNOSTIC 

by David Stambaugfi 

A complete checkup for your MODEL I or 
MODEL III. THE FLOPPY DOCTGB-Version 3 
completely checks every sector of single of 
double density 35-, 40-, 77-, or 60-track disk 
drives. Tests motor speed, head positioning, 
controller functions, status bits end provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks for proper write/read, 
refresh, executabilily and exclusivity of alt ad- 
dress locations. Includes both diagnostics and 
complete Instruction manual. 

SYSTEM DIAGNOSTICS .$24.95 
For MODEL III $29.95 



PLAIN JANE™ 

These are factory fresh, absokitely first 
Quakty (no seconds!) mini-fk)ppies. They are 
complete with envek>pes, labels and write- 
protect tabs in a sfirink-wrapped tx>x. 

PLAIN JANETM Diskettes $21.95 

10 boxes of 10 (each box)$21.&0 

PUINJANE™ 'So^f 

Introducing MTC's premium generk: 
diskette. Single-Sided. Soft- Sectored, 
DOUBU-OENSITY, S'A-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 
PLAIN JANETM 'Xj,y^ $25.95 

VERBATIM'S PREMIUM DISKETTES 

DATALIFE"' 

Seven data-shielding improvements mean 

freater durability and kmger data Nfe. 
hese individually. 100% error-free cer- 
tified diskettes feature thicker oxkle 
coating, kNieer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM. Shugart, ANSI, ECMA 
and ISO standards. 
VERBATIM DATALIFETM DISKETTES 
5'/4-inch (box of 10) 

MD525-01 $26.95 

10 boxes of 10 (each box)$25.95 

8-inch FLOPPIES 

Double-Density, FD34 8000 . $43.95 

'RINGS' & 
THINGS 

HUB RING KIT for 5'/4 " disks $10.95 

HUB RING KIT for 8 ' disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5'/4" drives $24.95 

5!/4-inch diskette case $3.50 

8-tnch diskette case $3.95 

5V4-lncn File Box for 
SOdiskettes $24.95 

B-lnch File Box for 
SOdiskettes $29.95. 
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CwporJtion DATALIFE it a 
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CALCS IV. MERGE III are 
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Break Solution 



In reference to TRSDOS POKE 
(June 1981), defeat tfie Break key 
under TRSDOS 2.1/2.2/2.3, NEWDOS 21 
or ULTRADOS, I use tfie following line: 
POKE PEEK (17171) + PEEK (17172) 
•256 +1, 0. To turn on; POKE PEEK 
(17171) + PEEK (17172) *256 + 1, 1 

Please note this does not work with 
NEWDOS 80, DOSPLUS nor ULTRA-II. 
These new systems have the ability to 
defeat the Break key via a system or 
library command. 

Vernon B. Hester 

42403 Old Bridge Road 

Canton, Ml 48188 



Data Inputs Wanted 



Would it be possible to complement 
a wonderful program ("The Software 
Broker," June 1981, p. 268) with a short 
explanation of how to prepare the data 
disks (mainly the stock price data and 
the index values)? 

I don't understand how you can do it 
from lines 300-380 on Program Listing 
1. The variable D9A will accept only 
numerical data— what happens to the 
name of the stock, for example. 

In spite of the tremendous amount 
of space that you dedicated to this pro- 
gram I think it would have been very 
nice to have a sample of data inputs at 
the end of the program. 

Harold E. Lange 
P. O. Box 450182 
Miami. FL 33145 



Disappearing Act? 

About a year ago I purchased a 
machine language program on cas- 
sette for my TRS-80, which was similar 
to the arcade or "Space War" game for 
Apple. Since that time I have searched 
for another copy as the tape worked 
twice, then would not load. In trying to 
trackdowntheoriginal supplier (I think 
the name was "creative software" or 



"creative games" or something 
similar) there was no phone number 
and returning the tape for replacement 
only resulted in a reply of "addressee 
unknown." I therefore assumed the 
company had gone out of business. 

If anyone can supply information 
concerning the demise of this com- 
pany, or of a new supplier, it would be 
greatly appreciated. 

Douglas C. McMillan 

105 Burlington Beach 

Valparaiso, IN 46383 



OM Error Fix 



I'm writing in regard to my letter 
published in July 1981 concerning the 
OM error I received on loading KBEEP- 
FIX. The response was outstanding; I 
would like to thank all those who wrote 
to me. It appears the answer is to JP to 
06CCH, rather than to 1A19. At least 
this gets rid of the dreaded OM error. 

Now I have a new question. Is there 
anyone who knows of an add-on disk 
controller unit other than the expansion 
interface. (I am mainly Interested in an 
already assembled, ready to plug in 
unit— not one that has to be assem- 
bled or searching for parts as in the 
LNW board). I would like to hear from 
any one who knows of a unit. 

Bernard F. Gaffney Jr. 

524 Riley St. 

Lansing, Ml 48910 



POKEing Along 



In reference to your column, 80 Aid, 
(June 1981), about the various POKEs 
required to disable the Break key, 1 
have done a bit (pardon the pun) of 
research and created a list of POKEs 
for Level II and various DOSers, in- 
cluding TRSDOS versions 2.1 through 
2.3, Apparat's NEWDOS PLUS, and Ap- 
paratus NEWDOS 80. 

Robert Churchill 
2390 California St. 
Saginaw. Ml 48601 



I RV Solution 



This is in response to the letter of 
Rev. Richard W. Beebe(March 1981) re- 
garding problems getting IRV to work 
with TRSDOS 2.3. I had similar prob- 
lems with NEWDOS but found a way 
out. I tried this solution with TRSDOS 
2.1 and it works. (Sorry, but with all the 
well-known problems of 2.1, I never 
bothered to upgrade to 2.3, settling in- 
stead for NEWDOS.) I figure if any- 
thing, it will work with his TRSDOS 2.3. 

His best bet is to get IRV into RAM 
using TRSDOS command Load IRV, 
then invoking Debug and pressing the 
Break key to activate Debug; then get 
into IRV by entering the Debug com- 
mand GAAAA. AAAA equals the exe- 
cute process on page 5 of the IRV bro- 
chure (e.g., for his 48K system it would 
be GFD36). 

Incidently, when IRV is operational it 
does not work with Electric Pencil and 
will reboot the system when returning 
to DOS. It also disables the chain com- 
mand of NEWDOS 80. If anybody has 
figured patches for these problems I 
would welcome them very much. IRV is 
a very powerful utility and 1 bet it has 
still many undiscovered uses. 

And speaking of Electric Pencil and 
the NEWDOS-80 chain command, a 
DOS command file can be made by 
Pencil, saved on disk as filename/PCL 
then activated by chain filename/PCL. 

Alan H. Hyde Jaimovich. MD 

440 West Foothill Blvd. 

Glendora. CA 91740 



Printing a Disk Directory 

1 am looking for information on how 
to get a disk directory printed on a 
printer. I have a TRS-80 Model I, and I 
am using TRSDOS 2.3. It would be very 
helpful in organizing my disks. I would 
appreciate any information. 

Michiel van de Panne 

Box 13, Site 16, SSI 

Calgary, Alberta T2M 4N3 

Canada 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321 3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



MTCAIDS- 



MODEL I . . .$69.95 



MODEL II . ..$99.95 



Inlroduciri^ the atest addirion lo MTC 5 family of data management systems AlDS-iil NO 
PROGRAMMING easy to use COMPLETE PACKAGE includirg demonstration application 
docum.entat on and MAPS III (see be'owi 

• Up to ?0 USER DEFINED FIELDS of either numeric- or character-type 

' CHARACTER-^/pe fields may De any length (total up to 254 characters: 
' NUMERlC-type fields feature automatic formatting, rounding, decimal alignment and 
va''dation 

• Full feature EDITING when adding or changing records: 

FMtH F iLLO ; can't type ir- more characters I'vn bpecifiedl 

BACKSPACF icieetD last ch-jracte' tvpedl RIGMT-JUSTIf Y FIFLD contents 

DL.LTF F F^u contents . SK|i= •-■ELO ,to ne«l or previous (leld) 

RF5 GRL flE.O contents . SKiP RFCORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted 

?00 RECORDS (40 characters) in about b SECONDS 

ANY COMBINATION o* fields {including numerics) with each field in ascending or 
descending order 

' SELECTION of records for Loaamg, Updat.iit\ Deleting, Printiniz and Saving is 
MACHINE CODE assisted 

Speci'y up to 4 CRITERIA, each ..smg one of 6 RELATIONAL COMPARISONS 

LOAD or SAVE selected records using MULTIPLE FILES 

Example Select records --epresenting tfiose people wno live in the state of Col- 
orado, but not in the city of Denver, whose last names tiegin with "F" 
and whose incomes exceed $9000 00 

Example Select records representing those saies made to XYZ COMPANY that 
exceed S2b 00, between the dates 03 15 and 04. '10. 

MAPS-lli (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features 
' Full AIDS III SELECTION capabilities 

• Prints user-specified fields DOWN THE PAGE 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatxaily 
generating column headmgs, paging dnd (optionally! indentation 

• Can create a single report from MULTIPLE FILES 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc 

BELOW ARE TESTIMONIALS from owners of AIDS systems These are absolutely authentic 
statements and are tyoical of the comments we receive 

This program will do more for my business than all the other programs I 
have, combtned ." 

Ddvid Wareham Vice President iEDP), National Hospital and Health Care Services Inc 

"We have 32 different Data Base Management packages for the TRS-80. AIDS-HI is easily 
the best. It also makes it easier tor us to step up to our Model II since the package is 
available for both computers," 

Jack Bilinski pi-esideni, 80 Microcomputer Services 

Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently usmg it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly," 

Frank Boehm Director. Front Door Residential Treatment Program 

MTC AiDsTALSunrjor^uBSYsr™ 

MODEL I . . .$24.95 MODEL II . . .$39.95 



MTC's most popular AIDS subsystem Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User-specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, tmanciat 
and other numeric-based information 
systems 



Columnar subtotals generated when 
there is a change in a user-specified 
column. 

User-specified Columnar Totals 
Columnar values computed using con- 
stants and.'or column values 
Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount -t- sales tax) 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 



MTCCALCS-IV^". thatis. 

• More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTC CALCSIVTM $39.95 

For Model II $59.95 



MTC AIDS MERGE-IM™ 

iThis subsystem will combine up to 14 AIDS- 
crested data tiles into a single, large lile. An op- 
tional puige capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for high-speed perfor- 
mance, MERGE-IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order, 

MTCAIDS IVIERGE-Ill™ $19,95 

iFor Model II $29,95 



THE COMPLETE 

MTCAIDS-llh 

PACKAGE 



Includes MTC AIDS-lir'^ 
CALCS-lir^-'andMERGE-lll™ 

A comprehensive system 
at a competitive price! 

MODELI&III S99.95 

MODELII $149.95 

AddS25forCALCS-IVTM 



Compare AIDS-IH^/CALCS-lir" with any other data management package under $100! 
CALCS-in " REQUIRES THE PURCHASE OF AIDS-lll " 



MORE 

PRODUCTS 



TRS-80 If, a trademark of the 

Radio Shack Division d( Tand/ 

Corporation DATALIFE i5 a 

trademark o( VERBATIM PLAIN 

JANE. AIDS-I AIDSIII, CALCS til, 

CALCS-IV. MERGE-III art 

trademarks of MTC 
1981 by Metalechnologies 
Corporation, Inc 
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MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



i 



PRICES IN EFFECT 

October 1, 1981 THRU 

October 31, 1981, 

Prices. Sfjecifications, 

and Offerings subject to 

change without notice, 

8U0 



WE ACCEPT 

• VISA 

• MASTER CHARC.t 

• CHECKS 

• MONEY ORDERS 
•COD 



A 



■Add S3. 00 tor shipping 

& handling 

•S3. 00 EXTRA for CO, D, 
• Ohio residents add 5' ;% 

sates ta« 



^^:mwit 



One glaring incidence is m "UPDATE/ 
DTA". line 1420 which reads: For P39 = 1 
:O80. 

This error occurs several times, i am 
sure that something else was meant, but 
what? 

Another is in ■STOCK/ANA," lines 170 
to 180; 170 SP-((P(A}-PZ)[2-f SP. It 
should probably be: SP = ({P(A) - PZ) 
[2 + SP). Ditto for line 190. 

In the program named "BREADTH/ 
MKT" there is a mistake In the establish- 
ment of the value ot L. I think that the 
problem is in lines 360-380, but not Know- 
ing what the author meant I'm not sure. 

Also trading volume as written pro 
duces nothing but a series ot #'s and + 's 
on the printer. 

I am sure that there are other mistakes, 
but I have to get past these first. I su'e do 
wish that these programs were tested 
before being published. It sure would save 
a lot of aggravation. 

Also in the program "Real Rule ot 78s" 
the Stop statement should not be in the 
program if it is to continue. 

Richard Eidmann 
Philadelphia, PA 



Bad Listings 



With the renumbering utilities around, 
why can't you clean up the listings you 
publish? S, Hunter's "Sans Disks" [April 
1981, p, 186) is a case m point 

Robert McDaniel 
Clifton. NJ 

Your point is well taken. However, re- 
numbering programs may involve re-wnt- 
ing e whole manuscript so that references 
to the program slill make sense. It's really 
up to program authors to submit their pro- 
grams to the magazine in as tidy a form as 
possible. — the Editors. 

Computers for the Needy 

Santuary, Inc. is a non-profit, non- 
sectarian organization which aids young- 
sters who have special problems. They are 
placed in the home for guidance and 
counseling. The home is staffed by pro- 
fessionals dedicated to assisting young 
adults. The school is a public institution 
which is operated on what little federal 
funds are available and on private dona- 
tions. Needless to say, the funds are not 
sufficient to sustain the children's needs. 

I am not affiliated with the school; how- 
ever, I know its director. Sister Albina Gui) 
lory, M.S.C. She has told me of their lack 



of educations equipment, personnel and 
operating funds. She has worked actively 
just to keep the home open. Its over-ex- 
tended facilities are in need of annexa- 
tion. She says that the demands on the 
school far exceed its capabilities. 

I suggested to her that i would write a 
number of microcomputing magazines for 
assistance from its readers. You already 
know the capabilities of computers in ed- 
ucation. I know that you can see the add- 
ed advantages of CAI to special students 
who need that added patience and en- 
couragement that few teachers are able 
to devote to their students on an indivi- 
dual basis. 

It your readers would be able to help 
these youngsters in any way, I know that 
Sister Albma would be more than grateful 
to them. Please remind the readers that 
their donations are tax deductible and 
that the rewards of satisfaction from as- 
sisting these kids are well worth their ef- 
forts. 

For those of you who would wish to 
send contributions of hardware, software, 
firmware or other assistance, please mail 
it to: 

Sanluaiy, lf>c 

li?0 Fair St 

Eunice, LA 70535 

1-318- 546-0551 
Thank you for your consideration in this 
matter. 

Roger C. Bull 
Gretna, LA 



Say What? 



I have a tew comments on "Regression 
and Correlation" by C. Brian Honess (July 
1981). 

When you fit a set of points (X,Y) to a 
polynomial model (i.e. Y' = Eb, - x, + a), it 
IS normally called "polynomial regression" 
and is distinct from nonlinear regression. 
In the latter, the nonlinearity refers to the 
relationships among the fitting param- 
eters, not the linearity of the model itself 
Thus, any function of the form Y' - E(,(X)b, 
-*- a :s linear in the fitting parameters (a 
and b|). A nonlinear model that is nonli- 
near In the parameters is any function 
that cannot be formulated in this manner. 
For example, Y-b^e-''^ is nonlinear in 
the parameters. Note, however, that this 
particular function can be made linear 
through the use of a logarithmic trans- 
formation, e.g.: log Y - log(b|e - '^2) = 
log(b,)- bjlog(x). 

Also, the method used to extract deter- 
minates is archax. A much better method 
is to use Gauss-Jordan elimination to im- 
plement an upper triangular matrix trans- 



formation. This method is simpler, faster 
and easy to program. It also allows expan- 
sion to any size square matrix without 
rewriting the program, whereas the algor- 
ithm presented here is size dependent, 

I am glad to see that your fine publica- 
tion includes an occasional article tnat 
deals with mathematics. I hope this trend 
continues, 

Bruce Douglass 

Dept. of Physiology 

University of South Dakota 

Vermillion, SD 



Subscript Reconsidered 



Thank you very much for reviewing our 
Subedit/Subscript Word Processing soft 
ware in the June issue. We appreciate the 
coverage and the encouragement you've 
given us, but regret that some of the inac- 
curacies and omissions in the article mis 
led many of your readers and cost us a 
number of sales. We know this was mad 
vertant, and to mend someof the damage, 
we would like an opportunity to offer 
some clarification and updated informa- 
tion. 

You indicated that Subedit/Subscript is 
written in Basic. However, Basic com- 
prises less than 50 percent of that pack- 
age (and only about a third of its succes- 
sor, Newscript). The text formatting rou- 
tines and the keyboard interface (Mininit) 
are in machine language. As a result, the 
system can keep up with any typist (2500 
wpm, which is faster than the TRS-80 nor- 
mally runs), and drive a 100 CPS printer at 
full speed most of the time. We used Basic 
for file I/O, storage management and 
printer tailoring; and machine language 
for speed. The combination is ideal: it 
makes it easy for us to distribute correc- 
tions, and easy for our customers to tailor 
Subscript to unusual needs. Given these 
speeds, there is little reason to convert the 
rest of the package to machine language 
Since we encourage our customers to 
make backups, we saw no need to use ma- 
chine language just to protect the code. 

Of course, the original claim to fame of 
Subscript is its Support for the Line Printer 
IV (Centronics 737): Subscript automati- 
cally performs right-justitication of pro- 
portional font, allows inter-mixing of dou- 
ble- and single-width characters, performs 
underlining and does sub-scripts and su- 
per-scripts. It was the first TRS-80 Word 
Processor to offer these features, but the 
review article unfortunately didn't men- 
tion any ot this support. We do thank you 
for describing how thoroughly we support 
Continued on page 16 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 
CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



Let your TRS-80"' Teach You 

ASSEMBLY 
LANGUAGE 

IREMSOFTs unique package, "INTRODUCTtON 

TO TRS80 ASSEMBLY PROGRAMMING" in 

I eludes ten 45 minute lessons on audio cassettes, a 

display program lor each lesson providing illustra- 

I tion & reintorceivient and a text book on TRS-80' 

lAssembly Language Programming. Includes use- 

1 tul routines to access keyboard, vtdeo, printer and 

ROM Requires IbK Level II, Model 1. 

REMASSEM 1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80"^ Teach You 

[ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

IreMSOFT does it again! REMDISK 1 ts a concise, 
Icapsuiated supplement to REMASSEM- 1. Package 
Itonsists ot two 45-minute lessons on audio casset- 
Ites, and display programs providing illustration 
land reintorcement. Provides specific track and 
■ sector 10 techniques, and sequential and random 
Itile access methods and routines 



NEWDOS/80 Version 2.0 



$139 



SPECIAL 
95 INTRODUCTORY 
PRICE 



Apparafs long-awaited successor to NEWDOS+ is herei This is not an enhanced ver- 
sion of NEWDOS, but a completely new product Simplified DOS commands can be in- 
stantly executed from BASIC, even within 3 program, without disturbing the resident 
code. System options, such as password protection, number and type ot disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access tile types allow record lengths ot up to 4096 
bytes, and no FIELDingi A powerful CHAIN facility allows keyboard INPUTs to be read 
Irom d disk file An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS+ utilities (SUPERZAP 3 0. et^.) and much more! One MTC 
technical staff member said having NEWDOS 80 is "better than sex" (you'll have to 
judge for yoursell!). 

MODEL III VERSION 
Has all Ihe features o( the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run wittiout modification. Includes a 
utility for converting Model t single density to Model lit double density. 



REMDISK-1 



$29.95 ■ NEWDOS/80#SPECIAL#. 

CALL REGARDING OUR UPGRADE PRICING 



S139.95 



MICROPARAPHERNAUA 

DISKETTES (box ot ten) 

5'/«" PLAIN JANETM $21.95 

6'/," PLAIN JANETM .',,/,/.... S25.95 
bW DATALIFE™ MD 525-01 . , $26.95 
8" DATALIFETM FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/aObyApparat . .£139.95 

NEWDOS UPGRADE CALL 

NEWDOS -t with ALL UTILITIES 

35-track $69.95 

40 track $79.95 

BOOKS 

TRS SQTM DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT^" BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER..,, $ 7 95 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 

for 
Model I and Model III 

An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII tile for 
editing {including BASIC files), single sheet 
mode lor printing on letterhead and more! 
Simple to use, features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disit Version $79,95 

Tape Version $69,95 

CALL FOR AVAIUBILITY 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



$69 



95 



by Apparat 



Includes REF, RENUM, SUPERZAP, 
EDITOR.ASSEM , DISASSEfirt , DIRCHECK, and 
more' This is ttie original NEWDOS with all of 
Apparat s utility programs. Includes exclusive 
MTC QUE (Quick User Education) card 

40-Track Version S79.95 

MTCQUECardonly S I, SO 



TRS 80 IS a Irademjfti ol Ihe 

Radio Stidck Division ol Tandy 

Corpofittion OATALtFE is a 

Irademarti o( VERBATiM f LAIN 

JANE. AIDS (, AIDS ill, CAl CS Itl 

CALCS-IV MERGE itl are 

tfdfleniatkb qI MTC 

,t 1981 by Metalecrtnoionies 

Cotporalmrt. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged 



PRICES IN EFFECT 

October 1, 1981 THRU 

October 31, 1981, 

Prices, Specifications, 

and Offerings subject to 

change without notice. 

ano 



WE ACCEPT 

• VISA 

• MASTER CHAHbE 

• CHECKS 

■ MONEY ORDERS 
•COO 



T 



Add $3.00 tor shipping 

& handling 

S3 00 EXTRA (Of CO.O, 
Ohio residents add 6';% 
sales tax 



^ INPUT 



the MX-80, and wish to mention we also 
support the Diablo 1620, Selectric and oth- 
er similar printers We also were the first 
company to offer and deliver disk-based 
word processing for the TRS-80 Model III. 

The review did identify a characteristic 
Df Subedit that some people found annoy- 
ing: the need to hit Enter after every 255 
characters I'm one of those people, and 
as the author, was in a position To do 
something about it! The result was New- 
script, with a full-screen editor modelled 
after IBM'S Edgar and SPF, and which 
takes advantage of the unique abilities of 
the TRS-80 8y coincidence, our first ad 
for Newscript was run in the same issue 
as your review article. Im not sure it the ad 
overcame the effects of the article or was 
discredited by it . . . I only wish you had 
looked at your own advertising before run- 
ning the article, or called us to verify its 
accuracy 

Newscript has all 50 of the formatting 
features of Subscript, plus some new 
ones. However, most of its enhancements 
are in the text entry and revision areas 
(Editing). The Mininit keyboard interface is 
built-in. The Full-Screen editor (written in 
machine language) scrolls, has a Whoops 
command, opens windows, moves words 
to the next line of the screen, allows the 
cursor to be placed anyplace on the 
screen, and permits insertion, deletion 
and overlaying of data directly at the cur- 
sor position. With its standard typeahead 
feature, Newscript can accept over 750 
keystrokes per second (that's 7500 words 
per minute, which is probably fast enough 
for most of us) without ever losing a key- 
stroke even at the end of a line. I mention 
all this mostly to lay to rest any notions 
some people may have about the slow- 
ness of Basic or the TRS-80: properly pro- 
grammed, (as we have done), it's as fast 
as a small mainframe computer! 

Chuck Tester 

Prosoft 

North Hollywood. CA 



Shell Sort Looped 



It is said that each type of sort has its 
advantages and disadvantages. The Bub- 
ble sort is the slowest, however it takes 
the least amount of programming effort 
and space. The Shell-Metzner sort is one 
of the fastest and most practical sorts to 
use, but it takes a lot of program space 

I personally have found the Shell sort to 
be the best, I see no reason why it must 
take up so much space. In every book or 
magazine where I have seen a Shell sort 
listed, it is always in a longhand program 
style. I don't understand why no one has 



been creative enough to put the Shell- 
Metzner sort in For. . .Next loop form, but 
this routine took me a few short minutes 
to put together from the standard Shell 
sort flow chart. 

Steven Graham 

Forest Hills, NY 



Memory Lapse 



I have reached the point of pure sick- 
ness at Radio Shack. They try to get you to 
buy their software and hardware, but 
when you upgrade to disk and go to trans- 
fer the programs you have such as Pyra- 
mid, Invasion Force, and Eliza to disk they 
tell you you need the memory addresses, 
and even when you need lo relocate them 
Radio Shack doesn't lift a finger to help 
you. 

We trusted Radio Shack with our hard- 
earned money for their computer, and 
they slapped us In the face with the used 
car salesman "Trust me" routine. It's time 
to remind Radio Shack that we are paying 
for their goods, and without us they'd 
crumble, 

Robert Pose 
Oaklar^d Park. FL 



Just What He Needed 

Mr. Rose's complaint is a valid or^e; I'm 
sorry we haven't taken care of this one 
sooner. 
Here's a list of the necessary addresses: 



MicromoviB — (MOVIE) 
Eli;ra~(ELIZA) 

Talking EiiiS— (ELIZA) 
M'.crucnesE iCHESSi 



Mic'oiTiBrquee--|MAHQl 
Invasion Forca— (INVADEl 
Flyjng Saucei — (SAUCER) 
EdilQ' Assembler— (EDTASM) 
TBUG L^III-(rBUGl 
In-Mamory 
Inilializatlon 
L-II-(INITLZ) 



Slart End Efilfy 

4300 4CFF 4300 
5000 7800 5000 
4600 7C00 4600 
cannot load on 
dl3l>, special loaO- 
ing formal 
4A00 4FFF 4BO0 
5000 7100 5000 
42EA 4FFA 4ZEA 
430C 5D40 468 A 
4380 4824 43A0 



4380 478C 4380 



Helneval 

L-II-(HETHEV) 
Sort L.|l -(SORTi 
Chechefs 80 — (CKRS80) 
Program Conversion— (CONV) 
Data Conversion- (DCONVj 
Micromusic — (MUSIC) 



4380 4a8C 4380 

4380 46DE 4380 

5000 7700 5000 

4AF6 4F07 4AF6 

4300 4535 4300 

4300 4970 43O0 



Renumbering Program-(RENUM] 7C4C 7FC6 7C4C 

Te,m-|TERM| 5000 50BF 5OO0 

Pvramia-(PYRMD) «00 7FFE 4300 

Haunted House- (HAUNTi 4ZE9 4FFF 42E9 

ScripsitCassettB-(SCRIPSl 43O0 6905 4300 
Upper Sl Lov*(er Case Driver 

Basic-(ULCBAS) 6CO0 7015 6CO0 

Disk— (ULCDVR) 7000 73FF 7000 

Biil Walters 

Consumer Information Manager 

Tandy/Radio Shack 

Fort Worth. TX 

OP Code Change 

After reading Brian Cameron's article 
"Undocumented Instructions" (July 1981), 
I began looking through op code tables 
out of curiosity to verify some of the 
codes. They are indeed undocumented. 
After further researching, I found that Mr. 
Cameron's title of 'DUPINC for the in- 
struction to multiply by two and increment 
is actually SLL' (Shift Left, Logical). The 
other op codes he names appear correct. 

Just for the record, I'm 16 years old. 

P. Griffith 
Tampa. FL 

Reversing Graphics 

Regarding your article on graphics 
codes ("Unlocking the Graphics Code," 
June 1981), there is third application. 
Through a little math, a graphics pattern 
can be reversed— exchange black for 
white and vice versa. To see how this 
works (Model I and Model III), type in the 
following: 

ID CLS' lor X^ 128 to 191 PRINT a o.-l. POKE 15365, 
X 20 POKE 15370. 191 - (PEEK(15365}- 128] FORY = ■> 
(□300: NEXTY,X 

The contents of 15365 are reversed and 
POKEd to 15370. To reverse all graphics 
on the screen, use the subroutine: 10000 

Canrinusd on page 20 



1000 SHELL-METZNER SORT SUBROUTINE 

A$( I--THE UST TO BE SORTED 

NE THE NUMBER OF ELEMENTS IN THE UST 

1010 M = NE 

1020 M = INT(M(2);1F M =0 THEN RETURN 

1030FORU1TOM: FOR J = I TO N£- M;1 - M STEPM : FOR K = J + M TO NE-M-f 1 STEP M 

1040 IF AS( J1>A$(K) THEN T$ = AStJj.AftJ) = A$IK):A$(KJ = T$ 

1050 NEXT K.J,l:GOTO 1020 



Program Listirjg 
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DATA RESOURCES 



pXpr 



QUALITY SOFTWARE FOR YOUR TRS-80® DISK SYSTEM 
TO ORDER CALL TOLL FREE 800-525-7958 



BIONIC BASIC 

The BIONIC BASIC routines implement a number ot 
useful commands and functions that are not aval labia 
in regular BASIC BIONIC BASIC appends these 
routines to the BASIC/CMD tile so that they load 
automatically every time Disk BASIC is entered. The 
BIONIC BASIC modules will not require reserved 
memory, they are resident in memory wheneverDisk 
BASIC IS being used 

RESTORE data statements for reuse indivdually 
MOVE ablockofdatain memoryfrom place toplace 
SHIFT a string to all upper or lower case 
FLASH Will turn a flashing cursor ON or OFF 
REPEAT function of the keyboard ON or OFF 
LOAD a BASIC program without losing variables. 
GOSUB statements execute at computed lines. 
SEARCH a program for occurrences ot a string. 
LINES of a program can be moved to new locations. 
COMPRESS spaces, remarks from a program. 
SORT any array in ascending or descending order. 
REDIMension any array ot list of arrays 
LOOKUP occurrences withm arrays of special data 

STARTER PACKAGE S49.95 

COMPLETE BIONIC BASIC $74.95 



.e^^^' 



V 



UNITERM/80 



V. 



By Pete Roberts 
This IS the state of the art in communications software. 
It configures itselfforeitherModeM or Model III and 
can be used with any standard modem, both RS 2,^2 
and Bus-Decoding Especially designed to use the 
extended commands in NEWDOS/80, but fully com- 
patible with all major DOS systems. Features kiily 
table driven configuration that can be easily custom- 
ized 'or any communications need. 

For Model I and III $89. OO 

MODEL I DOUBLE DENSITY PACKAGE 
NEWDOS/80 Version 2.0 and the LNDOUBLER 

Everything you need to convert your TRS-80tv1odel I 
to run doubledensity. Complete with software, hard- 
ware, and instructions. - installs in minutes with NO 
SOLDERING, WIRING OR CUTTING ...$229.95 
LNDOUBLER Alone $149.95 

NEWDOS/80 version 2.0 alone $149.00 



MTC AIDS- III 

The best of fvleta Technologies family of data man- 
agement systems. This easy to use system allows 
even a novice TRS-80 user to create data tiles 
custom configured for many applications, from lists 
tor mailing and cataloging to financial reporting and 
time scheduling. Easy to customize without pro- 
gramming, it IS complete with features for adding, 
deleting, sorling, updating and printing. The flexibil- 
ity will make it one of your most useful software 
purchases. Included FREE IS the MTC Aids Print Sub- 
system (MAPS), a powerful report generator. 

MODEL I $69.95 

MODEL It $99,95 



MTC MERGE - III 

Combines up to 14 AIDS data files into a single file 
Duplicates may optionally be purged, and sorted 
order of records is maintained. Machine code for 
speed makes this useful if large data files are to be 
created from smaller ones. 

Model I $19.95 

Model II $29.95 

MTC CALCS III 

Handles numeric calculation of data contained in 
AIDS files. Ideal for reports on financial applications 
Data from more than one file may be analyzed 

Model I $24.95 

Model II $39,95 



STf THl REVIEW IN AUGUST 80 MICROCOMPUTING 

DATA RESOURCES SPECIAL - AIDS ■ III SUPER SYSTEM 

AIDS - III + CALCS - III + MERGE - III 
SAVE * * buy all three at one low price 



Model I $99.95 



Model II $149.95 



uoni purer nr Cteision.-!'^ 
,t''ifyi'-y [hf nieU'iIy cJ 



'idve long kiLiwn 'he m 
:' di.-ignnslir ao'lw.i'e t- 

[.i'n[!.,l,T hO'LlAel'L' Th,-' 



TRS fUl IS no ftir.-eplicn good di.ignnslscs ? f a ("ust 
:n anv s.iualion where ualuahie date liiefj, .••' I'la.pi 
'.irvcl Thp MICRO Ci iNIC [!". I!. ivBO protrHmr >!■■ 
. [jneil ti' t^otCluyh ■, . herh .-nji -i-e two most t'i-'.,]i..' 
prnne SPi:l.nfi5 ot l~e IHS 80 ti^t' t'.isK svslfii i.r.-jr- 
; M ier and onues.i .fii'. tie m(Jiiirr , .i' r.ivs 

FLOPPY DISK DIAGNOSTIC 

15 the most compieto diagnostic progrHm 
rfvailab e tor the TRS-HO disk systRm. and 
cou/d be the most impodant porgram in your 
sollwan? I hrary 1 hiS program p'ovides a pob 
itive means tor thoroughly rhecKing out the 
disk controlle' ciri;uits ana disk drives In 
■ laii-y.i -.s a lest ot the accjr.HiTy of the dnv.- 
moto' sp€"f(d allow, nq ad|Ubti'ii?nl F'om one 
to iow drives can be tested ,it the same ti^ii^ 
ib -10 and JO tracks single or doutili' 
aens.ty with 'he LNDOUBLER or PERCOfI 
DOUBLER. 

MEMORY DIAGNOSTIC i. 

broken down into two bas.r tests the con 
v'f^ntional wnte/i-ead test and the M 1 Worm 
test Tne WRITE/READ TEST portion of the 
diagnostic performs a comprehensive check 
on the ability of each memory location to St ore 

ind retain data The M-1 WORM TEST is the 
■nast critical m regard to mEimo'y timing and 

worms' its way through memory 
BOTH PROGRAMS 

MODEL I S24.95 

MODEL III $29.95 



MICRO ACCOUNTING SYSTEM 

This IS the finest accounting system avail- 
able for your TRS-80. Ideal for small business, 
this Integrated General Ledger, Accounts 
Receiveable. Payable System includes a 
Checkbook manager 

We offer something no other general 
business package can giveyou-amoney 
back guarantee. If you are not totally 
satisfied return the package within 60 
days and receive a full refund. Write lor 
sample reports and full descriptions 
MAS/80 complete $489,00 



DISKETTES 

Sott-Sectored 5'/*" 40 Track Double density 
Replacement GUARANTEED for 1 year 

We will replace at to charge ANY d'Sliette returned to us 

VERBATIM DATA LIFE $26.95 

GENERIC in a plastic box of 1 $2 2.95 

GENERIC box of 100 $200.00 



FLIPSORT 

The DISKETTE FILE BOX 

that stores more than 50 diskettes 

dust tree and protected 

5V4 $19.95 8 $24,95 

purchase a S'A FLIPSORT with 50 GENERIC disks 
SPECIAL DISCOUNT PRICE $119.95 



2^ 



MASTERCARD ^ 
AND VISA Si 
WELCOME 
We also accept 
COD • CHECKS 
MONEY ORDERS 



.Data Resources Corporation. 

Business S Professional Center 

8000 East Qumcy Ave 

Denver. Colorado 80237 (3031 773-6665 



ALL SOFTWARE SUPPLIED ON DISKETTE. 
ORDERS IN U.S.A. SHIPPED U.P.S. FREE, 
Colorado residents add 6'?% sales tax, 

ATTN: DEALERS - We offer attractive pricing and terms to small 
computer retailers. Write ton nform all on on our dealer program and 

discounts in small quantities 



Prces 
' CALCS II 



'981 DATA HE SO URGES CORP 
TRS-80- IS A TRADEMARK OF TANDY CORP 
n Ritet:! Oct 1 1981 to Oct 30 ' 98 1 ana subieut to changes 
,■ MERGE in; ARE TRADEMARKS OF METATECHNOLOGlES 



-See List ot Atlveriise's on page 386 
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60 MICROCOMPUTING 
AKKOUNCES... 




. . . and saves you hours of typing and aggravation. 

LOAD-80 is a monthly dump of the major program listings in 80 Microcomputing on cassette. 
Publisher Wayne Green tells you more. . . 



"Frankly, after hundreds of hours of 
frustration, I seldom even tr\- to keyboard a 
published program. Even if the magazine 
manages to get the program typeset correctK 
(which seems rare}, I inevitably screw it up 
when I kevboard it, Who needs the aggrava- 
tion? 

"This is why I've started a new series of 
cassettes called Load 80. Each cassette will 
have program dumps of the listings in an 
issue of 80 Microcomputing. These listings 
are direct from the authors and tested by the 
80 staff. All but the very short program 
listings will be on these Load 80 cassettes. 
Thus %'ou will be able to save hours of input- 
ting programs and e\'en more of debugging 
your keyboarding errors. 



■^Though the authors of these programs 
will share the royalties from the sale of the 
cassettes, this will not preclude the better 
programs from being issued separately by In- 
stant Software (with royalties) with full 
documentation and associated hoopla. The 
documentation for the Load 80 programs 
will be entirely in 80 Microcomputing. 

'T originally was holding out for "Trash 
Dump" as a name for the cassettes, but cooler 
heads prevailed. If there turns out to be 
enough interest in Load 80, we'll set up a 
monthly subscription arrangement." 

Wayne Green, Publisher 



The Load-SO casselle IS simply Ihapiog'am listings thai appear in \hn anicles in 80 Microcomputing It mas cteated lo save 
you the lime involved in typing in the listings you'self Successful loading ol the piograms depends on reading Ihedocumen- 
lalion In Ihe articles. If you have your current magazine at hard when you load the cassette, you should have no ditticulty. If 
you still have problems, please lelurn the lape (or a replacement. 



r 



Send in the attached card and you will 
receive the cassette for the major pro- 
grams in this issue. It" the card is gone, 
photocopy the coupon. 

AtUi Sl-iXI fw-T i-av,i'tU' lor (I'jilagf and 'ioti(i/iii^. 

^Icsie Hole Iherc bs nn ^iciaiify cip[c\«d i.ir implied IhiL Ihii progi? 
^ soing LP du anyitiin^ other Lhan ^dvr >uii r>["ng 



O Yes ■ ■ ^^"'1 ^y LOAD 80 Cassette for only 59.95 

77: Check Enclosed Bill my □ AE LJ MC D VISA 

NAME ^ - 



ADDRESS 
CITY 



STATE. 



ZIP. 



CARD# _____ 
SIGNATURE.. 



.. EXPIRE DATE„_ 



INTERBANK #. 



Please allow 4-6 weeks Itx delivery 

BO Mictocomputlng Ptr-e Street Petetbofough NH 03458 

Attn. DebfO L. BouOrleou 
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so DEBUg 



Broker Botches 



I have found an error in one of the 
listings contained in my article "The 
Software Broker" which appeared in 
the June 1981 Issue of 80 Microcom- 
puting. In the 'MOVING/AVE' program 
(Listing 4), line 200 now reads: 200 
A = Q+ 1. This should be changed to; 
200Q = Q+1:AV = 0. 

I am sorry if this has created a prob- 
lem for any of your readers. 

John Harper 

Rte. m Box 252 

Lawrenceburg, IN 47025 



Hi- Res Help 



The April 1981 issue of 80 Microcom- 
puting had one error in the "High 
Resolution Video Interface" article. 
The headlines should have read 192 by 
96, not 192 by 26. Also, the schematic 
shows a 5257 or 4041 as the memory 
chips. The 4041 is getting difficult to 
find so use the TMS-4044, MM-5257 or 
INTEL 2147. 

Several recurrent questions have 
come up that I would like to take the 
opportunity to answer. The size of the 
HR-1 board Is 3 by 7 and 7/8 Inches. 
Second, the size of the smallest dot Is 
equivalent to the size of the period on 
the TRS-80 CRT and 18,432 of them can 
be defined anywhere on the screen. 
The normal TRS-80 graphics can de- 
fine only 6144 individual dots. 

Third, is the complete (assembled) 
unit available? At this time, only the 
circuit board is available. However, 
there is a company In Augusta, GA, 
Cardin and Associates, that Is consid- 
ering supplying kits and fully assem- 
bled boards. Judicious buying should 
allow you to gather all the parts (In- 
cluding circuit board) for $75 to $80- 
The six memory chips are the most ex- 
pensive items. Some distributors want 
up to $16 each for these ICs, but they 
are available for iess than $5 each from 

Continued on page 2S 



Dirprog Update 



In the August 1981 issue of 50 M/crocomyOuf/ng, we published an article 
called Dirprog by Jack Egbert. Unfortunately, we ran an older version of the 
program. The program listing here is the updated (better) version of Dir- 
prog. We hope this eliminates any confusion publishing the older version 
may have caused: 



iB ' A LJROCHAM TO MAINTAIN A DISK DIBECTDBV INDEX FILE 
-10 : 

40 ' VERIFY GEPia/OBJ IS !N MEMORY, INITIALIZE IT 
50 IF PEEK{5UFE80/ ■;>2B!i Oh :'EEI1 ; BH!--f*/Vin .- -. ,^6 CLE : PRINTS19Z , 
" *■ GSF4B/0BJ NOT LOflDED -- 



:WF=0 ' WRITE FLAC^WF 



:,|-)Ar C.SP^B/OBJ AND THEN DIRPROG" : PR I NT@9i1 3 , ; END 

fta DEFI iH-(,i;h-hf!B :CLEAR;POKE -1,0 

70 AS'"" :DNS = ''":t;s = "':SWS=''":TI5='";TPS = " 

BB CLEAR 16000;DIH l'NSi<!'i;j ,DNE(!*5Z1 

90 DEFIMT J,X ;XX = 

MENU':PHINT 

■ READ FILE FROM DISK" 

■ WRITE INDEX FILE TO DISK" 

■ Ann TO FILE" 

■ CELLTF" 
sour M.V O'^'IlQ^h'.A.Y PHIHT-OUT FILE' 

■ FIND A PROGRAM" 

■ LIST BY DISK IDENTIFIER" 
- VIEW A DISK'S DIPElTORV 

■ EXIT THE PROGRAM SAVING INDEX" 

print:Pbint"inplt yolb selection . . . ."iCOsuB i6i 

2ia IF AS="K" GOSUB 930:0010 100 



li rT.S:PRINTei56,' 

110 PI'INT,". R ^ -- 

120 PRINT, ■ < W > -- 

1J0 PRINT, °< A > -- 

140 PRINT, "t D -. -- 

IBfl PRINT, "■- S :• -- 

163 PRINT, "i ? •> — 

173 PRINT, "C L > — 

160 PRINT, "< V > — 

190 PRINT,' 



22H 


IF AS="W" 


GOSUB 


B30;GOTO 100 




2.10 


:f A5="A" 


GOSUB 


35fl;GOTO 100 




240 


IF AS^"D" 


GOSUB 


b3e:GOT0 100 




ISH 


IF AS="S" 


COSLB 


ia30:COTO 100 




2hM 


IF AS="F" 


GOSUB 


670: GOTO 100 




llii 


IF AS="L" 


GOSCB 


1320:OOTO 106 




;JHK 


:f as="v" 


GOSUB 


1400:GOTO 100 




/IW 


:f as="e" 


GOSUB 


B50:CLS:END 




IHLt 


GOTO 200 








J10 


'--- SUBi'iOlVTlNES 




1^.0 


' 








till 


'•' SUB 


• • 


ADD DISK TO 


■ILK 


343 


' ^==== 


^==i== 




= = == = 



3j0 CLS: PmNT: print, "INSERT DISK ° : PRINT:XX=XX+1 

360 PKINT"E:NTb;K DISK NO. - HIT (TABl - THEN ENTEP TITLE OF DISK" 

370 PRINT:LIN'E:S-PUT D^S{XX]:WF-l 

im CHD"DrR :1"' ' " USE - CMD"DIR :0" - FOR ONUY ONE DRIVE 

3 93 DNE'LFFTSIDNSIXX) ,4; : PUS I XXI ="1" 

400 SP'1E4BB :Z=0 tPNS='" 

410 Xy=XX-i 1:DNS IXXl =DNS:GOSUB 3^0 

420 IF PEEK1154Se) =32 THEN PNS(XXl-"( - +HID S ( DNS ! XX- 1 ) , 9 , 11) : GOT046B 

430 IF Z=-l THEN XX=XX-l;GOTa 460 

440 IF i/'-i = lKT[i/31 THEN SP-SP-i-24 ELSE SP-SP420 

450 GOTO 4ia 

460 PRINT :PRiNr"TO ENTEM ANOTHER DISK -- HIT •; A >" 

470 GOSUB 145B 

480 IF AS = ''A" GOTO 33B 

490 IF AS=CHRS;i3: THEN PETURN ELSE GOTO 460 

500 IF CHR5(PEEKlSP) 1 *" " THEN Z=-1:RETURN 

510 LO^PEEK(1659B) :H:=PEEK(165991 

520 FOR X = BT011;PN5-PNS-I-CHRSIP£EK(SP + X) 1 :IF CHB S ( PEEK ( SP+X ) ) =' " THEN X = ll 

530 NEXT X:POK£; 16598, LO:POKE 15599, HI 

540 PN':(XX)=PN£:PNS="": Z = Z+1: RETURN 



SUB 



DELETE A DISK FPOM INDEX 



560 

57 • =,===========.^================---^-==--== 

580 CLStPBINT 

590 INPUT"WI!AT It THE NO. OF THE DISK YOU WAST TO DELETE "jDHS 

60 WF^l :C[.S!PRINT3340, "WORKING . . . .' 

510 FOR J=l TO XX 

620 IF LEFTSIDKS(J) ,4)=LEFTS(DN;,4) then DNS ( J ) =" ZZ " ! Pll $ ( J ) - " E ^ " 

630 next J 

640 CLS:PRIf;TiS330,"DISK NO. -- ";DNSi" — IS DELETED" 

650 GOTO 1450 

660 : 

67B ' *' SOD •• TO FIND A PROGRAM 



690 CLS ;PRINTgl92, "ENTER TttiE OF PROGRAM TO SEARCH FOR 
7Ba PRINT:LINE1NPUT TIS 



Continued on page 20 
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^0 INPUT 



FOR X= 15360 to 16383: POKE X, 

191 -(PEEK(X)- 128): NEXT: RETURN. If 
the screen contains some alphanumeric 
characters, add "IF PEEK (XK128 THEN 
NEXT ELSE" before the word "POKE". 
When graphics are stored in strings (in 
A$), reversal would be: 

1000 BJ f-ORX= lo LEN (AS) BS-BS*CHRS 

1191 -(ASQMIDSlA,X.1» '28)i: NEXT 

Also similar routines could be used to 
exchange characters for graphics and 
vice versa, exchange uppercase for lower- 
case and vice versa, or to use 1NKEY$ to 
print graphics. 

Marc Brumlik 

Computer Marketing 

Radio Shack 

Groveport. OH 43125 



On Time Fix 



In reference to the article "Soft Tach" 
(June 1981), I would like to point out that 
the program may hang up if the disk motor 
on time is less than the time required for 
12 revolutions. The motor on time is nomi- 
nally 2.6 seconds and the time required for 
12 revolutions is 2.4 seconds at 300 rpm. 

However, due to component tolerances, 
the on time may be shorter, and also the 
first revolution of the disk will be slower 
than 300 rpm. 

An easy fix is to reduce ttie total num- 
ber of revolutions. For seven revolutions 
change the 24 in line 90 to 14, and change 
the following lines: 

230 FOR N = 1 T05 
390 AV = RT/5 

This will give an average of five disk 
revolutions. 

David Cheney 

Lachine, Quebec 

Canada 



An A for Alpha 



I recently received excellent service 
from the Alpha Product Company. 

I placed a telephone order and had the 
merchandise in a few days. It wasn't quite 
the right thing, unfortunately, so I re- 
turned the item. With equal speed, checks 
arrived for the refund and shipping costs, ! 
was pleased by the service, speed and 
honesty. I will certainly look to Alpha for 
my future needs, and I'll recommend them 
to others without hesitation. 



Robert A. Martin 
Albuquerque, NM 



fO DEBUg 



Program cont-nued 

■in CL5jPBItlTeJi5,*SEABCHING FOR t " ,-TI S: ?NINT^ PRINT 

728 PRIKTTABI^] 'TITLE* : TAB i 20) 'DISK" : PRiK7STR]NGS(i4 , ■■*) 

7JB rOB J>1 TO XX 

746 O-INSTBCPKSIJJ ,TISJ JiF CCB TiiEIi 769 

T^H IV T;S-MICSIPMSU1 .O.I.eK(TI$M THeN PMINTTAB(5}P[IS(J>]TAB(2a}T.ElTS 

Vfji! M-.tT ,::PH;t;T!PR!NT 



m :¥ xx-a tkek print--- 

7Bfl PRIHT'THAT IS ALi :il 
798 GOSUB tfitlaiRE:Tt;BN 



DISK IKDEX FILE KOT LOADED II 
--- BIT vENrKS> FOB HENU . . 



PF!:Ntfi9B8, :KMS 



SUB 



WRITE INDEX FILE TO DISK 



8!il 

K^B ■ .,...,,...,.r.^.->, ^- -.r...... = .» = ;.= ,..■ 

e'19 CUj;PRINT:PPIST'^A:<E r^fEPARATIOKS FCR Ol-TPLT TO OltK . . .' 
84B PHiHT;PRINT,"-i^;f:f; h'KABV -- KIT ■ E^TEH- . . ."iGOStIB ISBG 

859 IF VIF-e RE7UP\ ELSiE OPEIl-O" ,1 , 'DISKINOX' 

860 CLS:PHlNT?34e,%RiTI«G FILE TD DISK . . -' 

870 PR1NT»1,XX:F0S)1»1 TO XX. PRItiTti ,DMSi X, ; ■ ," ; PNS(X) jNEXT X 
aSB CLOSElCLSjPBlNTgJiS.'TRAKSrER TO I'IKK tOBPLETEC" 
esa KF*B:G0'r'O U5e 

see ; 

918 * " SUB •' hLAD INDEX FILE FB!*1 DISK 

92fl ' .== =^ = » = ..=. = ,.=.,.,.,„, ..,.e,...ct = =...,..... 

938 CLS:PRINTeJ2e,"MAKE PREPARATIONS TO SEAD FILE FROH DISK" 

940 PRINTtPRINT'WHEM REACV — HIT <Et)TEP ■ . . ."iGOS'-'E 1680 

9SB (;:.S:PHINTeJ4e, 'INPUTTING FILE FROM DISK . , . ." 

96B OPEK"i',l,-aiaK:NDX" 

978 INPUTtl.XXifM X^I '."O XX ! INPUT*! ,D«SiX) , PNS*X) 

988 IF VALIPNSlXll ;■ 99 PNSIXC" •*PHS(x; 

998 NEXT X:CLOSE!WP-a 

laea clsiPRIHT3335,'i«put os file from nisK oomplrteo." 

IBIB GOTO !4^fl 

I82B : 

IflJB ■ ■* sua *• SORT BV PROURAM OS DISK HO. 

..t^tl CLS:PRINT?192,'S0RT IHE INDEX FILE BY - : 

• 1 ,■ — a:.^^; r:o. 

• 2 :• — PHOGRAH TITLE- 

1B60 PRINTlPRtNT-Pl.EASE MAKE VOUfi SELECTION . . ."iGOSUB 1688 
1B7B HS-VAL(AS) :IF KSaORHS.'J THEN GOTO 1856 
1068 IP ns=l GOSUB J49B ELSE GOSUB 1519 
liltB i::.:;:PRiNTei92,,".. R > -- RETURN TO KENU 

< L J -- LIST THE COMPLETE FILE 

PLEASE IflXE VOUF SELECTION . . . .' 

1108 GOSUB ICe0:IF AS-"R° THEN RETURN 

1110 IF AS< J-L- GOTO 1099 

1120 : 

I13e ' " SUB ■■ OPTIONAL PRINT-OUT 

1148 ' -...^......^ = .B.... = .^. ...........= 

Ura OLS;PRiNT0J92, -OUTPUT TO PRINTER ( Y OR N ) ?' 

lUB GOSUB 16B0:N = e;IF A$-'y THEN LP-l ELSE LP-8 

.170 FOR X-1 TO XX 

'.IBB LS=LEFTS(PSS(X) ,11 !L5S'-LEFTS(PNS(X + 54) ,1)!IF HE = 1 W^ 1^80 

r.99 IF LS-^'l* GOTO I2B0 

;iBa IF LS-'l-OR LS-'" PRTNT■"JELSE?R!^T PNSiX) ;TAB{ '. 3) STR1KGS(6 

."-") i" ")LEFTS(DNS<X) ,5) t 

1210 IF LiS-'i- OR L5S-'" OR X*-54 -j XX PRINT"' ELSE PRINTTAB1J6! 

PN5(X + 54) )TABU91ETRINGS(6, "-'(:" " !LEFTEIDNSlX*54l ,>» ELSE PHI 

NT"- 

1229 IF LP=1 AND PEEKi 14312) <>63 THEN CLS: PRISTB3 38 , "PHINTER NOT 

READY '-iGOTO U&B 
I23B IF LP'fl THEN GOTO 1270 

1248 IF l;=-1" OR LS'"" LPRINT" '[ELSE LPRINT PNS(X) ;Tfta; 13) STK! 
NGS(6,'--i ;- ";LEFTS(DtlS(X) ,5) i 
1258 IF L5S«-" OR L5S''!* LPRIHT" ":G0TO 1278 

1269 IF X»S4 IV XX LPR!NTTAB( 45) PNSlX+541 ;TAB ( 58) KTRINGSi6 ,'-') ; 
" ■;LEFTS{DNS(X*54) ,5) ELSE LPRINT" " 

1270 N-H+IjIF tl->54 THEN N'0tX-X+54 : IF LP-I LPRINTSTRINGSi 12,131 

1280 NEXT X:GOrO USB 

1290 1 

1398 ■ •* SUR 

1310 ■ ..==^ 

1320 CLS;FOR X^l TO XX 

1338 IF PNSIX)-"!" THEN PRINT DNSIX) ELSE 1358 

1340 !F PEEKa4J12)'-63 LPRINT DNStK) 

13ia NEXT XiPRINT 

1363 PRINT, "END OF FILE -- TO RETURN TO MENU, HIT ■ EN?Efi>" iGOSUB 

16O0!.''^"TUfi^ 

*.J7fl i 

;>He ■ '- HUB ■* VIEW A DISK'S DIRECTORY 

::i98 ' ....... ^.=. == ====== ==.=..==.. = = . «==... 

1409 CLS;PBINTe320,";!lNPUT"ENTER DISK NO. VOU WliiH TO REVIEW " 
iCRS 



LIST DISK ID'S IN INDEX FILE 



Program continues 
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SHIPPING FREE 
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companies advertising in the major 
computer magazines — keep looking! 
The May 1981 80 Microcomputing does 
not state on tlie parts list that all TTL 
devices must be of the low power 
Schottky type (74LSXX series), If you 
do not use low power devices the 
TRS-80 power supply may not be able 
to cope. 

Next, whether your system has 48K 
of memory or not, disregard the sec- 
tion pertaining to the memory disable 
option. Instead use the technique 
shown in Fig. 1 . 

Paul C. Fowler, Jr. 

Enable Electronics 

2103 Charlton Lane 

Radford. VA 24141 



High Addresses 

An apology is due readers with 16K 
systems who tried the demo program 
in my article "Program Chaining and 
Local Variable Definitions in Basic" 
(June 1981 p. 255). Despite consider- 
able thought given the selection of ad- 
dresses for the start of variable 
storage, I tailed to heed the advice in 
my own article and set one of them too 
high. Consequently when run in a 16K 
system the slack overwrites part of 
that variable storage area and the pro- 
gram bombed. It runs OK in systems 
with more memory. 

A quick fix is to change the number 
32500 to 30500 the four places it ap- 
pears in the listing (Lines 120, 170, 230 
and 1010). The program will then run on 
any size system. 

Hal Brown 
643 W. Valley Forge Road 
King of Prussia. PA 19406 

Everyman's Debug 



I typed in "Everyman's Mod 11 Word 
Processor (July 1981) on my Model III 
Everything works well with the follow- 
ing exceptions: To fix faulty video 

display during edit insert mode, 
change the end of line 1080 to 
read:-:PRINT ® C+ 1, B$,A$ -t- R$ 



Hl-RES BOARD 




■ ^' PiN I .,1-u. ON '-T ''^'j SO ".t-U BOAPD 

A\c so_::; p '0 ..■■.■' p '. t- on iT-«f s bo-'rc ■ 



!__.,. 



p.. . JF 

p - ■. ■ : ' c R s 



-^ AH 

-> PD * 



■plN GfJE ON ;2i MUST Bt 1 i' 
AND BENT UP awfiV FRO^' 1m!: 
TRS BO CPU BOIRD TM 'i !S 
NECESSARY AS IHEORIGiNAL 
TRACE CONTINUES UNDfR ZP.r 
TO PIN 15. 



PIN ? 



Fig 1 



Program conliriueO 

141H iJI.y iPRINTf 128, "DIRECTOPY FOB DISK NO. ";DRS:PKINT 
14S(I FOH J=I TO :■;> 

laa If ].;:fTS(Dsi;iJ! ,4) =DRS and pnS(J)';'"i" thf.nprint pnsu}, 

ma NK^T .: PRRJT; PRINT 

;45a PRINT; PRINT, "TO RtTUHN TO MENU -- HIT ".ENTER:'" : GOSUB IfiBHjR 

zti,:rn 

:46B : 

;47(' ' " J'JB " GSF SORT RODTINE 

UdB ' -" ^ = ^. = = = = = = = -_. = = = = = = = = = = = = = 

1490 SPS-. " tDfJS, rPN5" 

liB9 GOTO IbJB 

1510 !iPS"-''t-pr.-E, .DNS" 

13J0 [;LS-.PP;STP33B. "SORTING ONE MOMENT PLEASE" 

I'lia ir x>!=H THEN PRiN':^450, "•• disk index file not entered n 
""iGDS-JB i450:(.oTo laa 

rj40 :^r-Kfi',17) OR ;J!1R( V«tPTR{EPS) ) OR IJSRIB) OR USR(XX) 

ir.iiE jf : !■ a then PRjNT"bOPT erhor":ooto 1550 
liSB FOR \^i TO >;x 

1570 if DNS(X;="ZZ" THEK X)! = X-j : RETURN 

l=,a0 NEXT X;RETLRN 

1 :■ 9 B : 

1680 ftS=lNKEV=;IF AS=-" THEN lfcB0 ELSE RETUBS 



Program Listing 



Since Model III doesn't have tab or 
backspace keys, and does not recog- 
nize the up arrow, change line 180 to 
read: 



130 .-A =6? THEN 430 ELSE IF A - 91 THEN 330 
ELSE l^" A-tiOTHEN 310 



This lets you use "<" for the left ar- 
row, ">" for the right arrow "Clear" for 
the down arrow, and the up arrow as in 
the text. If moving the line to the right 



chops off the last character, delete the 
+ from line 1200. 

If you use an Epson MX80 line print- 
er, lines 1661 and 1662 will have to be 
changed to accommodate its char/ 
inch and lines/Inch format. 

1661 IFG^5THENW=14ELSEIFG = 10THEM 

W = 18 ELSE IF G = 16.5 THEN W^ 15 

156^ IF H=6 THEN T = 50 ELSE IF H ^8 THEN 

T = 48 ELSE IF H = 10 THEN T = 49 

Howard Potvin 

2527 S. Los Padres Drive 

Rowland Heights. CA 91745 
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What! Another correction? In 
August's 80 Input, 1 commented that 
Frank DiNunzio's joysticks might 
cause bus contention if used during a 
C LOAD. That was true, but between my 
drawing errors compounded by draft- 
ing errors the fix that was described 
would end up being worse than no fix 
at all. Fig, 1 and Fig, 2 are the real 
thing. 

Dennis Kitsz 

Technical Contributing Editor 

Poxbury, VT 



Joysticks Damage 
Hardware 



As Technical Contributing Editor for 80 
Microcomputing. I am often called on to 
review hardware manuscripts before their 
publication, Frank DiNunzio's article on 
joysticks {June 1981) was such a case. I 
contacted Mr. DiNunzio before the article 
was published pointing out my concerns, 
to which I received a response similar to 
the one printed in September's Input. I re- 
viewed the article again, and came to the 
same conclusions. Since he did not wish 
to incorporate a protective port-decoding 
circuit in the joystick design and since I 
believed this would be a very popular pro- 
ject, I prepared a postscript to the article. 

For a time, the Keystone Kops syn- 
drome set in. Due to magazine madness, 
the postscript disappeared and the article 
was published without it I sketched 
out a hasty replacement; unfortunately, I 
made a mistake in the drawing, later com- 
pounded by a drafting error, which com- 
pletely garbled the so-called improvement 
(please see this month's Debug). Mr. 
DiNunzio's rather harsh response to my 
suggestions then appeared. 

If this were a minor theoretical dis- 
agreement, I would shelve any response in 
order to avoid an unseemly and typically 
mundane war of letters to the editor. But 
the user's investment in a computer is 
considerable, so I want to answer Mr. 
DiNunzio's letter point by point. 
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First, I understood that the joysticks 
were meant to be used only with "a suit- 
able program to draw or play games." 
However, it is unwise and chancy to plug 
something in when the computer is on, 
and user manuals for all computer periph- 
erals—including Radio Shack's own- 
warn you to turn your equipment off be- 
fore connecting them. Since it is import- 
ant that any peripheral be plugged in 
when the power is off, Frank's joysticks 
would be in and on when CLOADing such 
a suitable program. 

That brings up a related comment I 
probably should also have made earlier. 
Using the TRS-80 bus connector — pins 37 
and 29— to complete the circuit that pow- 
ers the joysticks puts the computer in 
jeopardy. Plugging the board in on an 
angle can run a hazardous 6 volts through 



other components of the system. So put a 
switch on the joysticks, too. 

Second point: Frank says "INP(I) will 
not open the cassette port; iNP(225) does 
that." Absolutely right. But the converse 
IS not the case, since opening the cas- 
sette port will also open the joysticks. So 
will input from 240,241,242,243,244,245, 
246 and 247 (Exatron Stringy Floppy), In- 
put from 232, 233, 234 and 235 (RS-232 In- 
terface), input from 208 and 209 (Micro- 
connection), input from 127 (Micromouth), 
and so on, 1 save the chain programs of 
ESF, and it cannot be plugged or disabled 
without wiping out a loaded program or 
program sequence. And removing the 
RS-232 unit means disconnecting the ex- 
pansion interface (killing a disk system) or 
opening the cover and removing the 
RS-232 board before proceeding. 
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Mr. DiNunzio's statement does bring up 
an interesting question: Why would 
INP(255} cause the joysticks to open while 
on the other hand INP(1) does not cause 
the cassette port to open? That is be- 
cause INP(1) is a hardware illusion cre- 
ated by software; as I stated in my first 
comment, any INP statement from INP(O) 
to INP(255) will trigger these joysticks. Mr. 
DiNunzio uses INP(1) simply because 
specifying that port number will avoid si- 
multaneously triggering the cassette in- 
put circuitry. 

Third point: "Hex inverters, . .pull some 
of the data lines down to ground potential; 
this is also done by the keyboard and all 
other input devices, and is not harmful to 
the computer." That's true, but all the de- 
vices he mentions pull data lines down on- 
/y when specifically asked to do so by port 
or address number. Frank's joysticks pull 
data lines to ground even when not asked 
to by proper port' number, and that is 
harmful to the computer. Why is it harm- 
ful? Because digital electronic devices 
can have three states: on, off, and a third 
state of electronic invisibility. To avoid 
electronic chaos, only one device may be 
permitted to respond to a central process- 
ing unit's request for information. In 
cases where bus conflict happens acci- 
dentally (which will never occur in a prop- 
erly designed circuit), the low {ground, or 
"zero") signal takes precdence. But while 
it is low, it Is also causing additional cur- 
rent to flow through any circuits which 
may be in a high (5 volts, or "one") state. 
That's what the third state was designed 
to avoid, which should have been used 
here. The unorthodox method used by Mr. 
DiNunzio to turn on the 74LS368's is a par- 
tial attempt to provide this invisibility, 
though 74LS366's (with two enable lines) 
would have been a better choice in some 
ways. Though unusual, his method can 
extend battery life. 

To provide signals only when needed, 
then, every device connected to the com- 
puter should be decoded; that is, it should 
have a specific address or port integrated 
with it. In that way, only one device is "visi- 
ble" to the CPU, and no peripherals or 
memory compete with each other. These 
joysticks do in fact compete for attention, 
may respond unexpectedly, and (I repeat) 
may eventually damage the computer. 

Fourth point: When I was reprimanded 
that "241 is the lowest data number the 
circuit develops," I checked the original 
article once again. Actually, the lowest 
data number produced is 240, as Frank 
points out in his abstract numbers; rather, 
they work in digital signals whose actions 
can be made to simulate decimal num- 



bers. Thus, though 240 is not a decimal 
zero, that is irrelevant; It is binary 
11110000— which means four of the eight 
independent data lines are pulled to zero, 
and can conflict with active computer 
data during other input. Readers can take 
a lesson here in the dangers of thinking in 
decimal numbers when binary concepts 
are being Implemented; merely because 
240 is not zero, it does not follow that the 
binary condition it represents has no com- 
ponents which are zero. The possible con- 
figurations of Frank's joysticks include 
several zeros in the lower four lines: 0000, 
0001, 0010, 0011, 0100, 0110, 1000, 1001, 
1100, and 1111. Nine of the ten combina- 
tions present bus contention problems. 

Fifth point: Frank states that an AA cell 
"in theory. . .is 1.5 volts, but in reality it 
provides somewhat less voltage." In real- 
ity, depending on how new it is, an AA cell 
can provide more than 1.5 volts (as well as 
less), even under the minimal load de- 
manded by the joysticks. However, I will 
grant his point that most of the time the 
voltage will be less than 6 volts. Neverthe- 
less, fairly new alkaline ceils will still pro- 
vide more than 5.25 volts, the maximum 
operating supply voltage. Here are ex- 
cerpts from the manufacturer's data 
sheet on the same integrated circuits 
specified by Mr. DiNunzio for this project: 

"Operating Conditions. Supply Voltage: (min] 4.75 
(nominal) 5.00 (max) 5.25. Absolute Maiimum Ratings 
Supply Voltage: 5.00. Note: Stresses above those 
listed under Absolute MaJ<imum Ratings may cause 
permanent damage to the device. Tfiis is a stress 
rating only and (uncllonal operation o' the device at 
these or at any other condition above those in- 
dicated ... is not implied '" 

For greatest reliability, I would recom- 
mend readers use the simple regulator cir- 
cuit I suggested (80 Input, August 1981, 
page 18) with five AA cells rather than 
four; this will prevent the regulated volt- 
age from dropping below 5 volts too soon, 
giving the appearance that the batteries 
have gone dead early. 

To Mr. DiNunzio's final provocations, I 
decline to respond. I will say that even if 
readers do decide to follow his design as 
printed, at least this exchange of corres- 
pondence and commentary should illum- 
inate how different designers approach a 
task, and how hardware reliability can be 
increased. As I stated in my original letter, 
1 did not intend to be hard on Mr, DiNunzio; 
I'm sorry he was offended, but I hope 
readers know that they are my first con- 
cern. It is they who have to face the conse- 
quences of what they build. 

Dennis Bathory Kitsz 

Technical Contributing Editor 

Roxbury, VT 



'Know-it-Air Goof 



The program "Know-it-AII" (May 1981, p. 
288) is a very useful program but is not 
complete in every detail. First, there is an 
error in line 65035. The items between the 
brackets should read (65536-U). 

Second, if there are any alpha data lines 
these will be decoded as a register and to 
eliminate this, insert OR T = 1 36 after T = 
in line 65055. 

Third, in program statements such as 
ON X GOTO 100,200,300, line referencing 
program only picks up the first line 100 
and not lines 200 and 300. To overcome 
this, type in place of line 65150: 

65150 NEXT:RE = 0;Ci = ■■■■GOSUB65Q:IFT = 

OTHEN650'15 

65152 IFT^320HT = 44THEN65130ELSEGOTO6 5050 

With these additions the program be- 
comes very useful in debugging lengthy 
programs. 

Brian Heywood. chief engineer 

Taranki Electric-Power Board 

Eltfiam, Taranaki 

New Zealand 



Retrieving Block Cursor 

I read the article on "Block that Cursor" 
by Ron Balewski in the April 1981 issue 
and noticed that if I tried to relocate the 
program to a location high enough to use 
my 48K of RAM I would get an "OV" error 
from BASIC. Evidently the problem is in 
the integer arithmetic that is used by the 
PEEK and POKE statements. While the 
Z-80 can handle addresses greater than 
32767, the TRS-80 integer arithmetic can- 
not. 

Fortunately, there is a way out. You can 
use the block cursor and your additional 
memory. It turns out that if you subtract 
32768 from the 16K POKE locations the 
TRS-80 two's complement arithmetic will 
come up with the appropriate addresses 
for the POKEing.Thisisdoneonline30in 
the program below. Of course, the new 
memory size will be 65402, and you must 
change the location that will be refer- 
enced by Basic, which is done as follows: 

5 BLOCK CURSOR PROGRAM FOR 4aK RAM SET 

MEMORY SIZE TO 65402 
10 FOB K = 32635 TO 32654 
20 READ X 
30POKEK-32768,X 
40 NEXT K 
50 DATA 245,197,205,88,4,237,75,32,64,10,254,95,32,3, 

62,143,2.193,241,201 
60 POKE 16414,123 
70 POKE 16415,255 
BO END 

William R. Patterson 
Somerdale, NJ 
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EPSON MX-80 SCALL EPSON INTERFACES & OPTIONS 
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EPSON MX-100 F/T SCALL 
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''Mr. Baker has some 
unique ideas compared 



Trakcess 

Roxton Baker 

The Alternate Source 

Lansing, Ml 

$24.95 

by Ronald Bobo 



After successfully making backup 
copies of Acorn's "Pinbail" and Mi- 
crosoft's "Adventure" (both of which are 
on copy-protected diskettes), I next turned 
my attention to those annoying security 
diskettes that accompany programs from 
The Bottom Shelf. 

Mr. Baker has some unique ideas com- 
pared to others involved in software pro- 
duction. To quote from the Trakcess man- 
ual, "Congratulations! You have just pur- 
chased the mosfpower/u/TRS-SO disk ac- 
cess utility yet written. Perhaps you were 
able to share the cost with a few friends, 
but even if not I hope you will find Trak- 
cess worth the price." 

Baker credits William Garden's Disk In- 
terfacing Guide for the TRS-80 as Inspira- 
tion for this program and recommends it 
to help you use Trakcess efficiently. The 
non-expert should also have a copy of the 
data sheet on the 1771 floppy disk control-, 
ler chip. A copy can be found in the Expan- 
sion Interface service manual or may be 
obtained from Western Digital. National 
Semiconductor, a second source for the 
chip, also has a sheet available. 

Trakcess requires a 4aKTRS-80 Model I. 
The (C)opy and (D)upl(cate commands re- 
quire two disk drives. 

The program is in two parts on the disk 
—Trakcess, a Basic program, and Trak- 
cess/CMD a machine-language routine. 
Typing 'Trakcess' and pushing Enter will 
load the machine-language section, and 
from there on prompts are given. 

Printer output is available, but a printer 
is not necessary, 

Trakcess contains all its own disk I/O 
routines, if the program stops on an error, 
however, a DOS disk should be inserted in 
drive before continuing, to prevent pos- 
sible system hangup. 

Everything is menu-driven. Disk-related 
commands will not work until a drive is se- 



lected and activated. Upon selection, you 
will be asked for the head position of the 
drive. Press Enter; the default value is ze- 
ro, and the head will be positioned at that 
track. 

Typing I steps the head of the selected 
drive in one track {toward the center of the 
disk} and O steps It out. These two keys re- 
peat if held down, Trakcess is program- 
med for thirty-five tracks, but instructions 
are furnished for changing this if nec- 
essary. 




saft\A/are 



G followed by a decimal number allows 
quick positioning of the head at any de- 
sired track. 

R and W allow reading into a specified 
block of memory, or writing from it. It Is 
feasible to modify the data before writing 
back to disk, making the reconstruction of 
a damaged sector possible. All sector 
writes are verified by rereading, so data 
transfers are reliable. 

T and P (Take and Put) allow the taking 
from or putting to disk of a whole track 
(about 3120 bytes) in one operation. A 
track may be read in, then scanned with 
Trakcess' editor to reveal everything on 
the track. 

B (Build) is a very powerful command. It 
allows you to tailor a track to your own 
specifications, with no restrictions other 
than overall length. As many as eighty dif- 
ferent sectors per track may be specified, 
of different lengths and types, with any 



names. Once the track has been created it 
may be edited in memory before writing It 
todisk, with the P command. For example, 
youmightzeroout the DAM (Data Address 
Mark) for a short sector, thereby generat- 
ing a false sector ID. Or you may remove 
the ID ORG to get a false ID pack or the 
sector GRG for an always-bad sector. 
Make your own protected disks, anyone? 

Typing S causes the current track to be 
scanned for useable sectors. All the Im- 
portant information (track number, sector 
number, sector length, whether or not a 
sector is IBM format, and the data ad- 
dress mark} will be determined and dis- 
played on the screen or printer. This pro- 
cess is not fast; thirty seconds may be re- 
quired to scan a track. If the track has any 
false sectors, this will be noted. L(Locate) 
scans the full disk, tells you which tracks 
have sectors, then offers you the option of 
a full report, 

C will search the current track, build a 
matching format track in memory, then 
write it out to a target disk. Subsequently, 
it will transfer (and verify) all the sectors. If 
any sectors are damaged or of undeter- 
minable length, you will have to specify 
one. Unless you know what it should be, 
do a track read and look at the sector in 
memory. Try the next larger multiple of 
sixteen bytes than the sector's apparent 
length. For this and the D command, you 
must have two drives— you cannot copy 
to the active drive. 

D is essentially the C command re- 
peated for each track. Most disks, wheth- 
er protected or not, can be duplicated in 
about thirteen minutes. The disk you're 
copying need not be formatted, but it's a 
good idea to format it to make sure there 
are no bad tracks. It may then be bulk- 
erased before copying. 

E is a scrolling editor utility. Memory 
may be edited, or memory between speci- 
fied addresses may be filled with a speci- 
fied byte. The arrow keys move the cursor, 
and scrolling is accomplished with shift- 
ed up and down arrows. Memory may be 
displayed in either hex or ASCII. In either 
mode, whatever you type will be put into 
memory at the cursor location, 

F calculates the two CRC bytes for any 
block of code in memory, or for any bytes 
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THE ALPHA 
I/O SYSTEM 

a complete failure? 

THE INSIDE STORY 



(( hiowaa j yuts igo wrwn wr Pr«sMtMi< mMt« J daciSKio Ai iha lime m spociaiiiM 
m cuirom jnjtot ^<t 0>gi(a< cifcinl Omgn The iMcision was to ailBmpl id onaUp j line (ri 
sianaarO mWljce na'dware 'or me eniergmfl micfocompuiers M IM lime (19?7| w* Ud to 
decide wiich ol lt>t new macmnes couMl oecome irw inousiry standard ot Itia Km coil 
micros 

QtsoM a lew iggiavutng Oul m^rw aeficierKiM ine rns-SO uemed iMiave ine most 
crtance oi success and ii nad tne Msi price /periormance ratio Also, wiin some imaginaiian, 
trwir large salBSDrganiialKHicoutaEwGonieitw largest senrtcR network in ihe world, a reassui 
ing tntou^i lo< the mdny iiovic«s in this now l«M 

It Mcjme cieai itiai 'tie TRS-SO could be used (wilh our then hypothetical ^vslemno solve 
tKObiems >n rnany iieUs wnerecompuiais wererMKyel used, mostly liecause oi men highcosi. 

Tne lOEA was simpie' ALPHA PRODUCT would supply Ihe imssing unk Miween ihe TRS- 
eoandlhe oulsKtewoikl . imore about this DulSKlewwU later i 

Early Survival 

0AN6EII' It Radio ShacK entered the same market we probably would rm nave survivod. Out 
the eipeclalion wa; mat they would De loo Dusy aeveiopmg their basic line (drives prmters, 
modem etc ) Thanks to out mon speciaiiied p'oducls we would not be competing wHti them 
MO STAHTI We began wiin a laiiuie Oui insi piooixi was sunKsad to De a simple h>w cost, 
genefa) purpose device it would allow ine tns 80 to accept inputs other man tne tieyOoard 
Many kinds o( eiieina' devices ^me inttside world menlioned Detore) hke photocells. 
sensors itwrmostats switches cortjcis etc could be connected easily in addition there 
weie two relays to cor^iioi (on or ott) eitemal loads such as moiois lamps appiiar^ces 
heaters, etc etc in othei words, ii wouia anow me compuiei to mtetact o' inlerlace wtlh 
eiiNnai devices We called n the iNTERf ACER 2 What a mtstake> ii sounoed too much uke 
' eipansion inteitxe' Many enthusiastic TRS-BO users called lltinking that our ' INTER- 
FACER ? was a Ww cost Eipansion inierlace lai S8S mat would nave beer^ a leal bargain'i 
We wanted to change me contusing name That m«aM (epnniing me manual changing ttie ad 
scrapping tne Kfirs discarding trie siik screened cases Well ititERFACER 7 ' it would 
stay 

inUSLEI We also lound thai the maionty ol TRSSO users were AFRAID Ot the Hardware Trey 
could be very comloriabie wiin fancy programming but thought you had to tw a compuW 
specialist or technically mci'neo to put tne INTEFIFACEH 2 to work In irutn. some lUAGIhA 
TiDS and a SCREWDn>VE8 is all you 'eatiy neea Anyone able to w>re a switch could use mis 
device 

MMSEI There was also the tear ol plugging a foreign device ' into the piecious computer 
This notion has ail but disappeared as meie are now so many Quality products designed lor the 
TftS BO thai plugging in a non Radio Shack device has Become comnwn 

Our ad m Creative CompulUK) (BOMicroconiputinq did not yei eiisl) hard'y paid ID' itselt 



TIMEDATE 80 



^^ 




Neal. Compact Design 
3 Yaars Banery Lite 



Slips InstdeE-^l 
(Y Opticm Shown) 



Real Time Without 
Expar^slor^ Interlace 



•Complete, sell contained Due real Inte dock /calendar, TIMEDATE SO continues to keep 

accuidie time ana dale wn«n Ihe computer >s turned oil or experiences a power tailure 

•TIMEDATE M only needs to be set once and It s two repiauabie AAA baHerws <noi 

mciuoefll keep tiMEOAlE 80 lunmng in encess oi 3 years Costly Ni-Cad Mltenes and 

cnaiging circuits are eliminated 

•Tne msiant power <% app'>ed to tne TRS-80 HMEDAIt BO provides WO/OATE/YR, DAY 

oiwlEK HR MiN SEC and AM/PUmiormationwiinquani accuracy 

•TIMEDATE U replaces me computer s internal dock Exiremefy useful lor automatic 

operation of remote systems tnlh no operator m atlenoance If tne power tans and then is 




We had a oeosion to make Were we wroi>g oi lusl loo eariy^ Our tirst IHTERFACER 7 was sold 
U someone who wanted to ana siKceeded m coniroHing his fancy nionei taiiroad with his 
TRS-SO inieresbng, but what made us stick with me concept was mat some ot our iNTER- 
FACERS twoan finding use in applicalnns wiin lascmaimg possibiitlies Space is iackii>g to 
describe Ihem Oui the most eiciimg was the successiui use of [ne system tn assisting a handi- 
capped yOung boy We were pleased to near ot such a meaninglui app>K:ation 



Today 



Three years laiei as you can see in our ads. The INIERFACER 2 is alive and well The 
price went up a Dn and despite me inlroduction ol me mote powerful iNTtRFACER 80 ine 
sales nave been steady 

Then came the lust understood proouct' tne ANALOG 80 tms $il9 nicely designed 
module is an Analog to Digital converter wxn B mpui channels itseO with you' TRS-BO. il 
provides a powerful "data acguisition system This jargon simply means mat yOu can 
monitor measure and lecoro B mdependant varying voltages Very few people realiied <is real 
power Such a system woulij have cost over lenihousano dollars |ust a tew years ago 

The poisibitities m scwntidc and engineering eovnonmenis are endless This system 
could replace chart recorders, oigitai oata recorders oroqrjmmable calculators data analyzers 
and many oinei speciained and e>pens>ve pieces ot equipment Furthermore, up to e ANALOG 
BO'S could De used simultaneously tor a tout ol 64 channels ot analog input' They simpiy plug 
into the TRS-SO using our X series of bus eitendeis (EXPANOABUSi 



The idea was simple. We would supply the 
missir^g link between the TRS-80 and the 
"outside world" 



Our next product was to be a second generation input'Output interlace, with more 
tieiibillly man tne iNTERfACER ? Caretui design and reimement yielded me iNTERFACER 80 
the most powerful reai world mieriace on me market today it has 8 inputs, each optically- 
isolated and B Outputs, each witn a relay contact The INTERFACER SO is fully compatible with 
our ANALOG 80 aUowing these to be used together m order to create systems mat control 
external devices based on sensed input under control ol me TRS-BO 
A FAILURE) in spite of our extensive adueriismg. very tew are aware of the existence ol the 
powerful ALPHA I/O SYSTEM 

The Facts Are: 

tne AlPMA SYSIEM'IRS BOcarnmnation lor ms an incredibly versatile and powerful tool lor 

acquisifion/processing.'contioi 

-In spite of Its moderate cost, the system is sophisticaled aiM reliable 

-The entire syslem can be easily p'ogrvnmedm BASIC using INP(X) and OUT X Y commands 

The modular approach and our EXPANDABUS allow for mstant expansion as requirements 

demand 

The foiiowmg pages contain more inlofmawn about Ihe devices mentioneO nere We mvite 
you to call or write to Oiscuss your particular application 

Device descriptions; NEXT PAGE ^ 



WHY LOSE PRECIOUS TIME ? 

miored only TiMEDATE SO wM update (he system with current TIME and DATE mtormalion. 
an impossibility willi the computer s internal clock 

•TIMEDATE SO is quart; crystal tused with tf4TElLiGENT CALENDAR including provisions 
lor leap year' TIME dis pi ay may be by l?hour AM/PMor by 24 nour mililaiv and Eruopean 
toimat 

•TIMEDATE m plugs direclly mio tne rear tH the TRS-80 keyboard and gives the NMEt 
(unction even without an Expansion Interface F« those with a disk system It plugs into the 
left side panel of the Expansion inierfice An optional Y ' connecHM can provide lor further 
eipansior 

•TIMEDATE BO'i smalt wt keeps the computer table uncluttered n you titvt an Expansion 
Inierlace. TIUEOATF 80 iiieiaiiy ' DISAPPEARS ' by slipping into me eripTy space in me 
bottom ol the mierface 

•Two sets ot software, on casselie come wim TIMEDATE BO- TiMESET and TIMEf 
"TIMESET IS a step t)y step set ol simple instructions for setting TIMEDATE BO TIMES' 
IS a set ot po«e routines whicn paicn IMS and Level u TIMES lo read TIMEDATE SO and is 
easily mcorporatad into any user sollware TIMES «"ll always print me time and date 
whan LISTING a program-great loi keeping irjck oi revisions' 

•Other vaiuaMe uses tor TiMEDATE SO aie accurate date and time informalion lor business 
reports Uke piy'Dl! records, linancial reports, etc . oi to varous i/O device* requiring 2* 
hour cwck input such as laboratory instrumentation, and lo commumcanon systems 
needing Login;iagOut dalaiOuHelm hoardsi 

■TIMEDATE 80, tuiiy assemWed and tested 90 day warranty complete with mstiuciions 
and software on cassetle S9b 00 Y option afliJi'2Q0 



NEW: Computer to Computer ordering :(21 2) 441-3755 (24 hr. data line) 



CALL 



(212)296 5916 




ALPHA Products m 



FOR FAST 
SERVICE 



85-71 79th Street, Woodhaven. NY 11421 
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Al I nnOERS SnlPPFD FlRSt CiAJS WAIl 

WE aCCEPt Ul^a MAStEkCH«A(;F CHFOS Ml) 
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N r fl[siofi«is»nos*i!S i*< 



5^(9 REVIEWS 



typed in. Useful when examining dam- 
aged or tricky sectors, the CRC may be re- 
garded as a two-byte checksum. The disk 
controller starts calculating a CRC when- 
ever an address mark of any kind is en- 
countered during a track write, and when- 
ever a sector is being written or read. On a 
write, these go to the disk and on a read 
they are compared to the CRC bytes on 
the disk, then reported back to the CPU 
along with an indication of their correct- 
ness. 

H gives a choice of hex or ASCII dump 
to the printer starting at any memory ad- 
dress. 

According to the manual, possible fu- 



ture additons to Trakcess are a disk com- 
pare and a disk search facility. Improve- 
ments are promised to keep up with the 
state of the art in protected disks. An up- 
grade to the iatest version may be had at 
no charge by sending a diskette with a 
postpaid mailer to The Alternate Source. 
Presumably, you wouid aiso have to fur- 
nish proof of purchase. 

Mr. Baker says he doesn't like protect- 
ed software because it makes modifying 
or moving the code difficult, and it is usu- 
aiiy a pain to back up and use. Baker main- 
tains that, with 300,000 or more TRS-80's 
in the f ieid, and the fact that relatively few 
owners are in close contact with iarge 



numbers of other users, and that most 
owners are willing to spend some money 
on software, there will be pienty of sales 
potential even after all the swapping. 

Whether or not you agree with Mr. 
Baker's philosophy, it should be pointed 
out that reproducing copyrighted soft- 
ware for other than your own use is illegal. 

Trakcess is a good program, it works 
and, though not a replacement for Super- 
zap or similar programs, it can be used for 
purposes other than copying. Besides 
that, it will give you a mini-education on 
the working of the disk controller and the 
various disk formats possible. ■ 



Hallfire Warrior 
Automated Simulations 
Mountain View, CA 
$39.95 disk, 32K TR3D0S 
$39.95 cassette. Level II, 16K 

by Debra Marshall 

SO Microcomputing staff 

LJeltflre Warrior is the second in the 

^ Dunjonquest series of full-length 
fantasy role-playing games produced by 
Automated Simulations {the first is the 
Temple of Apshai). 

The game is structured much like Date- 
stones of Ryn, the minigame introduction 
to the Dunjonquest series. Like Date- 
stones, commands are issued by pushing 
various single keys. Graphics on the '80 
consist of a single-dimensional top-view 
representation of corridors and rooms 
found in the cave you venture into in your 
hero's role. The character appears on the 
screen as a triangle created from graphics 
pixels, treasures are rectangles, and crit- 
ters and nasties apppear as squares of 
different sizes, which disintegrate into 
shooting rays when they are defeated. 

Hellfire Warrior consists of four levels 
of dungeon. Each level proves Increasing- 
ly harder to stay alive in. However, ex- 
perience points are gained with each nas- 
tie killed, and your character becomes 
stronger, more resilient and harder to de- 
feat with each battle. 

This game is perhaps unique In the fan- 
tasy game field because you have the op- 
tion of creating your own character or 
bringing a favorite character from any oth- 
er role-playing game, computer-based or 
otherwise, with you to Hellfire to be your 
hero. The Gamemaster will randomly se- 
lect a hero's attributes for you if you do 
not choose to create your own character. 
Either way, you must name your own char- 
acter, and I quickly discovered the name 



must have a hero's ring to it, or the pro- 
gram has some distinctiveiy reprimanding 
thoughts to share on the subject. 

You may increase your character's 
native attributes (and chances to stay 
aiive) by visiting and spending your money 
at the Armory, the Apothecary Shop and 
the Magic Shop. Each shopkeeper has 
many things of various import for sale, 
and you should choose carefully, because 
the weapons, armor and magic you pro- 
vide your hero will greatly affect his 
chances of remaining alive in the dun- 
geon. Each shopkeeper sets a price for his 
goods and is open to haggling, within rea- 
son, if you haggle too much or offer too 
low a price, you may find the shopkeeper 
raising his prices. Weapons may be en- 
chanted, indeed, should be enchanted; 
elixers, nectars, bloods and salves are 
available in plenty, but without any ex- 
planation or guarantees as to their desira- 
bility; magic amulets and talismans are 
also available to the wealthy (read: suc- 
cessful) adventurer. 

The object of the game is simple: Wan- 
der through the maze, collect all treasure 
on all levels, buy advanced magical aids, 
proceed to higher levels, and eventually 
rescue the warrior maid Brunhilde held en- 
thralled deep in the dungeon. Exit the 
maze with Brunhilde, treasure and body 
intact, and you win. Oh yes— pay the cler- 
ic and try not to get yourself killed. While 
resurrection is possible (and even likely), 
you always seem to lose a lot in the pro- 
cess. Provisions are made for saving a 
game or character. 

Frankly, one of the most enjoyable 
things about this game is the Book of 
Lore. It is nicely illustrated, slickly pre- 
sented and makes for enjoyable reading, 
which is saying a lot for something that is 
software documentation. The directions 
and explanations are thorough and ex- 
plicit; you will be well-advised to read the 



book completely before attempting to 
play the game. There are room and trea- 
sure descriptions, and some secret mes- 
sages that come in handy. In addition, 
there is a short scene-setting story that 
proved to me the people who wrote the 
documentation are game players and fan- 
tasy lovers. 

The game proceeds in much the same 
way as Datestones: You manuever down 
halls and into rooms searching for trea- 
sure and secret doors. At any moment, 
you may be attacked by a nastie or beast- 
ie and have to defend yourself. There are 
pits and traps, and any treasure box may 
be boobytrapped. 

The game is written in Basic and unfor- 
tunately, this makes for slow graphics 
drawing and reaction time; you may con- 
tinue fighting a battle after you have 
demolished your opponent because of the 
slowness of program execution, it is also 
difficult at times to determine exactly who 
is coming out ahead In a battle. Unlike the 
Datestones game, however, critters in this 
contest do not self-destruct without any 
effort on your part. In addition, the game is 
the real time, so don't let your attention 
wander; you may discover you have been 
killed while you ran out to the kitchen to 
get a snack. 

The game is not easy to win. The beast- 
ies change types on each level, different 
magic is required, and there is enough go- 
ing on when the graphics aren't being 
drawn to keep your interest up. Some of 
the graphics sections were poorly concep- 
tualized; when it takes many seconds to 
draw a dungeon section, I don't want to 
have to watch it being done every three or 
four steps I take, which occasionally hap- 
pens. On the whole, however, any true 
game fanatic will find this game intriguing 
and entertaining. It is also a welcome 
change from adventure games without 
graphics. ■ 
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NONA/ MODEL I AIMD MODEL III! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors* only »39.95. 



'-■i m XX Yt 

TOUUKEDFOHIT EIPANDWUS XI . U 1(3 AMD 1(4 

LUSNtCI All TOuR IR3-80 DfViCfS SIMULTANEOUSLY 
on ine 40 pin inS SO Dus iljiy Wvte ttui normally o'ugi 
«m int ligfOaiiii Mge conneciw win jIso plug mio rnr 
' fXP*t(OABUS Ine ti js iMwrn •nin [HOfKIive 
cuvws iinciuOeOi The TBS 80 iieyDoifa coniiins tne Ous 
arlve'^ 1ML&36'I tO' up To X Otvices nwe intn <rou w>fl 
everneefl UiingttieE.'i itoiugisiirier uelitpen HBsno E/i 
r I" thr Si'eer "rinie' cO'l ProteiiiOFUi gujiity goto 
U^aleO tonidi.:; 'ompule' jri* 40 cooOoclor ribeo" UDI* 
x: iM IS i« X4 SM III SM 

Custom nnliguraiiotti irt jiu avai<iCiif cjn u^ 




TWICE IHEFUNTRS-aO 

inCK-M MAKES KETBOARD OlSOlfTE 

FeaiutBs me lamous ataPi jovsiicii S arrrciions * titt 
conirai Simpit injtructions lo <nakt /ovmick veiswis of 
most *cIion ganiM Plujs inio heyWuiO w enpansion im 
frtct includes ATAfll joysIKk win ALPHA intarfire iiM 
inslruOiOM FREE MAGIC ARTIST progr^n Iil9')^ 

^Ulif' Wt,|. I .. .C «LlrLfll LJ'ibi^fihL J'JUKU ^^'t^^ llJ* '''■>' i' 

ny Sotlw^re :r''D,.,ii(tns ALi[N NVASiO'« 

COSMICIMUDniWS tWtAKUU! E*fi S9 ^j 

5rtLi*H40vLNTLjRt ii,Dei,iilHjii*,:ivjij'M Sl4 ^S 

So'tuM-f JulfW". jnU iliMriouics 1 onl* ' .l^ !o' KJyslit- 

■ 0"V"'M01 p.Tt.KlC 'if ynu' ftiMtIK] g.t 'P^ 



MUSIC SO MJSIC BO MJSIC-SD MUSfC-SO MUSIC-SO 

■ )se '-iisfi":; snfiwsre 
M wtilB you' 0*' ti:'.!' mil .an loii d cii d>yii.i iti 
analog convwW you tin syninenje uu !o b music toicti 
BuiH-m vohime cwilrW Mnay wfien sierfo no: neat IBS-80 
Sjmpiy plug the ' MUSIC-BO' mtD me keyMaia v ine E'l 
iC'Mti D'iniei oo'l ino amnec! ine output (RCA lacn lo in, 
*iio(i'e' ■'he fljOio Snack ST 5l>ea»f r/af piHler wo'Ks 
line 
Fully aisemDleO jno lesiec W Oi» wjirjnl, i39 ^: 




ANAlOG-80 A WOHLO OF MFW APPUCATIONS POSSIBLE 

B niGI'il Mill Iiv;rf lis P, UW^f 1' IM:.' 'UIJS '"S S?'" 
Measure 'emce'itu'e Vollage Current Ligdl P'essuie stc 
Ve'y eas) la use lo' eiarnple ie( i 'eaO mpul ctiaiiel *< '0 
OLT 4 Selects inpul 14 and also start? me convetsion 70 
A- '■(PIOi Purs me result in <aiiaote A vouj' 
Spec'ications Inpul 'ange 5V to D-bOOV Eacn cnannei 
can Be seilo a orllereni scale 
Resoiulion JOmViorSV 'angei Accuracy 8 CxIS . 5%l Pon 

Waress lumpe' WeciaWe p>ubs inio KtyWuro ous o< E" 

tscieci pfintei porli Auemttlid and tested 90 lUy -aairanty 
CoTiplele *itfi powei Mippiy connicloi mjnuar JtJ9 




LflTHE CHAIHBREAKER FREE YOUfl UINI-MIVES 

EnO 'tit aaisy itiain 'lesi once jnij loi all Fits al' ''ini 

aove". Pertom Aeiocomc Snua.iri Wic'opous MTi visia 

Psnec Siemens BASF Easy lo mstaii lusi -emwe tne 

drive c(M< plug >n the CHAIX BHEAKEH and replace me 

CDVBi Vwla'" 

kKnir you can ctiange and move your Drives iiaund witPoul 

diMSsen^oiy Keep Ihe cover on and ktap trie dust cul Higti 

retiatKiilf gold niareo coniacts computer graje 34 

conduclo) caoie Tn'ea ana guarmleea 

Get one lot eacfi drive oni> S13 a\ 



IKTEFIFACEB 7 LOW COSI INPOT/OUTPiJT mODUi f 

Stii. :-i* test ..Hue in w •■■ I .■■■ ■■ -■■/ -■■-. ■■ it lot 

energy coniroi Ou^gUr aiarTi datkr-oom saetlrit otrve. 

■noOel trains roools S'lnnjr DOi 

-Slalchefl TTL QuIDuts 2 reUf* SPDT ?A 1?^V conlacis 

-S TTL/CMOS rnfKils mpi/t and 1 are opiicairy umalBO 

— Naat and cdrripacl design veiyreasy to use 

IQ A ^ IKPlOl Re«]s Ihe 8 inputs (il A ^ Q all inputs ate 

<0») 20 OUT I CwittDIS ttK DulQuts antt itie relay; 

AssamWed & lasted 90 day warramy Price mctuOes powar 

Supply, cattle 10 KB or E'l superD user's manual irM 

pHone dialo program 19^ Manual only S^ 

powe^elav^ndel 

ycJLirl 






IMTERfACER-iO i-i-mti'. At-'ui >ent.- ■■.oniv '^jCuie 
■ 6 indusfi.i' grjdp rpi.iys Mnflle pore doutnc IM'O* i^olalen 
conljcts 2 Art) ^ i^'jVoiis ITL lalcfwfl outputs are also 
^cc86SJblelDdri«eilBinal isixJ stale relays 
.Bianvenieni LEDs Lonyanfy display tiwei ay stales 

Sir^ple OUT commanOS tin tiasici contra trie 8 relays 
.B opt I calty -isolated mputs lOf easy Oirsct inier'acmj to 
eiieinai swlcfies pnoiooB*^ keyiwds senjoii etc 
Simple IMP' tammanOs leM ttie Status ol ine fl inputs 
Selectanie port address Ciun compact encmefl design 
Assemmeo tested 90 oays warrant, Pnce includes power 
suppJy cjple connetio' superB user ! manual J1^9 



GREEN SCREEN 

\A/ARNINC3 

IBM ana an lie Biggies nv uSing green screen nranito's 

Its advantages are no* mdWy aOvertiseO We teei mat evety 

'H>KU user stiouid en|oy tfte Benetils it prov>oes But 

WARNING a" C-r-een Screens are nol cteaieo equal Mere is 

wnai we louna 

•Several aie jusi a Hat piKe 01 iianoarfl coiofM Lucite Ine 

green tint was not maoe tor ttirs purpose and is luoged By 

many lo be toe oatk inc-easmg It* Brigniness coniroi will 

result in a lu;/y display 

•Somp are dimply a piece ol tiin plastic liim lapeO onto a 

cardCOard frame Ttie cOMr is SJlrslactory tHJl ine wotiDly lilm 

gives It a pBor apura'ance 

•One optical tiller is in lact plain acryi>c stieeimg 

•False claim A lew pretend 10 reduce glare m taci tnei' 

Hat and sfimy surlaces IDotti tiim and lucite lypel ADD meir 

own rpiiections 10 tne scieen 

■A tew laugBs One ao claims 10 reduce screen contrasl 

Sorry gentleman But it s just tne opposite One at tne Green 

Screen s mafor Denelits is to incieasa tne totlrasl Delween 

trie leil anfl Ihe [ackground 

■OantMCks Most are using adhesive slnps ID laslen ir.eir 

ween to tne moniloi TBis metnod rtiakes it awkwara lo 

remove for necessary penodicaf cleaning All (etcepl ourst 

are flat ugtti pens will not wo'k reiiaoiy Because ol ine Inq 

gap &Btween the screen and itie lutie 

Many companies liave Been manutaclunng vioeo Inters to' 

years We are nol ttie liist 'some ttiink tliey are) Put we nave 

done Dur nori>e*oii' and we think *? manulacluie Itie Best 

bieen Screen Mere is wny 

Ml tils rigni onio ftie B'Ciuie luoe uke a skin Because il is ifie 

only CURVED screen HDLDED eiacliy 10 the picture luBe 

cutjatute It IS Cut precisely 10 cover tne eiposed area ol ihe 

piclure tube Tne tii is sucn inai the static eieclncity is 

sutticieni to keep it in place' We also mtiude some mvisiDie 

reusaOie lape lor a more secute lastening 

■The litter material Itiat we use is iusi righi nol loo Oaii> na> 

'00 ligtil Ihe result is a reaiiy eye Dieasmg oisplav 

We are so Sii^e mat you will never take your Green scieen oil 

ttidi wi? otter an uncondiltonjl money-Back guaraniy try Our 

Green Screen tor 14 oays tl foi any reason you are not 

□elighlea wiin it return it lor a prdinpl re'unC 

A last word We think mat companies like ou's *no are 
selling mainly Dy mail stioul<J "isi rf>eif slreel aOdteiSWave a 
phone numper itpf questions and orOersMccepI COOs nol 
every one likes lo settd checks lo a PC MwOfer lie 
convenience oi charging their purchase lornafor creOilca'ds 
How come we are ihe only green screen people Oomg iP 
Order you' ALPHA SHEEN SCREEN loOay I1 7 W 
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COO aOOS? 00 EXTRA 
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Lisp Interpreter 
Supersoft Associates 
Champaign. iL 
$75 cassette 
$100 disk 

by Gary McGath 

An unusual entry in the language 
field is Supeisoft's Lisp interpreter. 
Lisp is not as well known to microcomput- 
ef users as it might be. although it is the 
most heavily used language in arllficial in- 
telligence research. Us simple (though un- 
usual) syntax and powerful data manipu- 
lation capabilities make it an excellent 
choice for dealing with the complicated 
data structures required by artificial intel- 
ligence programs used for natural lan- 
guage processing and pattern recognition. 

Other areas where Lisp is elfoctive are 
symbolic mathematics and adventure- 
type games. The Supersoft interpreter 
runs on both the Model I {Level II) and the 
Model III with 16K of memory: the disk ver- 
sion runs under TRSDOS, All these ver- 
sions offer TRS-80 owners the opportunity 
to experiment with artificial intelligence- 
type programs on their microcomputers. 

Lisp Stands for List Processing. The on- 
ly data structure Lisp uses is the list, 
which is a series of linked data cells. The 
elements of lists may be other list; this 
permits the representation of any tree 
data structure. Programs are lists and 
may create other lists; memory space for 
lists IS allocated by the interpreter as 
needed. As a result, it is possible for one 
Lisp program to create or modify anoth- 
er one. 

Supersoft's implementation of the 
language is fairly complete. Floating- 
point numbers are used, and a variety of 
mathematical functions are provided. 
Variable names (atoms) may be of any 
length. Property lists, allowing the pro- 
gram to associate attributes with atoms, 
are supported, as are two different kinds 
of user-defined functions. Functions that 
are part of standard Lisp, but can be com- 
posed easily from other functions, have 
been omitted to save space. The user's 
manual gives Lisp definitions for these 
functions which can be typed in. The set 
and reset functions permit screen 
graphics. 

Input/output operations on cassette 
and disk consist of saving and loading all 
data are not formally distinguishable.) On 
the Model III. either 500 or 1.500 baud 
may be selected for cassette input/output 
but the rate cannot be changed once it 
has been set. This limits the Model III user 
to 5(X) baud if he or she wants to use the 



Edit and Trace programs Supersoft pro- 
vides of tape. 

The interpreter is quite fast and nearly 
bug-free. Garbage collection — the 
reclaiming of released storage— is the 
most difficult problem in implementing 
Lisp; but in this case, the hesitation caus- 
ed by the garbage collector is barely 
noticeable, even on a 48K machine. 

I have found only two bugs so far in the 
cassette version. One is typing an atom at 
the interpreter will not produce a response 
unless the atom is followed by a space or 
a right arrow. The other is if an atom is 
given a property of NIL, that property can 
never be changed except by directly modi- 
tying the property list. 

There are, however, a couple of disap- 
pointments in store for the buyer of Super- 
soft's Lisp, The manual is a thin docu- 
ment, typewritten and cheaply bound. It 
will be an insufficient guide for anyone, 
even a professional programmer who is 



less than fluent in Lisp. It does, however, 

tell the experienced Lisp programmer 
everything he needs to know. 

The major deficiency in the software 
itself is the lack of any printer output. The 
only way a printout can be obtained is to 
save a program on cassette, return to 
Basic to redirect screen output to the 
printer, reload the program, and obtain the 
listing. If Supersoft had provided a POKE 
function like Basic's, this redirection 
could have been performed without leav- 
ing Lisp. 

These problems, however, will not 
stand in the way of anyone who believes 
Lisp is the right language for his or her 
projects. I hope Supersoft will add some 
improvements in the future, but their pro- 
duct is already an exciting alternative to 
programming in Basic.B 

Ed. note: The Al references are our com- 
ments, not the author's. 



Spooler 

Mumtord Micro Systems 
Summerland, CA 
$16.95 

by William C. Huffman 



pooter by Mumford Micro System is a 
print formatting system tor parallel or 
serial printers. Spooler allows you to 
specify the number of lines per page, the 
number of characters per line and a 
pause, if needed, between pages of out- 
put. The pause allows insertion of another 
sheet of paper if your printer prints only 
one page at a time. Spooler also allows 
you to send the contents of the video 
screen to the printer. This last feature is 
similar to the JKL function of NEWDOS 
and others. 

Works Without Disk 

Spooler is a machine-language program 
which works on any Model I, Level II, 16K 
or larger and Model III 16K or larger 
TRS-80. Spooler will work without disk. Let 
me repeat that. Spooler works without 
disk. It is supplied on a cassette con- 
taining six copies of the program. Includ- 
ed on the tape are \wo copies each of the 
16K, 32K, and 48K versions of the pro- 
gram. Directions for placing the program 
on disk are included in the easily read and 
well documented instruction booklet. 

Spooler works by setting aside a user- 
defined chunk of high memory. All output 
intended for the printer is intercepted and 



sent to this area. Whenever Spooler is ac- 
tive and LLIST or LPRINT commands are 
encountered, the cursor disappears from 
the video monitor for a brief period. The 
printed output is rerouted to the reserved 
high-memory area. When the cursor re- 
turns to the screen, you are able to contin- 
ue execution of your program. You may 
even load and execute another program 
while the printer goes merrily on its way 
producing printouts. The printer contin- 
ues to run while you continue with your 
program. 

Spooler also works while in DOS. Now 
you can get a printout of your disk direc- 
tories if you do not have Newdosoroneof 
the other operating systems with a JKL 
feature. 

1 like the Indent function of Spooler. I 
tend to program using very long or multi- 
ple statement lines. It is difficult to follow 
a listing of a program which contains long 
lines because the line numbers do not 
stand out. I use Spooler to indent my list- 
ings and they become much easier to 
read. 

My Centronics 779 line printer is slow 
and my Texas Instruments 810 printer will 
not indent listings. With Spooler, my wait- 
ing on a printer is over. In short, 1 like 
Spooler. I like Mumford Micro. They sent 
mean improved version of Spooler several 
months after 1 received the original ver- 
sion. The Improved version was sent with- 
out charge and without my requesting it. I 
can only give my highest recommenda- 
tion of Spooler and of Mumford Micro 
Systems. ■ 
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WHY 

TALKING 

ROBOT 

ATTACK 




ALL GAMES ' 

i6KLevei2, Moo 1 -. Mod 3Casseiie S15 95 
32k Level 2. Mod I . Mod 3 DisMetle S19 9S 
10% discouni tof 2 games. 15% tor 3 or more 
Games may be played *ith or wittioui loysiick 




SCARFMAN 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 



A: Sofware support like this: 




TALKING 
ROBOT ATTACK 

INCREDIBLE! This amazing game actually TALKS 
wilfiout d speech synlhesizer, Ihrough ihe cassette 
AUXplug 

You are armed with |usl a hand held laser In a 
remote section of Ihe space station you encounter 
armed robots, some march towarOs you, some wait 
around corners Watch out, Ihe walls are eieciritled 
Zap as many robots as you dare before escaping 
into a new section where more robots await you 
The struggle continues. With Joystick action and 
VOICE OUTPUT, this game will amaze you 






SCARFMAN 

THE LATEST ARCADE CRAZE now runs on your 

TRS-80 

II s eat or be eaten. You control Scarfman around 

ine maze, gobbing up everything in your path You 

attempt to eai it all before the monsters devour you 

Oitticully increases as game progresses Excellent 

high speed machine language action game From 

The Cornsotl Group Wilh sound, 

CAUTION; Played with the Alpha Joystick Scartman 

may become addiclive , 




SUPER NOVA* 

AsteroiOs 'loal omiTOusl> i'ovna Hie 
screen vou musi dest'oy in« ule'o<Ds 
DeiO'e iney osslioy ygu* (Big ^steiuios 
Dted» mla iiilie ones i Vour snip wiii 
resoond 10 tfltusl rmalt, fyptrsoace 
tna )ir« Walcti o\i\ <Dr tnai saucer wnn 
me iase'' As reviewea m May 19S' Byie 
Magaime 
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GALAXY INVASION 

Ine sajna c' f'e kiaion is calling yOi,' 
invaoeis nave Deen soolled warping 
lowata Eanri ydu sri.tt nghl jno left as 
you tire you' lasers A lew oraa* torm- 
alion int\ 'ly sitaigfti al you< Vou Diace 
your Imger Dri irie tirt Ciutlon knowing 
•AM Ihrs shol musl connect' With souofl 
et'ecis' 
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AHACK FORC^ 



A. yuu' Slip .1^064'% on W% DOtlOfTi ol 

tnema;e eigtii alien slNpi appear on tne 
10D all t'avei'ng ctireclty al you' vou 
move towafO Ifiem anO tire miSSMel Bui 
me mote aliens you Qesiroy me tasiet 
me remaining ones Decome i' you gel 
too QOOO you inust enoure the Flag- 
snip ' Wilh sounc eliecis' 



THE ALPHA joystick: 
REAL ARCADE ACTION 



■ Features Ihe (amous ATARI JOYSTICK 
BWorks With any Level ll or disk system Model i 

■ Plugs directly mlo KB or E/i (next to printer port) 
HCompatiDie with any other TflS-80 accessories 
■Saves your keyboara 

■ Fun to experiment in BASIC Simply use A = INP|0) 
toread the joystick 

BFuiiy assembled, ready to plug in and use 

Price includes Alan joystick + Alpha interface + 
inslruclions + demo program The Alpha Joystick 
IS backed by an uncondiiionai money back 
guarantee it you are not delighted with il. return it 
wilhm 14 days lor a prompt and courteous refund 




COSMIC FIGHTER 



Vou' sfiip com*? 0;,! j' 'lyBe'ipdce 
«n(l»r a coni^oy ot aliens loi. aesiroy 
every one Bli anolner set ^PDears 
Inese seem mote iriieliigeni vou 
eiimmaie inem, (oo Vou' tLiei supply ". 
fliminisnmg Vou must rtesl'oy iwo "io'b 
sets DetO'e you can ooci^ The space 
station IS now on your scanner W<tn 
touna' 







METEOR MISSIONS 

Ai yLL lUO- OUWtl Ul ,iiU- m-fi 

astronauts cry out tor rescue vou mus' 
maneuver rtiiougn me aileroios & 
meteors (Can you gee Dsck to IM space | 
station^) Fire laM's 10 oesliov ine 
asie'DMs Ooi walcn out llwe couto ae 
an anen FlACiSHIP luiXiny Includes | 
SDunO ettacis' 





Toil Free 
Order Line 

(800) 
221-0916 



ADD 1 1. SO PtR OHDfR FOR SHIPPING AND HAMDIIMC 

ALL OHOERS SHIPPED fiflsr ClASS MAIL 

Wt ACCEP1 VISA MASTER CHAB6f [MICHS MO 

COD ADDS? OOEKTRA . 

OUONTnyDlSCOURIS AVAILABLf ^ff' 

NT RESIDENTSADOSALfSIAI ^ 




ALPHA Products 



>^2tO 



B5'7T 79th Street Wooahaven. NY 11421 



(212) 296 5916 
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EDTASMPIus 

Mark Chamberlin and Bill Yates 

Microsoft 

Bellevue, WA 

$29.95 

by Chris Gundtach 

Since the introduction of the TRS-80, 
those of us wishing to try our hand at 
Assembly-language programming have 
had the exceilent Radio Shack Editor/As- 
sembler which is weli Known as a good 
vaiue because of its "big assembler" fea- 
tures. Unfortunately, using the original 
EDTASM meant writing programs with the 
Editor/Assembler, saving the source code 
on cassette (for later work), saving the ob- 
ject program on cassette, and finally load- 
ing the object program and T-Bug (two 
more cassette operations that cause loss 
of EDTASM in memory). For me, all the 
cassette flipping (and the usual hassles 
with wrong volume settmgs) took away a 
lot of creative gusto needed to work with a 
machine-level program. 

Microsoft's new EDTASM-Plus isoneof 
those miracle programs that cures just 
about every hassle you might think of. If 
you are just starting to get into Assembly 
language and the inner workings of a 
TRS-80, EDTASM-Plus is just what you 
want 

EDTASM-Plus is written by Mark Cham- 
berlin and Bill Yates; Chamberlin de- 
signed the original Editor/Assembler. 
These people know the TRS-80 inside out, 
and have been in touch with this computer 
since it first came out The knowledge 
shows, since EDTASM-Plus is an incredi- 
bly complete Assembly-language develop- 
ment system oriented to the cassette 
TRS-80 user, and takes into account the 
overall design of the TRS-80, the way it 
uses memory, and so on. 

EDTASM-Plus has three important 
parts and we'll review features of each for 
you. We'll try to explain things in a way 
that new Assembly-language program- 
mers can picture. The three parts, all con- 
tained within EDTASM-Plus and loaded 
with one cassette load using System, are: 
the editor, the assembler, andZ-Bug [a de- 
bugging monitor similar in function to 
Radio Shack's T-Bug). 

The Editor 

The editor is very much like the same 
feature in the original Editor/Assembler. 
Using numbered program lines, it allows 
you to type in Assembly-language pro- 
grams in Z80 mnenomics, or code words, 
such as the command LD A, (HL) which 
loads the computer's A-reglster with the 
contents of a memory location pointed to 




III 

software 



by the H and L register pair. The editor 
stores these lines for later conversion, 
or assembly, into the actual numeric 
machine-level commands which the Z80 
chip in the TRS-80 was designed to work 
from. 

Editing features in EDTASM-Plus have 
been greatly expanded over those In the 
original Editor/Assembler Using a line- 
editing feature like the Edit function of 
Level II, you can change program lines. 
However, EDTASM-Plus also allows you 
to move any part of your Assembly-lan- 
guage program to another set of program 
lines. This saves you the headache of re- 
typing one or several lines of assembler 
code after discovering you had them in a 
bad place in your program. 

EDTASM-Plus' Editor also allows you to 
edit a given series of program lines with- 
out having to reenter the Edit function for 
every line. You just give the Editor the line- 
number series and it stays in the Edit 
mode for each of the lines. Rather than 
giving the exact range of line numbers, 
EDTASM-Plus also lets you give a starting 
line number and a number of lines to 
edit — a handy feature to use after you've 
inserted new lines that might be num- 
bered oddly. 

Using a variation of this feature, you 
can also go through your program to add 
comments to each line. Galled the extend 
function, it lets you move to each line, po- 
sitions the cursor at the end of each line, 
ready to input your comment for the line. 
After you Enter the comment, the Editor 
moves to the end of the next line— you 
don't have to retype the Edit command 
and the X subcommand for each line. 

EDTASM-Plus has the other program 
editing features of the original Editor/ 
Assembler. For example, insert lines start- 
ing at a certain number with a certain in- 
crement, replace a line, renumber all the 
lines or a part of them, delete lines, find a 
string within the assembly code, and so 
on.Together with the new line, block copy- 
ing and moving features of EDTASM-Plus, 
the new Editor is a powerful and versatile 
working tool for entering Z80 mnencmic 
code. 

EDTASM-Plus also adds a couple of im- 
portant features not found in the original 
Editor/Assembler, and which may be new 
to those familiar with original version. 



It will accept macro definitions. A mac- 
ro is something akin to a DEF FN state- 
ment in Disk Basic, by which you define a 
function that contains a number of actual 
program statements. When you call the 
function by name, the computer performs 
the steps of that function just as if you 
had written them out. Similarly, a macro is 
a block of Assembly-language statements 
that you might wish to use over and over 
again, but with different parameters or 
values within the routine. You define, or 
describe, a macro by writing out the steps 
using dummy values. The Editor remem- 
bers the steps in the macro, and whenever 
you call it by name and provide the val- 
ues—a step involving a single program 
pseudo-op line— it generates the steps of 
the macro in your Assembly-language pro- 
gram when It's assembled, 

EDTASM-Plus also allows conditional 
assembly. You may establish conditions 
that must be met for a given part of the 
program to become part of your assem- 
bled machine-language program, and if 
the condition is not true, the assembly 
just skips that part of the program as if it 
were not there. The example given in the 
EDTASM-Plus manual is a good one: You 
have a program you wish to assemble to 
fit a 4K TRS-80 and an extended version of 
the program to fit a 16K machine. Condi- 
tionai assembly lets you pluck out the 
parts you do not want to include in the 
smaller program, so that you can create 
both versions using your master program 
instead of typing in and assembling two 
versions yourself. 



''EDTASM-Plus IS 
one of those 
miracle programs. . 



EDTASM-Plus also recognizes new op- 
erators within you source mnenomics. Be- 
sides using expressions such as VIDEO 
-f40H, you can use multiplication, divi- 
sion, modulo division, and logical oper- 
ators within your source code, so that the 
Assembler will calculate and assemble 
your program correctly without your hav- 
ing to work out the expressions by hand 
beforehand. You can also use parenthe- 
ses in expressions, something that was 
not allowed in the original Editor/As- 
sembler. 

The Assembler 

The assembler portion of EDTASM- 
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Plus isthe part which reads your mnemon- 
ics and converts them to actual digital in- 
struction for Z80. EDTASM-Plus provides 
a variety of error messages and warnings 
when your program is assembled, like the 
original Editor/Assembler. 

But the original BA left you with just a 
couple of options upon assembly — record 
the program onto a cassette to reload and 
run it, or continue working in the Editor. 
EDTASM-Plus will assemble your program 
directly into the TRS-80's memory, using a 
location you choose or one provided auto- 
matically by EDTASM-Plus, so thai you 
don't have to record it on cassette to run 
and debug the program. Using Z-Bug [de- 
scribed next, and part of EDTASM-Plus), 
you can immediately run your assembly- 
language program. EDTASM-Plus gives 
you plenty of the interactive features that 
are inherent with a Basic Interpreter, and 
eliminates a tiresome and often discour- 
aging seriesof cassette loadsand reloads 
just to test a program and get it right. This 
Microsoft package assembles into memo- 
ry without destroying the Editor/Assem- 
bler itself, so you can go back to your 
source program in the Editor to make cor- 
rections and reassemble it to try again. 
Then, after the program Is the way you 
want, EDTASM-Plus will assemble the 
program for loading into any memory lo- 
cation you specify, so that you can make 
your machine-language cassette and use 
the program without EDTASM-Plus. 

The symbol table is alphabetized and 
error-codes are appended to listings in the 
symbol table tor things such as undefined 
or redefined labels. Labels used to iden- 
tity macros rather than actual source-pro- 
gram steps are also identified. 

EDTASM-Plus supports lineprinter out- 
put, as does the original BA, so that you 
can lineprint your source code with or 
without tine numbers, the symbol table, 
the assembled listing, and so on. Switch- 
es (In-line commands given when you as- 
semble the program) allow you to suspend 
or allow printouts of macros and other 
parts of the program. 

Z-Bug 

Z-Bug, the third part of EDTASM-Plus, is 
like a T-Bug whose IQ was beefed up by 
some miracle drug! Z-Bug is a monitor, a 
program that allows you to look into the 
TRS-80's memory location and change 
them if needed. You use Z-Bug to run your 
assembled machine language program, 
see what It does, make corrections and try 
again, set breakpoints, and jump back to 
EDTASM-Plus and the source program. 

Z-Bug goes beyond T-Bug in that it will 
display program steps as mnemonics 
rather than simple byte-by-byte hex num- 
bers. It's like a line-by-line disassembler 



and because Z-Bug stays resident with 
your source program and EDTASM, you 
can reference locations to be exammed 
with Z-Bug using your own symbols rather 
than specific hex memory locations. 

Z-Bug also has a calculator mode so 
you can perform hex-to-decimal conver- 
sion on-line [without disturbing your pro- 
grams or entering special conversion sub- 
routines) and even calculate expressions, 
You can ask Z-Bug, for example, to tell you 
where VIDEO -t- CURPOS + 40H is by just 
typing it like that, followed by =. Z-Bug 
will output numbers in hex, octal, or deci- 
mal, and will input numbers from the key- 
board in any base from 2 to 16. You can 
therefore use Z-Bug to type in a memory 
location bit-by-bit (10011101, for example) 
and then see what that binary number is in 
hex. decimal, or octal 

A Byte mode lets you look at individual 
memory bytes (tike T-Bug), and a Word 
mode lets you see pairs of bytes — proper- 
ly decoded from the ZBO's reversed stor- 
age format which has the low-order byte 
first. Z-Bug allows you to display memory 
locations as ASCII [character) output, too. 

Z-Bug allows eight breakpoints in your 
program and you do not have to fix a 
breakpoint after it's reached, as you do 
with T-Bug. Z-Bug also allows you to step 
through your program by single steps 
which is a lot easier than trying to test a 
program on the fly at microsecond 
speeds. 



Microsoft has included a stand-alone 
version of Z-Bug on the back side of the 
EDTASM-Plus cassette, so you can use 
Z-Bug alone. Symbolic references, of 
course, work only with a source program, 
resident with EDTASM-Plus. so the stand- 
alone version of Z-Bug can't reference 
symbols. 

Z-Bug is great just for looking at the 
TRS-80's ROM subroutines and the pro- 
gram routines in the reserved HAM areas, 
so you can learn something of how Basic 
does what it does. 

The EDTASM-Plus Handbook 

The instruction handbook is as excel- 
lent as the software itself. It's written by 
William Barden. the author of Radio 
Shack's book on TRS-80 Assembly-lan- 
guage programming, thereby making 
EDTASM-Plus a fine companion to your 
first explorations in machine language. 
Some assumption of Z80 programming 
and the original E/A are assumed in Micro- 
soft's manual, but all of EDTASM-Plus' 
new features are explained thoroughly 
and well. Microsoft even included a notice 
of a couple of obscure bugs that would 
arise in tricky assemblies, and tells you 
how to use Z-Bug to make the correc- 
tions to EDTASM-Plus and punch your- 
self a corrected tape. Needless to say, 
EDTASM-Plus obviously represents a 
huge amount of work by its programmers 
and Microsoft. ■ 



The Southeastern Textan 
Southeastern Software 
Birmingham, AL 
$40, cassette Model I 



by Dennis Thurlow 



ind a need and fill it! Yep, those six 
words are the secret to success al- 
right, and Southeastern Software has got 
a winner here! From the well written, in- 
dexed(!), easy-to-follow manual to the 
flawless execution of each and every com- 
mand, this has got to be one of the best 
thought out packages I've seen. 

The program locates Itself to the top of 
available memory, then asks If you want 
to type in, or CLOAD, a program. Either 
way, when you're ready, you have an in- 
credibly powerful editor at your disposal. 

Using the shift key and down arrow as a 
control key, there are 24 cursor control 
commands that allow you to insert or de- 
lete characters, words, or lines of Basic, 



search for any character, replace any 
character with any other, or load another 
program. The control X command puts 
you in an extended mode that allows eight 
more commands Including string search 
and replace, block delete, insert lines with 
automatic numbering, and displaying the 
amount of free memory. 

In addition to the text handling features 
there is an abbreviated keyboard. Pres- 
sing shift and any letter types a complete 
Basic command or statement. 

The repeat key feature works for any In- 
put not related to editor commands, the 
break key will abort a bad load, and the 
non-destructive cursor can be moved to 
any point on the screen using the four ar- 
row keys. Complete error messages are 
displayed on screen and thoroughly ex- 
plained in the previously praised manual, 
and programs can be merged in the buffer. 
When you exit the editor, all text is fed to a 
compiler that returns it to Basic compres- 
sion codes. 

This is a dream utility for the Basic pro- 
grammer. ■ 
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Planet Miners 

Avalon Hill 

Baltimore MD 

16K, Level II, Mode's I & III 

$14.95 

by Darren DeViglll 

lanet Miners is Avalon Hill's first ef- 
fort at a microcomputer game outside 
the strategic war genre, and is an excel- 
lent example of thorougli programming. 
While Avalon Hill Is a well established 
game company, I was a little leery of their 
excursion into the world of microcomput- 
er game design. 



pianets); display mining status; display 
ships in orbit; display ship status (yours); 
set ship destination; protest a claim; at- 
tempt to claim jump; attempt sabotage; 
finished with commands for today (not ex- 
actly my idea of an option, more like death 
and taxes). When attempting sabotage or 
to claim jump, keep in mind that the Space 
Patrol may arrest you if you are caught in 
the act. If there are no Patrol ships around 
and your opponent catches you, your ship 
crew will be detained and tortured by your 
would-be victim. The scars still show, and 
I've become a wary miner indeed. (I told 
you it was realistic). 

If you play with fewer than four players, 



"While Avalon Hill is 

a well-established game company, 

I was a little leery of their 

excursion into the world of 

microcomputer game design." 



The game's scenario is a futuristic Gold 
Rush. You have five ships, three oppo- 
nents, and a limited amount o1 mining 
claims to try for. To add realism to the 
game, the playing options include claim 
jumping, protesting claims, and (my per- 
sonal favorite) sabotage. 

The game is for zero to four players; 
zero being the computer versus itself. (The 
computer always plays in the capacity ot 
the Space Patrol regardless of the number 
of human or non-human players). All the 
play options are interactive, for example, 
jumping a claim on Pluto causes the com- 
puter to evaluate the location of your 
ships, the Patrol's ships, and the claim 
holder's ships. It also evaluates the 
finesse of these ships, each player's polit- 
ical puil, and current popular opinion con- 
cerning your family. (Each player's ships 
are considered to be part of a corporate 
family.) Those factors concern not only 
claim jumping, but just about every as- 
pect of the game, and its outcome. 

I have noticed two detachments from 
reality in the game. One is that there are 
10 planets in the solar system (the addi- 
tion being Ceres), and two, once you set a 
ship's destination, you can't alter it (after 
take off), until the ship arrives. This adds a 
degree of spice in some situations. 

There are 10 play options available: 
Large solar system (map); small solar 
system; display travel times (between 



the computer automatically assigns 
names to the other players, which are 
simulated by the computer. This may not 
seem like much, but I still hate the 
Lysanders— they win too much. 

One game rule worth special mention is 
that just because someone types their 
name in first doesn't mean they will play 




software 



first— the sequence of turns is randomly 
chosen every round. This is the only pro- 
gram I've seen with this feature. Planet 
Miners is an exceptional buy.H 




Quality Percom products are available 
from the following authorized Percom 
retailers. If a retailer is not listed for your 
area, call Percom toll free at 1-800-527- 
1592 for the address of a nearby retailer, 
or to order directly from Percom. 
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Disk Storage: If s No Place to Compromise. 



A dependable disk system 
means everything to the high- 
performance operation of your 
computer. At Percom. we know 
this. And we do something 
about it. 

For example, the connectors 
on our TFD drive systems are 
gold plated. 

Why? Because solder-plated 
contacts oxidize, forming an in- 
sidious insulation that can 
cause erratic operation. And 
then total failure. 

Gold-plated connectors are 
just one way we make better 
drive systems than the competi- 
tion. 

Now #1 for the Model III 

Quality Percom TFD drives provide more 
features, cost less. Addon drives start at 
only $439 00. Complete First Drive Sys 
tems start at only $749 95. Features: 
"Flippy" Capability — Record your 



To order producti, or for thtf name of your 
aullioriA?<l PiTcnm retailer, call toll free 



1800 527 1592 




PERCOM DATA COMPANY. INC. 

211 N KIHBY GARLAND. TE.XAS 75042 

12141272-3421 



proyrams and data on either side of a dis- 
kette Greater Storage Capacity — 

Store 180 Kbytes — formatted - on one 
bide of a 40 track TFD drive Store over 
twice as much on a TFD SO-track drive. 
Think Megabytes — Your TFD drive 
controller will handle up to four drives. 
You can access almost 1,5 million bytes 
of on line program and data files. Either 
Add-in or Add-On - Your TFD First 
Drive System can be either internal 
(add-in) or external (add-on). In cither 
case, you get a complete system in 
eluding the disk controller, drive, power 
supplies and disk operating software 
BASiC-Language DOS — Included on 
diskette with each First Drive System is 
Percom's OS 80/111" This easy-to-use 
disk-operating system loads into 7 Kbytes 
of RAM and then frees the drive for other 
use With OS-SO'" programs, you can 
have full, read-write interchangeabiiity 
between Model I and Model III diskettes. 
Or Model III TRSDOS* - TFD 40 
track drives work with Tandy's Model III 
TRSDOS. without modification. For 80 
track operation. TRSDOS can be easily 
modified with diskette patches supplied. 

Still #1 for the Model I 

Besides greater storage capacities, more 
quality control measures and lower pri- 
ces, all Percom Model I dnves are rated 
for double density operation 

Plug a DOUBLER"* in your Expansion 
Interface and enjoy the same double 
density disk storge capacity as Model III 
owners. Included with each DOUBLER is 
a TRSDOS compatible double-density 
disk-operating system. I30UBLFZAP 
programs are available for upgrading oth 
er popular DOSs for DOUBLER opera 



tion. And our double -density version of 
OS-80"* costs just $49 95 

Of course you don't have to upgrade 
your Model 1 for double-density opera 
tion to use Percom disk drives. But it's 
nice to know you can, 

Percom TFD drives for the TRS 80' 
Model 1 are available in 40-. 77- and 80 
track versions, in L, 2 and 3-driv« con- 
figurations. Prices start at $399.00. 

System requirements: Model lil TFD drives wort* 

with d Id Kbyte system (mm) atid Mtxld III BASIC 
Ttie initial dnve muM be d (Lrsl-dnve system. An op- 
rional interconnecting cable is available lot expand 
Ing wilh exlern.il dnves #3 and #4 Model I TFD 
drvcs work wilh a 16 Kbyte system (mtn) «n)u[pped 
with an EiKpanskm Inlerface. Level II BASIC and 
DOS software, and an intetconnectiny cable Two 
and four drive iiilt'iconnecting cables are available 
from Percom 



Yes I"d like to know mor*? about 
the best (or my TRS-80 computer 
Send me free literature about quality 
Percom products. 

[ i f^odel I □ Model 111 



Send to 

PERCOM DATA COMPANY. Inc , Dept 

211 N Ktfby St Garland TX 7r.042 
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phone number 
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TRS-80 Assembly Language 
Herbert S. Howe, Jr. 
Prentice-Hall, Inc. 
Englewood Cliffs, NJ 
$15.95 Hardcover, 186 pp. 
$6.95 Softcover 



by Edward D. Young III 

Learning how to write TRS-80 Assembly- 
language programs can be a very dif- 
ficult task. Unlike Basic, in which the in- 
structions bear a logical relationship to 
the operation intended, Assembly-lan- 
guage instructions usually resemble the 
names of exercises rather than computer 
operations. For example, you can Push or 
Pop a byte. Rotate or Shift a bit, etc. 
Hubert Howe, Jr., a columnist for the 
TRS-80 Monthly News Magazine, offers 
his book as a guide to understanding this 
complex, yet elegant, language. Except 
for the few reservations noted below, this 
book is a good reference for both begin- 
ning and experienced Assembly-language 
programmers. 

Howe divides his book into two sec- 
tions. Part I introduces and explains the 
basic concepts of Assembly-language 
programming. In addition to describing 
the operation of the Z80, the heart of the 
TRS-80, it explains the organization of the 
TRS-80's memory and how to use the vari- 
ous permanent subroutines which reside 
in it. 

The discussion of how certain in- 
put/output devices, such as the keyboard 
and video display, are linked to special 
memory locations is particularly infor- 
mative. Other chapters in Part I introduce 
the Z80 instruction set, the Z80 stack, and 
Radio Shack's Editor/Assembler program. 

Howe assumes that the reader has ac- 
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cess to a 16K Level 11 and has Radio 
Shack's Editor/Assembler or an equiva- 
lent assembler (such as the Apparat 
EDTASM which comes with NEWDOS + ). 

An assembler allows you to assemble 
and execute programs. If you do not have 
one you may still be able to load and ex- 
ecute the programs in this book by using 
POKE or by using a machine language 
monitor program such as T-Bug. In any 
event, the book will be clearer if you can 
assemble the sample programs and ex- 
ecute them on your own computer. This 
fact notwithstanding, the chapters in this 
section are clear, instructive, and a joy to 
read. 

Illustrating Practical Tasks 

Part 11 of the book illustrates the prac- 
tical tasks that can be performed using 
Assembly-language programs. There are 
chapters on how to input and output data 
efficiently, read a cassette tape written in 
any format, move large blocks of data, 
and perform floating-point and integer 
arithmetic. Three chapters, however, are 
particularly outstanding. Chapter 15 de- 
scribes, in great detail, how to use Assem- 
bly-language subroutines in conjunction 
with Basic programs. This chapter culmi- 
nates in the presentation ot a subroutine 
which allows the user to sort 100 alphanu- 
meric strings in less than two seconds! 

Chapters 16 and 17 discuss disk in- 
put/output and disk files. Chapter 16 con- 
tains a concise explanation, in simple 
terms, of how a disk is formatted and ac- 



cessed. It atso points out errors in the 
documentation of TRSDOS. Chapter 17 re- 
veals how to store and retrieve informa- 
tion from seven different types of disk 
files. This chapter alone is worth the price 
of the book. Using the information con- 
tained in this chapter you can read virtual- 
ly any disk, even one protected by a pass- 
word. 

On the negative side, a glossary and in- 
dex are notably absent from the book. 
Both of these items are important in an in- 
troductory guide, since beginners cannot 
be expected to retain everything they read 
the first time through. A reader trying to 
find the definition of "two's complement", 
for example, must thumb through the 
book before discovering that the defini- 
tion is on page 85. Also, there are a 
number of typographical errors in the 
book— a minor distraction. Finally, this 
book is not typeset in the usual manner. 
Rather than using the easy-to-read type- 
face found in most books, the author 
proudly announces that this book was 
composed and printed using a Diablo Hy- 
Type I printer with a Model I. The author 
probably thought that it was a good il- 
lustrative example to use a computer to 
write a book about computers; I found the 
print hard to read. 

Nevertheless, I think this book wil 
prove valuable to TRS-80 owners. It is writ 
ten specifically for the TRS-80; it takes ad 
vantage of the short-cuts and features de 
signed into the '80; and it provides helpfu 
hints of practical importance to program 
mers.l 



The Nature of Computation: 

An Introduction to Computer Science 

Ira Pohl and Alan Shaws 

Computer Science Press 

Rockvllle, MD 

Hardcover, 366 pp. 

$16.95 

by Joel Benjamin 

he Nature of Computation: An Intro- 
duction to Computer Science is a rig- 
orous introductory textbook to computer 
science and is for anyone just beginning 
in the field. 

The authors have used preliminary 
drafts of this book as the text in college 
classes over the past ten years. They state 
their objective is to provide the following: 

1. A survey of the field; 

2. initial literacy of the language and 



methods found in computer science, 
and; 

3. A historical, philosophical, and so- 
cial perspective. 

The authors have succeeded admirably in 
achieving these goals. 

Algollc 

The book has been organized logically 
and coherently. First, we are presented 
with a taste of what programming is like 
with the use of a machine-independent, 
high-level language known as Algolic. It Is 
similar to Pascal and is particularly suited 
to expressing and executing atgorithms. A 
number of well-known algorithms are ex- 
amined, and we are shown how to express 
them in Algolic. 

An Account of Techniques 

We are then treated to an interesting 
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account of the development of computa- 
tional techniques from the abacus to the 
intricacies of the structure of a modern 
computer. Along the way, number bases, 
floating point numbers, strings, arrays, 
Booiean algebra, hardware components 
and circuits, digital logic, and computer 
architecture are all presented and ex- 
plained in a remarkably lucid fashion. 

Programming languages and operating 
systems are then explored. In this section 
we get an insight into the relationship be- 
tween high-level, Assembly, and machine 
languages; the use of compilers, inter- 
preters and assemblers, and the various 



examples of different languages suited to 
particular programming needs. 

Next, the authors introduce us to the 
theory of Turing Machines, computability 
and algorithms. 
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Thebookends very appropriately with a 
discussion of the social and ethical ques- 
tions raised by the various ways in which 
computers are used in our society. 

There is a set of comprehensive excer- 
cises and questions at the end ot each 
chapter as well as suggestions for addi- 
tional readings. These aids, along with the 
comprehensive nature of the text, make 
The Nature of Computation ideal as a text- 
book in an introductory college course. 
But it can also be used by an individual 
who wants a painless and clear introduc- 
tion to computer science, which can be 
read on his or her own.H 



DIP-81 
DIP, Inc. 
Boston, MA 
$499 

by David Tinis 

Aside from the computer itself, the sin- 
gle largest purchase a hobbyist 
makes is a printer. Just one year ago a us- 
able impact printer retailed for at least 
$1,000, But that is changing. By flipping 
through the ads in any of the magazines 
it's evident that a printer price war is rag- 
ing. With that in mind, I went out to find a 
low-cost, reliable, well built printer, I final- 
ly settled on the DIP-81. It seemed to offer 
the best value for the price. 



The DIP-81 is an impact printercapable 
of printing 100 characters per second bi- 
directionally on an SO-character line. It 
can use rolls, fanfold or single sheets up 
to 8.5 inches wide. Paper feed is by friction 
roller only. The normal print mode is a 7 by 
7-dot matrix but can be expanded under 
software control to a 14 by 7 matrix. 

The DIP-81 is not a marvel of advanced 
technology. It uses proven parts to ac- 
complish a simple task— print. The unit is 
built on a steel chassis to which all 
subassemblies attach. Covering it is a 
single-piece shell of durable plastic. The 
funny bulge on the right covers a cooling 
fan that directs air over the electronics 
and the print head. The print mechanism 
is manufactured by the Two Day Corpora- 



tion and uses a single ac synchronous 
motor to drive both the print head and 
paper feed mechanism. The print head 
itself is a seven-wire design that has a 
rated life of 100 million characters. I was 
already familiar with this print head when 
I started looking at the DIP-81, The rest of 
the mechanism is rated for 10 million lines 
of printing. 
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Electronically the DlP-81 is just as sim- 
ple. All components except the power 
transformer, bridge rectifier and cooling 
fan are mounted on a single P.C. board. 
Overseeing operation is an 8035 micropro- 
cessor with the control program in a pair 
of 2708 EPROMs. An 8155 RAM-l/0 con- 
troller round out tfie large scale ICs. Toss 
in a half dozen TTL parts, some voltage 
regulators and lheTIP122 hammer drivers 
and you have a simple but efficient de- 
sign, A quick note about the Tl PI 22s: They 
were chosen because of their ability to 
drive inductive loads without the need for 
clamping diodes to suppress the induc- 
tive kickback of the print hammers, a sign 
of good design practice. 

A parallel Centronics interface is stan- 
dard with the unit though a serial RS-232 
interface is available on the P.C. board as 
an option. Interestingly enough, simple 
conversion instructions are included in 
the operation and maintenance manual, 
but conversion by 'a non-authorized per- 
son voids the 90-day warranty. 

There are three operator controls and 
two indicators on the front panel plus the 
on/off switch on the back panel. From left 
to right the controls are TOP (top of form), 
SEL/DESEL (select/deselect) and Line 
Feed. Since the DIP-81 doesn't have a sep- 



arate paper feed motor, pressing TOF ini- 
tiates a series of line feeds. At power-on, 
the printer assumes the paper is already 
at top of form. It then counts lines and if a 
TOF command is encountered, it ad- 
vances to the next logical top of form and 
resets the line count. Line Feed initiates a 
single print cycle during which nothing is 
printed, although the print head travels 
across the paper. Again this is a result of 
using a single motor for all mechanical 
functions. It also explains why the DIP-81 
is a bi-directional printer. You never know 
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on which side of the printer the print head 
will start or stop. Having a synchronous 
motor instead of a more position-precise 
stepper motor also causes a slight col- 
umn misalignment during printing. SEL/ 
DESEL determines if the printer is ready or 
not, if it is, the red select indicatordirectly 
above the SEUDESEL switch will be on. In 
the deselected mode you can use the 
DIP-81's self-test feature. Pressing Line 
Feed and TOF simultaneously causes the 
printer to display the 96 ASCII characters 
it is capable of printing. The final indicator 
is power-on located directly above Line 
Feed. 

I ordered my DIP-81 with the parallel in- 
terface and connecting it to my LNW Ex- 
pansion Interface was no problem. I did 
cut line 33, printer chassis ground, to 
avoid its being connected to signal 
ground in the expansion interface. The 
unit powered up and operated properly 
the first time i tried it. The DIP-81 lists for 
$499 but, like all current printers, is being 
discounted, 1 got mine for $395 and have 
seen it advertised since at $379. In 
retrospect I am quite satisfied with my 
DIP-81 . While I wouldn't recommend it for 
highest quality business applications, I 
do feel it makes an excellent printer for 
the personal computer owner, ■ 



Home Compuier Work Table 
Computer Roomers, Inc. 
Dallas, TX 
$179.95 

by Dan Keen and Dave Dlschert 



When microcomputing was "just a 
hobby", we were content to stick 
the computer in a back room of the house. 
But then we became computer-holies, 
never leaving the machine except to eat, 
and go to work. So, we centrally located 
our TRS-80 in the living room. 

Now we needed to solve the problem of 
whattoset it on, WehaveaDaisy Wheel II 
which develops a lot of torque and re- 
quires a table of steady support, prefer- 
ably one made out of cast iron or con- 
crete, Daisy is also very wide, which 
makes placement difficult in some areas 
of the room. 

Since the unit was to be placed in a very 
visible part of the house, it needed to be 
decorative. 

So the criteria for our table was that it 
had to be firm, well built, be able to pro- 
vide a home for peripherals, and provide a 
work space. It had to look nice and most 



of all, since we are cheapskates, it had to 
be reasonably priced. 

This describes a new computer table 
from Computer Roomers, Inc, which has a 
nice walnut wood grain look with black 
trim. 

The unit came in a box and though it 
was only about three inches deep, it was 
wide and heavy! {Plan on inviting a friend 
over the day you expect delivery,) It was 
packed extremely well, using big pieces of 
custom cut styrofoam. 

We found that the shelf which is at the 
rear of the table and runs along its entire 
width is the exact depth of our Shack disk 
drive as well as a friend's Apple drive, and 
we would assume most 5-inch disk drives. 
This shelf (called a video shelf) is a real 
plus since it gives you more room on 
which to place items and yet doesn't take 
up any more space in the room. The video 
monitor fits well on the shelf also, along 



"We. . .en/oy 
our new table.' 



with four drives and cassette recorder 
(your monitor can't sit on that interface 
any longer). Personally, we found this 
preferable to desks which have a shelf un- 
derneath to house only the drives. Fre- 
quently we have more than one person sit- 
ting at the console, and this table has 
plenty of leg room. 

An open space along the rear allows for 
cables and wires to be routed neatly out 
the back. 

It'ssoeasy to put together "even a child 
can do it" . , , well almost. It took about 20 
minutes to assemble. They say "no tools 
needed," but we did need a hammer to tap 
a few sectors into their locked position. A 
wide blade screwdriver is required for 
disassembly. 

While the instruction manual pictures 
the desk with two "wing" extension 
shelves, it is apparent that only one at a 
time can be used. We assembled two 
tables, and both were missing the neces- 
sary "shoulder screws" that mount the 
second side. So, although a left and right 
wing come with the unit, plan on only us- 
ing one or the other. 

We thoroughly enjoy our new table, but 
some computerists may find its lack of 
drawers a slight disadvantage. ■ 



80 Microcomputing, October 1981 • 39 



^0 REVIEWS 



UCSD Pascal Compiler 
FMG Corporation 
Fort Worth, TX 
$250 

by Dennis Thurlow 

First, will all of you who program 370's 
for a living, and are only reading tfiis 
to find out about "little" computers, 
please wait on the other side of the room? 

Now, I did that because those guys 
would laugh if I called Basic a language 
because, in fact, it isn't! Basic is a code 
that must be interpreted by a large ma- 
chine-language program called (appropri- 
ately enough) an interpreter. Usually an 
editor of some kind is included to help you 
build the code, make changes if neces- 
sary, and save the code to a storage med- 
ium, 

A real language, on the other hand, is 
used by a compiler to generate machine 
code that is directly saved to disk or tape, 
or automatically executed. Since the sys- 
tem was never meant to be interactive, no 
editor is included and the program is 
usually punched onto cards and fed into 
the computer. 

Let me also point out that there are ex- 
ceptions to the rule. There are Basics that 
compile, and versions of languages, such 
as Cobol, that run on interpreters. And 
then there is Pascal. 
TTie Language 

Pascal incorporates all the standard 
programming features found in most lan- 
guages, but the syntax is much easier to 
learn. Example 1 presents a typical Pascal 
program and Example 2 Is the same pro- 
gram in a non-structured format. Both run 
identically, compile to the same number 
of bytes, and follow the same syntax 
rules, as laid out in the syntax tables in Ex- 
amples 3-5. 

Example 3 indicates that a program 
must start with the word Program. Any 
time a word or character appears in a bal- 
loon (rounded corners) it must be entered 
literally. You can see that the word Pro- 



PROGRAM TEST (OUTPUT); 
BEGIN 
VAR 

X. INTEGER; 
REPEAT 

WRITE(X,'SQUARED = '.SaRfX)), 
WRITELN(THE SQUARE ROOT OF'.X.'.SQRTpC)), 
UNTIL X>100; 
WRITELNCDONEl 
END 

Example 1. 



gram is in both Examples 1 and 2. 

Next an identifier is required. The 
square corners indicate that options are 
available and that there is probably 
another syntax table to define those op- 
tions. In this case Example 3a is the syn- 
tax table for identifiers. In Example 1 the 
identifier is the word Test. 

The identifier in parentheses usually 
defines whether I/O is going to be used. 
Note that all statements in Pascal end 
with a semicolon. The program itself ends 
with a period. 

Example 4 is the syntax table for a 
block. It provides for variable definitions 
and the procedures used in Examples 1 
and 2. To define a statement you must use 
the syntax table in Example 5. You can 




also define procedures and functions that 
will be used repeatedly. 

Structuring is important when you de- 
velop large programs that someone else 
may have to maintain, or that take so long 
to write you forget what was going on in 
the different sections. Professional pro- 
grammers, in particular, tend to favor 
structured programming, particularly 



PROGRAM TEST (OUTPUT); BEG IN VAR X INTEGER.REPEAT WRITE(X, 
SQUARED = '.SQRIXjj.WRITELNCTHE SQUARE ROOT OR-.X/IS', 
SQHT(X));UNTIL X>100;WniTELN('DONE1END, 

Example 2. 
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when it is this easy! 

The FMG package is on three disks. The 
modules are arranged to ailow for maxi- 
mum free space on the disk, which is 
usually about 30K. Interaction with the 
user is achieved with a command prompt 
line upon boot up. From this the user can 
call up: 
1. L(ink): The linker grafts routines from 
the System Library to the program that 
is to be compiled. You may also link to 
machine-language routines that you 
have written yourself! The advantage of 
this is that only those routines that are 
necessary to run the program are 
linked. This results in a tremendous 
saving of space and lime. 
Z C(omp): The compiler saves the com- 
piled program to disk. 

3. X[ecute): Execute a program that is al- 
ready linked and compiled. 

4, R(un): Compiles a program that has 
been linked, and runs it instead of sav- 
ing it. 

5- F(lle): The filer handles all the disk I/O 
that a DOS would take care of in oth€ 
interactive systems. This is one of th 
two routines added by UCSD to make 
Pascal interactive. 

6. E(dit): This editor is specifically for 
constructing Pascal code. By inserting 
a different disk you could call the editor 
for the assembler, also supplied. The 
keyboard is debounced, but is a little 
slow, 

All themodules work very well, and gen- 
erate nice, compact code, compared to 
Microsoft's Basic compiler, for instance. 
The program in Example 1 takes 1407 
bytes of code when compiled and linked. 
This may appear to be quite a bit when 
compared to the 198 bytes of Pascal code, 
but remember that most the overhead is 
constant, and as your programs get 
longer, the overhead gets less significant. 
And it's still quite a savings over the 14K 
the same program takes compiled with 
Microsoft's Basic compiler. 

The Documentation 

The sore point of the package is the 
documentation. The manual is a 284-page 
looseleaf folder. It was written to supple- 
ment a teacher's instruction, and doesnof 
teach you Pascal. You must know Pascal 
or be learning it from another text (or 
teacher) to use this compiler. 

Another problem is that the manual is 
the same one used with the PDP-11 and 
CP/M versions of the package. Most of the 
examples and tables are useless unless 
you keep flipping back to the additions in 
the front of the book. And, lest you get 
your hopes up, let me say that there are 
only seven of those pages. ■ 
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by William Barden, Jr. 



"Look on these next two columns 

as a sort of "Cliff Notes" about 

*he boo^—^ supplement to those six pages." 



'm currently reading Going Ahead With 

Extended Color Basic. I was even 
amused by the drawings of the Coior 
Computer with legs, the result of in- 
breeding in the Radio Shack computer 
line. Everything was fine until I got to 
page 144. Even though It was an exciting 
plot, the next six pages took several days 
to get through. Look upon these next two 
columns, then, as a sort of "Cliff Notes" 
about the book — one that you can read to 
supplement those six pages. 

These columns are meant to give Color 
Computer assembly language users 
some hope. Model I and 111 users may 
wish to read them to see how the 6809 
compares to the Z80. 

First let me say that the Extended Coi- 



or Basic book is very well written— 
Jonathan Ericson at Radio Shack de- 
serves credit. The book Is geared to the 
first time user, and it's very difficult to 
present detailed machine language 
information in six pages. 

We'll start from the ground up, so the 
first-time Basic programmer may be able 
to get into machine language program- 
ming with a minimum of grief. Experi- 
enced programmers, bear with me for a 
while. 

6809 Machine Language 

The Color Computer uses the 6809 
microprocessor which is an upgrade of 
the popular 6800. Both microprocessors 
are manufactured by Motorola. The 6809 
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Machine vs. Assembly-Language 





instructions include the 6800 instruc- 
tions as a subset on an assembly 
language level. 

This means that both instruction sets 
would have similar instruction 
mnemonics, such as CLRA, for Clear A, 
but that the binary value for instructions 
might be different between the two. One 
important implication of this is that you 
can't pick up the macft/necoi^e for a 6800 
program and run it on the Color Com- 
puter—it probably won't work. You might 
be able to pick up the assembly-lan- 
guage code for a 6800 program, however, 
feed it into the Color Computer 
assembler, and get resulting object code 
that works. 

A sample of 6809 machine language is 
shown (n Fig. 1. This happens to be a 
short segment of code that will divide the 
contents of a 16-bit value by two. The 
code is in hexadecimal, which is a short- 
hand way of representing binary data. 
One hexadecimal digit represents four 
binary digits, or bits. Two hexadecimal 
digits represents two groups ot four 
binary digits. 

The basic number of bits in the Color 
Computer and 6809 is eight, constituting 
one byte. All memory and CPU opera- 
tions generally transfer data and perform 
operations on eight bits or one byte of 
data. Eight bits can hold binary values of 
00000000 through 11111111, the decimal 
value of through 255, or the hex- 
adecimal value of $00 through $FF. The 
prefix $ is used in the 6809 and other 
microprocessors to indicate that the 
following data is in hexadecimal. Basic 
uses &H in lieu of the $. 

!f you're hazy about binary and hex- 
adecimal, you'il havea tough time follow- 
ing anything from this point. Proceed as 
follows: Go to a chapter on binary and 
hexadecimal in any basic computer text 
and practice some conversions between 
binary, decimal, and hexadecimal. You 
don't have to spend hours In practice, but 
get a nodding familiarity. 

Back to the machine language ... A 
machine language instruction consists 
of one, two, three, or four bytes of data 
that the 6809 will recognize as an instruc- 
tion. The instructions will range from 
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such simple operations as putting a zero 
into a CPU register, on up to a multiply. 
The instructions from Fig. 1 are shown in 
Fig. 2 with the operations they represent. 

Assembly Language for the 6809 

Fig. 2 shows the machine-language 
codes on the left, and the equivalent 
assembly on the right. The mnemonics 
are just what they sound like (from 
f^flnemosyne, the Greek goddess of com- 
puter writers) — abbreviations for 6809 in- 
structions. For example, it's much easier 
to write LDX instead of Load the X 
Register. 

The mnemonics for the instructions 
are called op codes, short for operation 
codes and are in the second column of 
the assembly language. The third col- 
umn figure is the operand column. Cer- 
tain instructions require no operands, 
while others require several operands. To 
transfer data from a memory location to 
the X register, for example, an LDX $2000 
would have the mnemonic LDX and an 
operand of $2000. 

The first column of the assembly 
language represents a label field. The 
location of an instruction might be la- 
beled with a label such as LOOP and 
subsequent instructions could refer to 
the location by the label, rather than an 
absolute address, such as BEO LOOP, 
which would be a "Branch on Equal to 
location LOOP." 

The last column holds applicable com- 
ments. 

The portion of the figure representing 
the labels, op codes, operands, and com- 
ments field in Fig. 2 is the assembly 
language. The portion on the left with the 
hexadecimal values is the machine 
language. The assembly language code, 
called the source code is translated into 
the proper machine language by an 
assembler program for the Color Com- 
puter. (By the time you read this, the 
Radio Shack Color Computer assembler 
should be out.) The assembler decodes 
the symbols into the proper machine 
language instructions. 

Not only is it possible to translate from 
assembly language into machine lan- 
guage, but it's possible to go the other 
way, from machine language into assem- 
bly language. A disassembler program 
will examine a machine language pro- 
gram and produce the mnemonics and 
operands. There are several disassem- 
blers available currently for the Color 
Computer. 

Hand Assembling 

In the remainder of this discussion 
we'll be using examples of machine 



language rather than assembly language. 
It is possible to bypass an assembly pro- 
cess by doing hand conversion of what 
looks like assembly language code. An ex- 
ample Is shown in Fig. 3. The instructions 
are first written down with their op codes 
and operands. Next, each instruction is 
"roughed out" as far as the number of 
bytes in the instruction. Next, the op code 
values are filled in, followed by the values 
for the operands. 

This process Is not a simple one. It re- 
quires a good book on the 6809 instruc- 
tion set, and some study about the CPU 
registers, instructions, and addressing 
modes. The bible for this instruction is not 
Barden, or Leventhal, or Warren, but 
Motorola. Motorola's MC6809 Preliminary 
Programming Manual is available from 
Motorola Semiconductor Products Inc., 
3501 Ed Bluestein Blvd., Austin, TX 78721. 

Next let's make certain we know some- 
thing about the internal architecture of 
the 6809. The 6609 chip has a number of 
registers. A register Is nothing more than 
an eight or 16-bit memory location that is 
located in the CPU, rather than in RAM 
memory. 

The registers are assigned names that 
are related to their function. Fig. 4 shows 
the 6609 registers that are accessible to 
the programmer. There are other registers, 
of course, but we'll leave an excruciating- 
ly detailed account of the internal opera- 
tion of the memory fetch cycle and the 
associated registers to Adam Osbourne. 



6609 Registers 

The A and B registers are eight-bit 
registers that hold the results of 
arithmetical, logical, and other types of 
operations. They are called ac- 
cumulators, and are used to process 
data by adds, subtracts, shifts, exclusive 
ORs, and so forth. A and B can be lumped 
together to form one 16-bit register 
called the D register to allow operations 
on 16 bits at a time. 

The PC is the Program Counter 
register. It points to the next instruction 
byte. For a machine language instruction 
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of three bytes, the PC will increment 
three times as the three machine 
language bytes are assembled In the 
CPU. This Is the fetch cycle. At the end of 
the fetch cycle, the PC points to the next 
memory location, ^«hlch must hold 
another Instruction, 

At the end of the fetch cycle, the 
assembled instruction is executed. This 
might involve reading an eight or 16-bit 
operand from memory and adding it to 
the A register, loading the B register v^ith 
the contents of the A register, or many 
other operations. The fetch and execute 
cycles are executed automatically with 
each instruction— for the time being, 
simply forget about the two separate 
parts of an instruction. About the only 
consideration Is that more involved in- 
structions take longer to execute; this Is 
sometimes a factor when you're figuring 
out timing loops or trying to speed up 
programs. 

The S, or Hardv/are Stack Pointer, 
points to the stack area of memory. 
Stack can be located just about any- 
where the programmer desires {ROM is a 
bad choice). Usually 100 bytes of stack is 
sufficient. The stack (see Fig. 5) is an 
area used to store return addresses for 
subroutine calls, temporary data from 
the CPU registers, or Interrupt ad- 
dresses. Branching to a subroutine 
saves the return address on the stack, for 
example, and a subsequent RTS, or Re- 
turn from Subroutine, Instruction re- 
trieves the return address from the stack. 
The stack builds down from high memory 
to low memory as addresses or data is 
pushed onto It. 



The U register, or User Stack, Is a 
second stack pointer that points to a 
user-specified stack. The S register is a 
hardware stack, since it is related to the 
built-in hardware functions that store 
data in the area pointed to by S, such as 
"branching to subroutines." The U stack 
area may be redefined constantly for the 
programmer's convenience. 

The X and Y registers are Index 
registers. They are used to point to the 
location of memory operands. Operands 
beyond or prior to the pointer may then 
be easily accessed by an indexed-type In- 
struction, such as "LDX -t-20,X", which 
loads the contents of a location pointed 
to by the index registerp/us 20 locations. 
The X and Y registers are continually 
loaded with new values as new blocks of 
data are accessed. 

The DP, or Direct Page register, is used 
to define pages of 256 bytes. This is an 
optional addressing mode that allows 
shorter instructions (using less memory 
and time). We won't be using this mode in 
the examples here. 

The Condition Code register is an 
eight-bit register that is really a con- 
glomeration of eight bits. These condi- 
tion codes are set (1) or reset (0) accord- 
ing to the actions of certain instructions. 
The Z condition code, for example, is set 
if the result of an add (and many other in- 
structions) is a zero. The condition codes 
may be tested by conditional jumps and 
branches that follow the operations. This 
is the main way of altering the path of a 
program. A "BEQ $2000", for example, 
branches to an instruction at location 
2000 hex if the result of the last operation 
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was zero; If the result was not zero, the 
next Instruction after the BEQ is ex- 
ecuted. 

On to the Six Pages 

Well, we're finally there: The first 
machine language related Basic com- 
mand to consider Is Clear. The format of 
Clear is: CLEAR XX.YYYYY. 

The XX represents the decimal number 
of bytes to reserve for string storage. The 
YYYYY represents the area of memory to 
be reserved for machine language pro- 
grams. Typically, a "Clear 100, YYYYY" 
would be tine, unless your program has a 
lot of string storage. The YYYYY is a 
number that protects RAM beyond a cer- 
tain point. For our purposes we'll use a 
YYYYY of $2000, which is 8191 decimal. 



This will prevent Basic from using 
anything above memory location 8191 for 
stack or string storage. This leaves about 
379 bytes of memory for Basic programs 
and variables, which Is somewhat on the 
sparse side but enough for our purposes. 
A memory map for the Color Computer 
is shown In Fig. 6. Note that Color Basic 
is above the Extended Color Basic, that 
video memory starts at $400, and that 
page 0, 1, 2, and 3 is used for variable 
storage. Also interesting is the fact that 
the Color Computer uses high-memory 
addresses to address various functions 
tor graphics functions, sound genera- 
tion, serial data, and the like. 

Stack Area 

We won't explicitly set the S register to 
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a slack area rn the following examples It 
IS set In Basic, and points to a 30-byte 
slack area. Unless you're doing a lot of 
processing, it's not necessary to rede- 
fine it by a load of ttie stacif pointer in 
your program. 

The DEFUSRn Command 

The next machine language related 
Basic command we'll tackle is 
DEFUSRn. DEFUSRn is unsophisticated; 
It simply tells the Basic interpreter where 
a user machine language subroutine will 
be located. The n may be any decimal 
value from zero through nine, allowing 
for 10 unique machine language sub- 
routines. 

Suppose we had a machine language 
subroutine for division at location $2000 
(8192 decimal) and another to find the in- 
teger solutions to A^ + a" = C** (see 
Fermafs last theorem) at location S2100 
(6448 decimal). We could define the lo- 



"/ was amused by 

the Color Computer 

with legSt a 

result of inbreeding. . . " 



cations by: 100 DEFUSR0 = &H2000: 
DEFUSR1=&H2100. 

From that point on in the Basic pro- 
gram, the ID number of zero would be 
associated with the divide routine and 
the ID number of one with the Fermat 
processing. The ID numbers would be 
used in conjunction with a USRn call to 
call the subroutines as required from the 
Basic program. For example. 1300 
A = USR1 (0) would can the Fermat proc- 
essing routine. The machine code would 
be entered by USRl in statement 1300. 
and. after processing was done, a return 
would be automatically made to the 
Basic statement following line 1300. 

This is probably a good point to deter- 
mine what type of machine language 
subroutines should be called: any type. 
Whatever proves useful from a Basic pro- 
gram—subroutines that are often called 
and that can do things faster than the 
equivalent Basic code, such as sorts of 
strings, serial I/O. or number crunching. 
Furthermore, the subroutines may be 
any size, from two or three instructions, 
up to thousands. In addition, the sub- 
routines may even be ROM subroutines 



I 



ii 



T? 



A* 




1 BOUGHT IT 

My biggest loss 
or programming 
time using 
Snappware's 
AUTOAAAP and 
AUTOFILE is 
spent Inserting 
my dishette. ' 



When worKIng with direct files or creating a rormatted screen. 
Autorile and Automap are indispensible aids. 

AutoFile IS designed to autonnate for the BASIC programmer the 
tasK of moving data elements to and From a direct file. Pre 
viously. this was a time consuming chore because the FIELDed 
variables may not be directly referenced by user logic. The FIELD 
statement was eliminated, thereby relieving you of the guessing 
game as to where the FIELDed variable is. In addition, the CHR$ 
and the A5C function references are performed automatically. The 
software, when installed, becomes part of your BASIC interpreter 
providing the enhancements without additional memory or disk 
space. 

Automap is designed to automate for the BASIC programmer the 
tash of presenting information on the video display and accepting 
information from the keyboard operator. The software consists 
of two main components: the OFF LINE COMPONENT used to 
descnbe to the system the screen formats and the ON-LINE COM 
PONENT from within your BASIC program to initialize a screen, 
send data to the video display and receive data from the keyboard 
operator. This facility when installed, becomes part of your BASIC 
interpreter providing the enhancements without requiring any 
additional memory or dish space. 

Both products compliment one another and if used in conjunction 
can save up to 75% of your programming time. 

If you consider your programming ume to be worth money, call 
us and let us show you how to get more of it. 



Automap 



Autofile 



Mode) II 
Model III 

Modem ... 

Model III . 



SIOO.OO 

S 75.00 

S 75.00 

S 60.00 









Time saving power 
at your Fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS 

CALL COLLECT: (SI3) 891-4496 

37l9Mantell 

Cinti.. Ohio 45236 
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in Basic ROM that are convenient. One 
exampte of this is the cassette sub- 
routines in ROM that allow the user to 
construct his own cassette tape files. 
Larger programs thai operate only in 
machine language can be loaded and ex- 
ecuted by the CLOADM command, fol- 
lowed by EXEC. We'll give these only a 
passing mention in this article, as they 
are usually large dedicated assembly 
language programs. 

The Simplest USR Call 

We're finally at a "real" USR call. The 
Basic code shown in Program Listing 1 
defines the simplest call to a machine 
language subroutine. The subroutine in 
this case consists of a single instruction, 
an RTS, or "Return From Subroutine," 
shown in Fig. 7. The RTS must terminate 
every machine language subroutine. It 
POPs the return address of the Basic 
USR processing code from the hardware 
stack and causes a return to Basic. All 
we've really done here is define a machine 
language subroutine at $A936 and call it 
by the USRO. The subroutine is repeatedly 
called by a GOTO 200. 

The call was made with two dummy 
arguments, zero and A. The argument of 





100 


DEFUSR0-&HA936 






200 


A = USBO(O) 






300 


l = U1 






400 


PRINT 1 






500 


GOTO 200 




Prograrr 


Listing 1. Simplest 


USRn 


Call. 









100 OEFUSRO ^ 8iHA92e 
2O0 A = USBO(0) 
300 GOTO 200 

Program Listir}g 2. Calling a ROM 
Subroutine 



A931 8C 05FF 
A934 23 F9 



A936 39 



CMPX »1535 

SLS SA92F 



RTS 



Single RTS 
Instruction 
At Location 
SA936 



Fig. 7. Simplest Subroutine 



zero within the parentheses is the input 
argument. A pointer to its location is 
passed to the subroutine. The argument 
of A is the output argument, A possible 
value from the subroutine is returned in 
variable A. Both these arguments are 
dummies in this case, as the subroutine 
does not require an operand to be passed 
to it; neither does it return an operand. 
Use zero for the input and any variable 
for the output argument as dummies; if 
you don't, you'll get a nasty message 
from the Basic interpreter. 

Multiple USRn Calls 

Next, we'll tackle two USRn calls. Pro- 
gram Listing 2 is a Basic program that 
defines two machine language sub- 
routines, one at $A936 and another at 
$A7D7. Both are one-instruction sub- 
routines consisting of RTS instructions 
in ROM. Here again, the locations are 
defined, and repetitive calls are made to 
each subroutine, 

A ROM Subroutine Call 

Program Listing 3 shows a call to a 
ROM subroutine at location $A928, From 
a disassembly, I found that this code 
clears the screen. The call with two dum- 
my arguments repetitively executes the 
machine language code to clear the 
screen. 

Passing Arguments to the Subroutine 

Those of you making snide noises 
about simple writers, you're about to get 
your comeuppance . , . 

Let's look at how an argument is 
passed to a machine language sub- 
routine. Two sentences in the Extended 
Color manual have implications that 
Adam Osbourne couldn't explain even 





Hex 


Decimal 


Code 


Machine Code 


Machine Code 


STA S2000 


B7 2D0O 


183,32,0, 


STX $2001 


BF2001 


191,32,1, 


RTS 


39 


57 


Fig. 6. Store A/X Program 





100 


DEFUSHO = 


8,HA936 






150 


DEFUSR1= 


g.HA7D7 






200 


A=USRO(0) 








250 


A = USH1(0l 








300 


l = l»1 








400 


PRINT 1 








500 


GOTO 200 






Progra 


m Listing 3. 


Multiple 


USRn 


Calls 
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Ai 



yj 



with timing charts . . . 

According to the manual, the USRn 
call results in the A register being loaded 
with a code for the type of argument and 
the X register being loaded with a pointer 
to something called a "floating-point ac- 
cumulator." What does this mean? How 
did we suddenly go from no arguments to 
floating point? 

To see what is happening, we'll use our 
first hand-assembled program, shown In 
Fig. 8. Thts three-instruction program 
stores the contents of the A register into 
location $2000 and the contents of the X 
register Into locations $2001 and $2002. 
The last Instruction Is the ubiquitous 
RTS. We can use this gem to see how A 
and X look upon entry to the machine 
language program. The Basic program in 
Program Listing 4 shows the approach. 

The values (or the three Instructions 
are first converted to decimal, a total of 
seven bytes. The code will occupy RAM 
locations $2003 through $2009. The 
Basic statements use a data list ot the 
values, a Read and a POKE to move the 
values from the data list to RAM. Next, a 
call Is made by USRO(O). This call ex- 
ecutes the three instructions, which 
store A and X. The last three Basic 
statements print location $2000 (A), and 
locations $2001 and $2002 (X). 

When this program is run. we see a 
display of 0, 0, and 79. indicating that the 
A register held on entry and that X held 
0,79, or 79. (The first value for X is the up- 
per eight bits, while the second is the 
lower eight bits; together they constitute 
the entire 16 bits of X.) 

The in A indicates a numeric argu- 
ment, according to the Extended Basic 
manual. The 79 is a "pointer to the 
Floating-Point Accumulator which con- 
tains the argument. " What's in location 79 
and what is its format? 

We'll answer these questions and 
more when we continue with the "Saga 
of the Six Pages" in next month's col- 
umn. Stay tuned to 80 Micro. ■ 



100 


DATA 183.32,0,191,32.1.57 


105 


DEFUSRO = &H2003 


110 


FOR 1 = &H2003 TO &H2009 


120 


READ A 


130 


POKE I.A 


140 


NEXTI 


150 


A = USR(O) 


160 


FOR 1 = &H2000 TO &H2002 


170 


PRINT PEEK(I) 


180 


NEXTI 


Program Listing 4. Basic Program to 


Analyze A/X 



r. 



i' 




1 BOUGHT IT 

"AAy biggest loss 
oF programming 
time using 
Snappware's 

EXTENDED BASIC 

is spent 
inserting 
my diskette." 

SCOTT ADAMS PRE5 OF ADVENTURE INTl 



Reduce your progrdiTiming tiinp up to 75% ustnt] Snappwdres 
EXTENDED BASIC. The program ts written entirelg in machine Ian 
quaqe Tor Super Past execution and is Tully integrated into the 
Model II BASIC interpreter, requiring no user memory and no user 
disK space. Here are just some of the ways EXTENDED BASIC can 
mahe your programming tasK easier: 

OuicK way to recover BAStfjjnw|gtfB|j|Hn^Q ^ New. System 

or Accidental re boot. T^^^^-^' ""^■' 

• Single character ahDjj|^|iaie For the most frequently used 
commands. '•^^Ww* 

• Six single hegstroKe commands to list the hrst. last, pre 
vious. next or currer^pragram line. Even edit current line. 

• A powerful cro^illfTOnce facility with output to display 
and or pnnter. 

• Ability to trace a variable through the code. 

• Determine easily if a variable is in use. 

• Permits programmer to display and or print the value of-any 
or all program variables. 

• Identifies the vanable type for all variables. 

• Lists each element of any array separately. 

• Program line renumbering facilities allowing for specification 
of an upper limit of the block of lines to be renumbered . relo 
cation of renumbered. blocKs of code and duplication of 
blocKsof code. 

• Cross reference facility for Key words and character strings 
including global replacement nf Key words, 

• Compresses your BASIC program to an absolute minimum by 
removing extraneous informahon. 

• Merge lines 

• Deletes statements that could not be executed. 

If you consider your programming unre to be worth money, call 
us and let us show you how to get more of it. 



MODEL II 
MODEL III 



.. S2O0.00 
.5125.00 



:x--i:.'^:::-':^:::-=* ::•==• ■^^l■.^■B■^:^^^±r: 



Time saving power 
at your fingertips. 



.••••■■> i" 






CALL TOLL FREE: 



.3— i':-. rf!.:i-'f.J2"ci!:«l-. :>£ :i I'i.i'-'r.!:!* :5-'" 

■"«t =!^%.M:L-sll•!!'I'li:!•i":!^!'■?!5.I^lli«"Li^;"" 



in ttiui in::::::: 



1-800-543-4628 

OHIO RESIDENTS 

CALL COLLECT: (513) 891-4496 

37l9Mantell 

Cinti.. Ohio 45236 
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"Most of us have wasted 

a lot of time reloading programs because 

we did not follow instructions." 



How many times have your students 
loaded programs and had them 
crash because they forgot to set the 
memory size? How many times have you 
done it? I suspect that most of us have 
wasted a lot of time reloading programs 
because we did not follow instructions 
carefully. 

All these crashes and reloads are un- 
necessary. The program itself can set the 
memory size as soon as it is run. Unfor- 
tunately, many programmers have not 
learned how it is done. 

If you are not putting this feature in 
your programs, these directions will 
show you how to do so. You can even go 
baci< and add "auto mem set" to your old 
programs and to the programs of others, 
as well. 

Auto Mem Set 

This technique works in Level II and in 
Model III Basic. I have also used it in two 
versions of TRSDOS and suspect that It 
will work in all versions. If you use 
another DOS, try it carefully before you 
change all your programs just in case 
your DOS modifies the memory locations 
used. 

Memory iocations 16561 and 16562 
contain the numbers which protect 
memory; that Is, they set the memory 
size. All the program has to do is POKE 
the proper numbers into those places. 
Location 16561 holds the low-order byte 
and 16562. the high-order byte. Let's run 
through a specific example. 

Suppose your program requires that 
memory size be set at 32699. You would 
go through the following steps: 

1. Subtract two from the required size 
and call the result X. 

32699 - 2 = 32697 
X = 32697 

2. Divide X by 256 and discard any re- 
mainder (use only the whole number 
part of the answer). This is the high- 
order byte. 

33697 .■■ 256 - 127 723 
High Order Byte = 127 

3. Multiply the high order byte by 256 
and subtract the result from X. This 



Is the low-order byte. 

32697 - (127 x 256) = 1B5 
Low Order Byle = 185 

4. Insert the following statement at the 
beginning of your program: 

3 POKF 16561. 185 POKF 16562 127 

By following these steps, the memory 
size is set at 32699 just as though you 
had answered the prompt message with 
that number. Of course, the memory is 
not set until the program is run. 

Did you notice the low line number In 
step four? It was made low for a reason. 
The memory size should be set at the 
beginning of the program— before any 
other statements are executed (except 
for remarks). It you set (or change) the 
memory size after the program Is under 
way, the memory allocation will be wrong 
for program operation. What happens is 

"You mig tit jump 

into areas the program 

has set aside. . . " 

that you might jump into areas that the 
program has set aside for the stacks or 
variable storage or something else. This 
would cause the program to crash. 

So, set the memory size first. The line 
number above 3 will remind you to do that. 
I would have numbered it "1" but 
most of us use the first line or two for 
remarks which Identify the program. 

Before you change your programs 
over, this technique may save you some 
time, too. Suppose you (or a student) 
begin loading a program and suddenly 
realize that the memory should have 
been set. All you have to do is to figure 
the high and low bytes as above and then 
execute the statement in step four in the 
immediate mode before the program Is 
run. The size will be set just as though the 
statement were in the program, 

Chain-Loading Programs 

At this time of the year both students 
and faculty are settled down from the in- 
itial flurry of getting school started. This 
is the time, too, when it dawns on other 



students and faculty that it might be pru- 
dent to learn something about your com- 
puter operation. 

Often their first question is, "What is 
the thing good for?" You should have a 
special program sampler prepared just 
for such occasions. Sampler— that's 
what I call a program that consists of 
several demonstration programs. Here is 
how you can make one. 

The Idea is to select a few programs 
which show off your computer. This 
might include games, graphic displays or 
mstructional programs. 

Next, write a Menu Program which will 
fill two functions: It allows the operator 
to choose among the programs you 
selected, and then it automatically calls 
up the selected program. 

Finally, put all the programs on the 
tape or disk with the Menu Program and 
you are ready to go. Let's look at the 
make-up of that first program. 

The Menu Program 

The Menu Program is straightforward. 
It presents a list of the available pro- 
grams and allows the operator to select 
one by entering the corresponding 
number. There are several ways to get 
the selected program into the computer 
but I will show you the simplest method. 
If you use the standard cassette, it would 
go something like this: 

Ii5l and selection 
. ,numbnr solHr.led is in variable A,,,. 
250 ON A GOTO 260, 270, 280, 290, 300, elc 
260CLOAD-A'- 

270CLOAD-B'- 
280CLOAD-C" 
290 etc. 

It is evident that programs A, B, C and 
so on must be properly labeled when 
saved and they must follow the Menu 
Program on the tape. Then, too, the tape 
must be rewound after each selected 
program has been loaded. 

If you are using the Exatron Stringy- 
Floppy, the appropriate statement would 
be: 250 ©LOAD A + 1. The advantage to 
the ESF is its fast load time and the fact 
that it does not have to be rewound. 
However, you should provide enough 
space to hold the longest program {see 
the manual for details). 
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If you are using Disk Basic, your 
statements would look like this: 



250 ON A GOTO 260, 270, 280,.. 
260 RUN "STORYBOOK" 
270 RUN "MATH I" 
280 



Of course, both the cassette and disk 
systems offer neater ways to accomplish 
this programming, but these are the 
easiest to understand. You might experi- 
ment to discover shorter methods with 
your system. 

I have put together several disks which 
follow this plan— one for science, one for 
math, one for language arts, and so on. 
Since making them, life has been easier. I 
simply put in the appropriate disk and 
say, "Try it for yourself." 

Reader Inquiry 

Bjarne Madsen in Saksatchewan, 
Canada, leads a project which developed 
a curriculum for computer awareness 
and programming techniques at the 
junior high school level. His course has 
proved very successful In classroom 
tests. 

6J is quite interested In corresponding 
with others who may be involved in a 
similar effort. The exchange of ideas 
could be beneficial to both parties. If you 
have worked in this area, send me your 
name and I'll pass it along to BJ. 

In fact, if you are interested in com- 
municating with others in any area of in- 
terest, send me your name, complete ad- 
dress, and the areas of interest. Include a 
statement to the effect that you would 
like that information published and, as 
space permits, I'll put It In Education 80 
so that others can get in touch with you. 

New Address 

This summer I took time out to move 
across the state. For six weeks or so t 
was out of touch with everything except 
boxes to pack and unpack. I don't Know if 
I'll ever catch up with what happened In 
the world of computers. (I have caught up 
with the new Model III TRSDOS 1 .3 which 
offers significant improvements on an 
already good 1.2 version.) 

However, I am happy to report that my 
computers made the trip in fine 
shape— not even a slight hiccup when I 
finally got settled enough to hook all the 
pieces together and plug them In. So 
much for my fears of horrendous repair 
bills! 

My new address is 6 Darl Avenue, Col- 
onial Beach, VA 22443. Of course, you 
may write me through 80 Microcom- 
puting. Either way, please enclose a self- 
addressed, stamped envelope and I'll get 
back to you when time permits. ■ 



1 BOUGHT IT ' 

"My biggest loss 
of programming 
time using 
Snappware's 

EXTENDED BUILT IIM 
FUNCTIONS is 

spent inserting 
my disKette." 

SCOTTADAWS PRE5 OF ADVENTURE l\n. 



Snappwnren" EXTENDED BUILT IN FUNCTIONS is a roliOLlioii uf rnuc h 
needed addinons ro ttie Model II BASIC interprprer which gredUij 
extends ilsconvunieiKP dnd uulitLj. The rnllowinq ICdLures 
beLome a part of your BASIC lanquage and piovide the enhance 
mcnts without requirnuj dnqaddlhona! memoiy oi disK spare. 
The heart of our EXTENDED BUILT IN FUNCTIONS in an in meirioru 
sort routine, quardnteed to be the fastest qeneidl in inemorq sort 
on the marhet. or qoiii inqneq t)dcK. Along with this, goii diso 
receive ttiese EXTENDED BUILT IN FUNCTIONS: 
PEEK- Extract one Byte fiom a specified memnig local ion 
PEEHW- Extract TWO Hgtes from a speciried nnernonj lot at ion 

POKE- Replace I' onlenis of d specified inernorq location with 
d supplied value 

POKEW- ReplHce contents of a specified meFnory WORD with 

the supplied value 

XDAT- ExtidLt curientddie in Format ^ .^.^-._ 

XTim- Return nrneol day to (orn"*"^' 

ETIW- The difference between twofimtrD 

FILES- Return the number of file blocks cunenllg allocdted 

5RT- Sort one or more arraqs into a spec itied sequence 

OPEN- Open <i sequential file in extended mode 

ROW- Protect a portion of the video displdg From scrnllinq 

CLEAR- Specifg the niimhei ol die hiochs lo [»• dilocdled when 

you spe( if y high mcmonj diid '-.iiiikj simcp 

ERASE- Frdse all driags 

CURSOR- Specifg size dnd display format of cursor 

WAX- Return largest value from user supplied list 

AftlN- Return smallest value fiorn user supplied list 

F/WT- Aihimiedata into a string variable ds with PRINT USING 

II qouLonsidei your piO(|icimminq time to be worth moneq. call 
us and let us show you how to get more of it 



MODEL II 
A/VODEL III 



SI 00 .00 
S 75.00 



Time saving power 
at your Fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS 
CALL COLLECT: (SI3) 891-4496 
37I9/V\antell | 

Cinti. Ohio 45236 



■See Usi of AOverlisers on page 396 
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^(9 APPLICATIONS 

%^^^ by Dennis Kitsz 



Way back in the early days of 80 Micro- 
computing, I created a machine- 
language monitor called Babybug. It was 
short, written in Basic, and sparked with a 
large and continuing reader response. 
Since that time, many excellent programs 
for examining and modifying TRS-80 
memory have appeared, and some in- 
teresting software Is beginning to t>e 
offered for the Model Ml and the Color Com- 
puter as well. 

This month I'd like to present new ver- 
sions of the original3abybug: a condensed 
and improved Model I or III program, plus 
versions for Color Basic and Extended Col- 
or Basic. Once again, they are written en- 
tirely In Basic, yet consume small amounts 
of memory. Before turning to the programs, 
I'd like to explain what a machine language 
monitor Is, how it Is used, talk about entry 
and display in hexadecimal numbering, 
and in passing describe the process of 
packing information into integers. 

A Window Into Memory 

At some point in the life of every pro- 
grammer—amateur or professional- 
comes the desire to have programs per- 
form faster or use less memory. There 
also comes creeping the need to under- 
stand what makes the computer tick, 
why protected memory is sometimes 
necessary, and maybe just what kind of 
software is hidden Inside that 
anonymous box. It's that Something 
which gives the system life, makes it say 
"OK" when it understands you and "?SN 
ERROR" when it doesn't. 

Small computers are made up of 
several classes of black boxes which 
compose a computer when connected 
together. In its purest form, the computer 
we know consists of a general-purpose, 
simple-minded calculator— the central 
processing unit (CPU). The CPU is con- 
nected to one or more blocks of tem- 
porary or fixed storage/instruction area, 
its memory. Finally, communication with 
the real world is achieved with input/out- 
put (I/O) devices. 

The Babybug machine-language moni- 
tor is concerned with the contents of 
read/write memory— that is, memory 
which may be examined or changed by 
the CPU. It can also be used to examine 



permanent (read-only) memory, in order 
to see what the CPU follows to perform 
its work in Basic. With a monitor, I can 
ask the computer to tell me what Is found 
at Its memory location or 100 or 24576 
or 65500. In the Model I, if I examine loca- 
tion 1 will find the value 243; if I examine 
location 100, chances are the value 251 
will turn up. Both and 100 are in perma- 
nent, read-only memory (ROM). On the 
other hand, locations and 100 are In 
temporary memory in the Color Com- 
puter, holding the values and 171 when 
Basic is in operation. Model I locations 
24576 or 65500 may reveal anything, 
since they are read/write memory (also 
called random-access memory, or 
RAM)— whatever the computer last 
placed there, in the Color Computer, 
24576 is read-only memory, and 65500 is 
part of I/O memory. With the Babybug 
machine-language monitor, I can read 
memory and change Its contents at will. 
What Is the machine language that 
Babybug monitors? Since the Informa- 
tion stored In any spot In memory can be 
thought of as Instructions Intended for 
the CPU's Internal mechanism, causing 
it to respond according to a predeter- 
mined pattern, such memory contents 
are called machine language, or machine 
code. Throughout this magazine, you will 
find listings written In Basic, but other 
software Is presented in rigorous-looking 
listings for the Editor/Assembler. This Is 
assembly language, merely a convenient 
form of producing numerical machine in- 
structions using English-sounding names 
instead of numbers alone. 

The basics of machine and assembly 
programming have been presented in 
this column before (see especially March 
1981), in Bill Barden's monthly Assembly 
Line column, as well as in many other 
fine articles. These fundamentals won't 
be repeated here, but I would like to ex- 
plain why so often you will find machine 
code used in this column, and why non- 
decimal notation can be very revealing 
when programming at the machine 
level— as well as in sophisticated Basic. 

Computers are nothing more than an 
array of fast on-off toggle switches, 
which means If you learn to read the tog- 
gle switches, you know exactly what your 



computer Is doing. For example, in May 1 
presented a Micro Front Panel construc- 
tion project. It's a bank of 24 LEDs which 
flash a binary value according to the cur- 
rent memory location the computer Is us- 
ing. It displays both the location (ad- 
dress) and the information (data). Several 
people have written to me asking what 
good It is, and I reply with an example: 
when programs seem to get lost, there's 
practically no way to know whether they 
are truly lost, merely Involved In some 
time-consuming process, or hung up in a 
minor program glitch. 

Something peculiar happened when I 
tried to load one disk. The familiar noises 
took place, but then everything just 
stopped. I pressed the reset button 
again, the system reacted normally, but 
then just stopped. I glanced down at my 
Micro Front Panel, which read: 



LSB MSB DATA I 

0000 0000 0100 0010 0000 0000 I 



It told me that my computer stopped 
writing data at binary address 0100 0010 
0000 0000 (which translates to hex- 
adecimal address 4200) and the data it 
wrote there was 00. 1 happen to knowthat 
4200 is where the disk's bootstrap load 
routine is placed in memory, so 1 learned 
that the bootstrap loader was never writ- 
ten. 

With the front panel I can also observe 
that the machine is still working when it 
pauses during a long program and will 
not respond to the Break key. Those of 
you whose programs have been trapped 
In seemingly interminable string sorts 
(where garbage collection Is In progress) 
can be reassured that there is activity 
even though the machine seems hung. 

My point? Only that there is no way to 
know exactly where a machine is hung 
(and what to do about it) unless you can 
decipher binary numbers. 

If that's too esoteric a notion, try this 
simpler one from the realm of Basic; By 
using a single integer, you want to find 
out whether a person on your mailing list 
(a) has oneof up to eight special skills; (b) 
was originally contacted through one of 
eight possible methods; (c) responded to 
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one of eight mailings; (d) attended the 
last meeting; (e) was contacted by 
phone; (f) paid the most recent dues; (g) 
registered for an upcoming seminar; (h) 
participated in an event; and (i) turned in 
a survey form. Can you do it? In binary, 
it's possible. 

Data Packing is Binary 

Program Listing 1 is a possible soiu- 
tion to that question, drawn from a iarger 
program. It requires an understanding of 
the binary consequences of some in- 
teger action in the computer, and also 
demands knowledge of the logicai func- 
tions (AND, OR). Although this section of 
the program by itseit seems lengthy, the 
resulting information is only one integer, 
meaning it can be stored in your mailing 
list or other data file as an economical 
single integer — just two bytes of memory 
or file space! 

Here's a look at the byte the program 
starts with, represented by integer Q: 
0000 0000 0000 0000. In the TRS-80, the 
leftmost binary digit (bit) is reserved for 
the number's sign. Zero defines a 
positive integer, one defines a negative 
integer. Since coded information con- 
taining a minus sign might look strange, 
I've discarded the leftmost bit in this 
scheme, leaving: (0)000 0000 0000 0000. 

Defining the arrangement of informa- 
tion to be stored in the two-byte integer is 
arbitrary. In the sample listing, there are 
eight choices for the first input (lines 150 
to 280 in Listing 1), so I reserved the left- 
most three bits for the response. Why on- 
ly three bits for eight choices? Because 
there are eight possible combinations of 
these three bits: 000. 001, 010, Oil, 100, 
101, 110, and 111. Likewise, the second 
input (lines 310 to 390) can allow eight 
possible choices, as can the third input 
(lines 420 to 550). The remaining ques- 
tions are yes or no responses, meaning 
only a single bit need be used for each 
(1 =yes, = no). The result is a positive 
integer with its bits divided as in Table 1. 

Now, the bits themselves have to be 
made accessible to us, which means it's 
essential to know the value of each bit in 
the integer. Since this is binary number- 
ing, these are simply powers of two. 
Simply, I said? Sure. In decimal, the 
numbers are ranked according to powers 
of 10, which in elementary school was 
referred to as the "one's place," the 
"ten's place," the "hundred's place," 
etc. In binary, the numbers are still called 
out by their places, except that they 
would be called the "one's place," "two's 
place," "four's place," "eight's place," 
and so on. 

That breaks the binary integer up as 
shown in Table 2. 



nappware 
Goes On Trial! 

You Be 
The Judge! 

Snappware knows yniir proqramminn time is valuable. 

That's why we are nrrennq a trial pacKdge triat will cut ynur 
proqrafTiminq Lime up tn 75%. This iinprpredented ofTer 
allows you tojudye Pot yourself the value nt our software us 
ing your hardware at your roiivpfiience Our tour best selling 
products: EXTENDED BASIC. EXTENDED BUILT IN FUNCTIONS. 
AUTOMAP and AUTOFILE, die available to you nii a trial basis Tor 
only SBOGOforthe model Hand S35.00tor the Model III. We Ye 
convinced that after gOifsee how well our software helps you 
perform proyramminq tasKs, you will purchase them !iKe 
thousands ol others have. Our tiidl parKaqe consists o\ a mas- 
ter disKette which may be used tn ( reate one worhinq copy. 
Your purchase price for the trial par Kaqe will be credited to 
ward the purctiase of any software Snappware sells. 

If for any reason you are not satisfied, lust return the tnal 
diskette and we will refund your moripy. no questions asKed. 
With an unconditional qudiantee lihe this, you cant luse_ 

. Call o.ur toll free number 800-S43 4268 to put us on trial. 
Were sure ynur verdict will be: Snappware saves you time and 
money. 

Model 11 Trial Package 550.00 
Model Ml Trial Package 535.00 






ivSee Lis! ol AOve'lisers an page 386 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

I-800-543-4628 

OHIO RESIDENTS 
CALL COLLECT: (513) 891 4496 
37l9Aftantell — = 

Cinti. Ohio45236 
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f(pAPPtlCATIONS 



Turn to line 300 in Listing 1, particular- 
ly the command A = (A-1) x 4096. Notice 
that the variable A was set to be the 
numerical result of the input from 
choices one through eight, In lines 170 to 
240. Since the bit patterns to be used to 
represent these choices run from 000 to 
1 1 1 (decimal to 7), the value of A must 
be decreased by one to force it to be 
within the range to 7. That's the easy 
part. 

The upper three bits of the integer are 



11 REM ■ THIS ROUTINE CAN BE REVISED 


818 AS-INKEYS : IF AS""Y' THEN A-16 


29 REM • TO INCLUDE GENERAL-PURPOSE 


ELSE IF AS-'N' THEN A-B ELSE 


30 REM • CATEGORIES IN PLACE OF THE 


BIB 


48 REM * SPECIFIC ONES SHOKN. UP TO 


S2B 0-0 OB A 
838 GOSUB 138B 


58 REM > 15 YES/NO QUESTIONS CAN BE 


60 REM ' STORED, OB SEVEN 4-CHOICE 


848 PRINT "QUESTION 46***' 


7B REM • OUESTIONS, A CASSETTE OP 


858 GOSUB 142B 


80 REM ' THIS DEMO AND ALL THE BABIBUG 


868 AS-INKEYS ; IF AS="Y' THEN A-8 


9B REM ' PROGRAMS IS AVAILABLE FBOW 


ELSE IF AS-"N' THEN A-B ELSE 


lea BEM ■ THE AUTHOR, ROXBUBY VT B5669 


868 




12B PBINT'TOUCH 1 TO UPDATE, 2 TO DECODE' 


B78 D'Q OB A 


13B PRINT STBINGS(31,42) 


888 GOSUB 1388 


14fl AS-INKEY$ : IP A$--l" THEN ISA ELSE 


898 PRINT "INPUT PHASE IS COHPLETE.' 


IF AS''2- THEN 1348 ELSE 148 


9BB PRINT 'CODE NUMBER - *) 


Ibi GOSUB 1388 


91B 0S=RIGHTS(STHS1Q1,LEN(STRS(Q)|-11 


168 PRINT 'FIRST CONTACT WAS;" 


928 PBINTSTBINGS(5-LEIJ(QS) ."B'l [QS'." 


178 PRINT '1 ■ PRIeBD' 


93B PRINT 'DECODING INFORMATION I ' 


188 PRINT '2 = PROFESSIONAL ASSOCIATE" 


9*t R-0 : R-B AND 28672 i H-R/4B96 : 
R-R+l 


198 PPINT "3 - ARTS OBGANIJER' 


28B PRINT '4 = FESTIVAL PARTICIPANT" 


95B PRINT 'CONTACTi ■) 


21B PRINT '5 = FESTIVAL ATTENDEE" 


96B ON B GOTO 978,988, B9a,lB«l,l«lB, 


22a PRINT '6 = BENEFIT CONTRIBUTOR" 


1B2B,1B3B,1B4B 


21B PRINT "7 ■ MISCELLANEOUS' 


97i PRINT 'FRIEND* j GOTO 1858 


248 PBINT '8 = <RESEBVeD>' 


988 PBINT 'PROFESSIONAL ASSOCIATE': 


258 PRINT STBINGS(27,45) 


GOTO 1858 


268 PBINT "TOUCH APPROPRIATE NUMBER.' 


99B PBINT -ABTS ORGANIZER* : GOTO 


278 PRINT STRINGE(27,45) 


1858 


288 AS-INKEYS : A=VAL(AS) : IF A<1 


I8Be PRINT 'FESTIVAL PAETICIPANT' 1 


OR A>8 THEN 288 


GOTO 1058 


29B HEM * FIRST BIT PACKING HEBE 


IBIB PRINT -FESTIVAL ATTENDEE' i 


308 Q-B : A-(A-1)*4896 : Q-0 OR A 


GOTO 1058 


31B GOSUB 138B 


1B2B PRINT 'BENEFIT CONTRIBUTOR' i 


32B PBINT "MAILING RESPONSE.' 


GOTO 1058 


338 PRINT "MAILINGS TO DATE:" 


1830 PRINT 'MISCELLANEOUS" ! GOTO 


348 PBINT ■ - 6 - 


1B58 


358 PRINT "HOW MANY RESPONSES?" 


1848 PRINT "<RESEBVED>' 


36B PRINT STR1NGS127,45) 


1858 PBINT "MAILING EESPONSES : * j 


37B PRINT "TOUCH APPROPRIATE NUMBER." 


1868 R-Q I R-B AND 3584 ; B-B/512 : 


3Be PRINT STRINGS! 27, 45) 


R»B+1 ! PBINTfi 


390 AS=INKEVS ! A=VAL(AS1 : IF A<1 


1878 PBINT "CATEGORY: "; 


OR A>e THEN 398 


IBBB R=0 : R-B AND 7 ; B-R+1 


400 REM ' SECOND BIT PACKING HERE 


1B9B ON R GOTO 1188,1118,1128,1138, 


410 A.(A-1)'512 : 0-0 OR A 


1148,1158,1160,1178 


420 GOSUB 1388 


IIBB PRINT "VISUAL ARTIST' j GOTO 


430 PRINT "ARTISTIC CATEGORY;" 


I18B 


448 PRINT "1 = VISUAL ARTIST" 


1118 PRINT 'DESIGNER* ! GOTO 1188 


4Se PRINT "2 = DESIGNER' 


112B PBINT 'COMPOSER" I GOTO 1188 


468 PRINT "3 ^ COMPOSER' 


1138 PBINT "VIDEO ARTIST" ; GOTO 


478 PRINT "4 ' VIDEO ARTIST" 


1180 


48B PRINT "S - DANCE B/CHOBEO" 


1148 PRINT "DANCEB/CHOBEO' : GOTO 


498 PRINT *6 - SCULPTOR" 


1188 


^08 PRINT "7 ■ PERF. MUSICIAN' 


1150 PBINT 'SCULPTOR' : GOTO IISB 


51B PRINT '8 - OTHER" 


1160 PBINT "PERF. MUSICIAN' i GOTO 


52B PRINT STB1NGS(27,45) 


1188 


53B PBINT 'TOUCH APPBOPRIATE NUMBER.' 


1178 PBINT "UNCATEGOfllZED* ! GOTO 


548 PBINT STBINGS(27,45) 


1188 


558 AS'INKEY$ : A-VAL(A$) : IP A<1 


1188 PBINT "QUESTION 11: ", 


OR A>8 THEN 550 


1198 R-Q : B-R AND 256 i IF B-256 


56B REM * THIRD BIT PACKING HERE 


THEN PBINT 'Y" ELSE PBINT "N' 


578 A^A-1 ! O^O OR A 


1208 PBINT 'QUESTION #2: 'i 


588 GOSUB 1380 


1218 B-O J R.R AND 12B : IP B-128 


S9B PRINT 'QUESTION 11*"" 


THEN PBINT 'V" ELSE PBINT 'N* 


fiflfl GOSUB 142B 


1228 PBINT 'QUESTION 13! ') 


610 AS-INKEYS : IF AS-'Y" THEN A'256 


1238 R-0 1 B-B AND 64 J IP R-64 


ELSE IF AS-"N' THEN A-B ELSE 


THEN PRINT 'Y' ELSE PRINT 'N' 


61B 


124B PBINT 'QUESTION 14: 'j 


620 0-0 OB A 


1258 B-0 ! B-R AND 32 ! IF Bi^32 


630 GOSUB 13B0 


THEN PBINT "i- ELSE PBINT 'N' 


648 PBINT 'OUESTION t2"'" 


1268 PRINT 'OUESTION 45: 'j 


650 GOSUB 1428 


1270 R-0 ! B-B AND 16 : IF R-16 


668 AS'INKEYS : IF AS-"y THEN A=128 


THEN PRINT "Y' ELSE PRINT 'N' 


ELSE IF AS-"N' THEN A-8 ELSE 


1280 PBINT 'QUESTION 46: "( 


668 


1298 R-Q : R-R AND 8 ; IF floB THEN 


678 0-0 OR A 


PRINT "Y" ELSE PRINT "N" 


688 GOSUB 1388 


1308 PRINT STH1»GS(27,45) J 


69B PRINT "QUESTION (3**** 


1318 FOB X-1 TO 1888 : NEXT 


708 GOSUB 1420 


1328 PBlNTe64, "PRESS <ENTER> ", 


718 AS-INKEYS : IF AS-'Y" THEN A"64 


1338 AS-INKEYS : IF AS-CHBS(ll) THEN 


ELSE IF AS-"N" THEN A'B ELSE 


RUN ELSE 1338 


710 


1348 CLS ! PRINT STR1NGS(27,45) 


720 0-0 OB A 


1358 INPUT -CODE NUMBER', 


738 GOSUB 13BB 


1368 PRINT STRINGS(27,45| 


74B PBINT "QUESTION I4""- 


1370 GOTO 988 


758 GOSUB 1428 


1380 CLS : PRINT STRINGS(27,45) 


76B AS-INKEYE : IF AS="Y- THEN A-32 


1390 PBINT " •• LIST UPDATE "" 


ELSE IF AS'"N" THEN A=0 ELSE 


1480 PRINT STBINGS(27,45) 


760 


1410 RETURN 


770 0-0 OR A 


1428 PBINT STBINGS(27,45) 


780 GOSUB 1388 


1438 PBINT "TOUCH <Y>EE OR <N>0," 


790 PRINT "QUESTION IS'"' 


1448 PBINT STBINGS(27,45| 


890 GOSUB 1420 


1458 RETURN 


Program 


Listing 1 



going to be used to store variable A; binary digits. Here's what happens, 

those upper three bits are the 16384's assuming choice 8 was selected: 

place, the 8192's place, and the 4096's 

place. Table 3 Is a chart of the possible 

combinations. oatsiart = ooo oooo oooo oooo 

With this in mind, you can see how line a is selected = m oooo oooo oooo 

300 creates the upper part of the integer o or a lunciion — 

out of this pattern of eight choices by ''"""" = i ii oooo oooo oooo 

multiplying by 4096. The final command 

in the line Is Q = Q OR A. Again, this is 

visualized in binary, since logical tunc- Remember that the OR function 

tions AND, OR, and NOT operate on specifies that If either bit X or bit Y (or 

both) is 1, then the result will be 1. The 
reason for using the OR function here is 
to leave the original bits untouched while 
setting (changing to 1) the bits that are 
needed to produce a packed byte. Turn to 
line 410 to see how another group of bits 
is packed into Integer 0. Again, the first 
part of the command A = (A-1)x512 
moves variable A from its original input 
range of 1 to 8 down to the range of to 7, 
because three bits are being reserved in 
the integer byte (000 to 1 11) with decimal 
values from to 7. 

The response bits for this input fall (re- 
ferring to the binary "place" chart) in the 
512's, 1024's, and 2048's place. Likewise, 
the patterns appear as In Table 4. 

All are multiples of 512, so the com- 
mand A = (A-1) X 512 sets up the correct 
bits. In this case, assume that the user's 
choice was number 6, resulting in a bit 
pattern of 101 in the appropriate integer's 
positions. The OR function is used again 
in line 410, but recall that O already has 
been assigned a value in line 300: 



Q new value = 111 0000 0000 OOOO 

A now selected = 000 1010 OOOO 0000 

OR A tunction -— 

New Q result = ill 1010 OOOO OOOO 



What is the resulting Q at this point? You 
can calculate it by adding the sum of the 
powers of two, as above, and you will 
discover the integer is now 31232. Or, 
more simply, you can hit the Break key 
and enter the command: PRINT 0. 31232 
will be the result. 

The yes or no questions are simpler. If 
the answer to a question is yes, its 
respective bit is set to 1 . If the answer is 
no, that bit is set to 0. The answers to the 
six questions in this example are packed 
into integer Q In lines 610-620, 660-670, 
710-720, 860-770,810-820, and 860-870. 
For example, assuming a yes answer to 
question 4, variable A would be set to 32, 
then ORed with 0. Notice that if you wish 
to pack the answers to 1 5 yes or no ques- 
tions into a single integer (instead of 
multiple-selection responses), this 
method can be used easily. 

The final three bits of integer Q hold 
the results of another eight-answer ques- 
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Now for theTRS-80 Models I & 




' DOUBLE Sides & DOUBLE Density support 

' AUTOMATIC Density recognition, 

" 35, 40, 77. 80 and any other track counts are supported. 

" All available drive stepping rates are supported. 

=- Hard Drive support, can be HANDLED AS A SINGLE DRIVE. 

'' Hard drive partitioning, one hard drive can act as up to 

SIX drives. 
" Intermix 5", 8" and Hard drives, up to a total of 8 drives. 

• Compatible v^ith the Model I Radio Shack Expansion Interlace. 

• Upward compatible v^nth TRSDOS (2 3 & 1.3 as documented). 

• Fully supports Microsoft language products, without 

modification. 

• Complete media compatibility Model I to Model III and Model Ml 

to Model I- 

• Full support tor LOBO's LX-80 interface 

• Full support for PERCOM's DOUBLER II. 

• Complete documentation (well over 250 pages). 

• Complete technical information. 

• A TOLL-FREE 800 number for customer service. 

• An LDOS users bulletin board on MicroNET. 

• A Quarterly LDOS users magazine (The LDOS QUARTERLY). 

• A liberal update policy. 

• An enhanced BASIC (LBASIC) including 

> Upward compatible with Microsoft Basic. 

> High speed LOAD and SAVE. 

> Run multiple programs with common variables. 

> BLOCKED (variable length) files are supported. 

> DOS commands may be executed from LBASIC. 

> Built in string array SORT. 

Specific hardware is requ 



The Ultimate In 
Operating Systems 
For Model I & III 



Only $ 



169 

Version 5 1 



00 



> Single stepper for debugging 

> Several new statements and tile modes 

• A compilorl JOB CONTROL LANGUAGE (JCL). 

• An Extended Debugging and Monitor program (with disk access). 

• CMDFILE lor movement of disk and/or tape system (/CMD) tiles. 
" Device independent operation. 

• Full LlNKinp ROUTEing, FlLTERingand SETtlngare supported. 

• MiniDOS feature for constant access to certain DOS commands. 

• Sophisticated communications software included. 

• Wildcard characters and partial Filespecs are supported. 

• Each file is DATED, showing when it was last modified. 

• Backup. Mirror, by Class, if Modified, by Date, by Extension, etc 

• Selectable PURGE for last disk 'cleanup*' of unwanted files. 

• Print formatter, for control o1 printer output 

• Built in printer SPOOLER, to both disk and memory 

• Joblog to record all system operations with time stamps 

• UPPER and lower case support, throughout the system. 

• Blinking cursor with selectable cursor character. 

• 128 character TYPE AHEAD buffering for keyboard input 

• Assign St rings to individual keys with Key Stroke Multiply (KSM). 

• SUPER FAST operation with the SYSRES feature, 

• Extensive user control and system feedback. 

• Complete transportability of software among all Z-80 LDOS 

systems through the use of the LDOS high memory supervisor 
call system 

• Dealers to serve users Nationwide and m the Common Market. 

• The only DOS with a limited ONE YEAR WARRANTY! 

• Enjoy a professional operating system on YOUR TRS-80! 

-ed to use these features 

■ ^;'3del I LDOS provided on 3fi track single density media 

■ Mo.1el 111 LDOS provided on 40 track double density media 

■■ LD03 can be provided on special media configurations at an 

additional charge 
•■ Prices & Specifications are subiect to change without notice 



For Further Information Contact The Distributor Or Dealer Nearest You: 



(West) 
LOBO DRIVES INTL 

354 S Fairview Ave 

Golela, CA 93117 

(8051 683 1576 



(Central) 
GALACTIC SOFTWARE LTD. 

11520 N Port Washington Rd 

Mequon, Wl 53092 

(414) 241-8030 



(East) 
MISOSYS 

5904 EdRChill Dr 

Alexandria, VA 22303 

(703) 960 2998 



(The Common Market) 
MOLIMERXLTD 

1 Buckhurst Rd , BexhiH 
Sussex, England 
{04241 220391 



DEALER INQUIRES WELCOME. LDOS is a product o1 LSI INC. TRS-eO & Radio Shack are trademarks 
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tion, and the process (which I won't 
describe this time) is carried out In lines 
420 through 570 of Listing 1. 

Getting It Back 

Once the information has been packed 
into integer Q (which will be a number 
from to 32767), how is It retrieved? 
Lines 900-920 print the number on the 
screen in five-digit format, merely for 
convenience. Its decoding follows, 



employing another logical function: 
AND. 

In brief, If bit X Is 1 and bit Y Is 1, then 
the result of the function X AND Y will be 
1 . Any other combination of X AND Y will 
result in a 0. Look at line 940, which uses 
the AND function In the command R = Q : 
R = R AND 28672. Remember that at this 
point Q is the coded integer containing a 
lot of information; by making R equiva- 
lent to Q, value Q can be saved intact for 



(0) 


000 


000 

















000 





III 


1*2 


Q#l 


Q#2 Q#3 


Q*4 


0*5 


Q*6 


1*3 


Not 


Eight 


Eight 


Yes 


Yes Yes 


Yes 


Yes 


Yes 


Eight 


Used 


Resp. 


Resp, 


/No 


/No /No 
Table 1 


/No 


/No 


/No 


Resp. 



1 






























6 


8 


4 


2 


1 






















3 


1 











5 


2 


1 
















8 


9 


9 


4 


2 


1 


5 


2 


a 


3 


1 










4 
1 


2 


6 


8 
1 


4 
1 


2 
1 


6 


8 
1 


4 
1 


2 
t 


6 
1 


8 


4 


2 


1 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


s 


5 


s 


s 


s 


P 


P 


P 


P 


P 


P 


P 


P 


P 


P 


P 


P 


? 


P 


P 


1 


i 


i 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


a 


a 


a 


a 


a 


a 


a 


a 


a 


a 


a 


a 


a 


a 


a 


c 


c 


c 


c 


c 


c 


c 


c 


c 


c 


C 


C 


c 


c 


c 


e 


e 


e 


e 


e 


e 


e 


e 
Table 2 


e 


e 


e 


e 


e 


e 


e 







Bit Position: (0)XXX 
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Table 3. Combination Chart 
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Table 4 



later use. So this value R ( = Q) Is ANDed 
with 28672. What is 28672? It is 16384 +- 
8192 + 4096. In other words, the value 
28672 Is an integer with the upper three 
bits already set to ones (111 0000 0000 
0000). This Is the key to recovering the In- 
formation packed into Q. 

The following example shows a possi- 
ble coded number Q (decimal 22190) 
generated with this packing system. It is 
being ANDed with 28672, which will 
"mask out" ail the bits we do not need to 
know about. Since everything ANDed 
with will end up being 0, this method 
simply places zeros where they are 
needed in the masking integer: 



Integer being tested: 
28672 used as a mask: 
Executing AND 28672: 
Resulting masked value: 



101 0110 10101110 
1 1 1 0000 0000 0000 



101 0000 0000 0000 



Any 1 bits In integer Q (22190) will filter 
through the mask, giving a binary result. 
Converting the result to decimal gives 
the value 20480 In this example. The next 
command In line 940 is R = R/4096. Recall 
that value A In the input phase of the 
sample program was multiplied by 4096 
to shift the bits into the high position of 
integer Q. Here is the reverse of the pro- 
cess, resulting in an integer with the 
value through 7. Since the original 
choices were 1 through 8, the final com- 
mandon line 940 lsR = R + 1. In this sam- 
ple, R ( = 22190) AND 28672 = 20480. 
R/4096 = 5. R-H =6. Therefore, the in- 
formation has been recovered, and It can 
now be stated that the original value in- 
put was sixty. It Is only a simple matter 
(in line 960) to display what that original 
Input choice means. 

Line 1060 performs the same sort of 
activity to recover the response to the 
second Input. Again, R = Q to recover the 
initial packed integer. Then R = R AND 
3584, since 3584 equals 2048 + 1024 +- 
512 (another three-bit mask). R = R/512 
shifts the values to through 7, and 
R = R +- 1 returns the values 1 through 8. 
Displaying the original Input Is again 
simple. Here is the binary representa- 
tion: 



3584 Mask: 
RAND 3564: 
Recovered Info: 



101 0110 10101110 
000 1110 0000 0000 



000 0110 0000 0000 



When all this information is recovered. 
It's possible, by feeding in a flve-dlglt 
code on someone's mailing label, to print 
out a report for your club or user's group 
which says, "John Jones Is a TRS-80 
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Model III user with whom we made con- 
tact through another member. He has 
responded to each of our mailings, at- 
tended the last meeting, participated In 
the flea market, his dues are up to date. 
Jones's specialty is assembly language, 
and he participated In the club's last 
seminar." Ail in one two-byte Integer. 

How to Hex 

Okay, you say, binary has Its uses If 
I'm willing to spend some time and effort 
to use it. But why hexadecimal notation? 
Who cares? Hexadecimal notation, as a 
reflection of its binary function, can 
clearly demonstrate the relationships 
between machine functions. A very few 
of the 6809E instructions, commands 
which affect the operation of the Color 
Computer's central processing unit, are 
in Table 5. 

Obviously, the easiest way to 
remember these instructions Is by their 
mnemonics. But the TRS-80 cannot easi- 
ly report back Its memory contents in 
mnemonics, at least not without an ex- 
tensive programmer's aid called a 
disassembler. Therefore, when you see a 
bunch of numbers, ideally they should 
provoke some familiar reaction. 



Numbers like 136, 152, 168, and 184 are 
not likely to emphasize their straightfor- 
ward relationship to each other. Examine 
instead Table 6, with those same four in- 
structions (all sixteen forms) shown In 
mnemonics, decimal, binary, and hex- 
adecimal. 

See how neatly the leftmost digits 
count upward in binary? And notice how 
the commands count upward. In hex 
10's, In that same neat way. The relation- 
ships between the versions of ADC are 
visible, as are the relationships between 
the variants of EOR. Their nature is 
clearest in binary, but It is also easily visi- 
ble In hexadecimal— a far cry from at- 
tempting to quickly discern the relation- 
ship between 136 and 152, or 200 and 232. 

Not Impressed? Then how about an ex- 
cerpt from Bill Barden's August 1981 
Assembly Line. On page 49, a man with 
staggering insight named David Lamklns 
offered this remarkable blnary-to-ASCii 
conversion routine (wish I'd thought of 
this one): 

ADD A.90H 

DAA 

ADC A,40H 

DAA 

Let's try It first in decimal to see if It 
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ADCA 


of Command's Action 
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Add to accumulator A, plus carry 




(instruction has four options) 
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Add to accumulator B, plus carry 
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(instruction has four options) 
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Exclusive OR accumulator A 


136,152, 




(instruction has four options) 


168,184 


EORB 


Exclusive OR accumulator B 


200,216, 




(instruction has four options) 


232,248 




Table 5. 6809E Instructions 
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5y*"or 8" Disl<ettes 10/ $24 

SVV or 8" Viny! Storage Pages 10/$5 

MAXELL- DISKETTES HHi 
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S", 1 side t3.30 ^^^ 
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5", 2-side $4.25 
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LIBRARY CASE... 

3-ring binder album. 
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DISKETTE DRIVE HEAD CLEANING KITS 
Prevent head crashes and 
insure eflrcient, error- 
free operation. 

SV*" or 6" $19.50 



SFD CASSETTES 

C-10 Cassettes 10/$7 

(All cassettes include box & labels) 

Get 8 cassettes, C-10 sonic and 
Cassette/8 library album for 

only $8.00 

(As illustrated) 




HARDHOLE 
Reinforcing ring of 
tough mylar protects 
disk from damage 
5^4" Applicator $3 
8" Applicator $4 




5'/." Hardholes $6 
50/8" Hardholes $8 
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ALLOWTWO WEEKS • C.O.D, REQUIRES A10% 
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OR FULL REFUND 
Write for our free catalog 
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1-800-854-1555 

For Orders Only 
Fot information ot California orders 

(7141 2G8-3537 
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makes sense. Add 144 to the ac- 
cumulator, decimal adjust the 
accumulator (for base ten operations), 
add 64 to the accumulator plus the con- 
tents of the carry flag, and decimal ad- 
just the accumulator again. Hmm. Let's 
convert decimal 14 to ASCII with it. 144 
+ 14= 158. Decimal adjust. From what? 
The Z80 assembly programming guide 
talks in terms of hex values In upper and 
lower digits, but I've converted it to 
decimal equivalents for this example. 
Take my word that DAA would add 102 to 
this value, resulting In 260. Since the 
maximum value Is 255, this 260 must 
have actually produced four and set the 
carry flag. Add 64, with carry, to the ac- 
cumulator produces 69— the ASCII code 
for uppercase letter E. 

Was that clear? I really didn't try to 
murky it up at alt; it's just the best that 
can be done in decimal terms. Now 
here's the same conversion of OE 
(decimal 14) to ASCII using hexadecimal 
notation. 90H + OEH = 9EH. Decimal ad- 
just. The programming guide says if 9-F 
Is in the upper digit and A-F is In the 
lower, decimal adjust (DAA) adds 66H to 



this result. 9EH -h 66H = 104H, with the 
leftmost 1 ending up In the carry flag. 
Add 40H, with carry, produces 04H + 
40H -I- 1 = 45H— the ASCII code for let- 
ter E. 

Any clearer? Obviously, since the pro- 
gramming guide forces you to use hex 
digits to determine the decimal-adjusted 
results, that consideration Is simpler. 
But also, notice that decimal 256 Is ac- 
tually 100 hex— in terms of the ac- 
cumulator. It Is GO with the 1 carried over. 
That's why 260 decimal produces a result 
of four with carry, not five. It just isn't 
visible to the eye In decimal notation, 
whereas hexadecimal makes it very cer- 
tain that a carry has taken place. 

I've jumped to trie defense of hex- 
adecimal notation not because I'm a 
longtime programmer rigidly committed 
to It (I'm neither), but rather because it's 
essential to understanding what your 
computer is doing, If understanding is 
what you care to do. Sure, numbering 
systems are arbitrary, and It's unfor- 
tunate that we're stuck with binary nota- 
tion and digital logic to start with. But It's 
currently an economic fact of life for 



computers; even If computers move 
away from binary operation, your TRS-80 
Model I, II, III, Color Computer, Videotex, 
Pocket Computer— or your Apple, OSI, 
Pet, Northstar, Atari, Vic, or Compu- 
squat— Is a digital device. That's its 
nature, so that becomes your problem to 
deal with in the least time-consuming 
manner. 

What VAR is that VARPTR PTRIng to? 

One more example; hang In there with 
me. Most programmers end up being 
forced to write sorting programs. Aside 
from being an unsatisfying project, sort- 
ing programs written In Basic can be 
dreadfully slow. Normally, sorting Is 
done by comparing one Item with 
another in some manner, and switching 
those Items. But if the Items are very long 
(such as names and addresses or other 
long strings), the sorts can take hours to 
complete. 

There's another way. Imagine you are 
the curator of a museum full of artwork, 
each piece with a reference number tack- 
ed nearby. You have had the catalog re- 
printed, but the artwork now does not 



SAVE^UP TO $600.00 NOW 
on TRS-80^Computers & Accessories 

With This Coupon 

Now you can own a great little computer at a great big dicount off the manufacturer's 
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performance and price. 

• FREE SHIPPING in the 48 continental contigious states. Model ij 
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• CONVENIENT ORDERING Call us TOLL FREE. 
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Catalog 
Number 

Radio Shack' 

26-4002 
Radio Shack* 
2&1062 
26-1066 
Radio Shack - 

26-3001 4K Color Computer 

26-3002 16K Color Computer 

Atarf" CX-2600 Video Computer System 

Pioneer^ VP-1000 LaserDisc Player 

Mattel Electronics' Intellivlsion " Home Video System 

Magnavox* Odyssey^ Home Video System 

Magnavox' Magnavision' Videodisc Player 



Description 

TRS-80 Model II 

64K 1-Disk Model II 

TRS-60 Model III 

Model III 16K 

Model III 48K 

TRS-80 Color Computer 



List Price 

3.899.00 

999.00 
2,495.00 



Charge 
By Phone 

3.579.30 

865.00 
2,243.50 



J Cashier's 
Check Or 
Money Order 

•3,299.00 

865.00 
'2,149.00 



399.00 359.10 

599.00 539.10 

180.00 164.95 

CALL FOR PRICES 
CALL FOR PRICES 
CALL FOR PRICES 
CALL FOR PRICES 



359.10 
539.10 
164.95 



Cash Price 
You Save 

600-00 

134.00 
346.00 

39.90 
59.00 

15.05 



Pan American 
Electronics. 



CALL TOLL FREE 800-531-7466 • (Operator 49) • Texas & Principal Number512/581-2766 • Telex 767339 

Dept. 49» 1117 Conway Avenue* Mission, Texas 78572 
NEW BRANCH 
2912 N. Mai n. Fort Worth. Texas 76106 • Plnone Number817-625-6333 » Telex 794836 



rademajicolTandy^orp^ 'With Oils coupon only! Prices subject to change without notice. 
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match the numbered reference labels. 
Would you (a) move the artwork to match 
the labels, or (b) move the labels to match 
the artwork? Assuming there has been 
no artistic decision involved In rearrang- 
ing the catalog, It's probably a lot easier 
to move a label instead of, perhaps, a 
two-ton piece of sculpture. 

This relates directly to sorting pro- 
grams. Every variable is located by Basic 
by means of a variable table It builds and 
stores just after the program listing. Your 
computer can provide you with that In- 
formation by means of the command 
VARPTR (variable pointer). If variable R$ 
has been defined, then command PRINT 
VARFTR{R$) will return the decimal value 
of the address at which all the informa- 
tion about R$ Is stored. 

If PRINT VARPTR(R$) yields 8591 on 
the Color Computer, then PRINT 
PEEK(8591) will reveal the length of R$, 
and PRINT 256 x PEEK(8593) + PEEK 
(8594) will tell where R$ starts in memory. 
For example, in the Color Basic version 
of Babybug, the command PRINT 
VARPTR(R$) might in fact yield 8591, 
PEEK(8591) = 2, and 256 x PEEK(8593) 



-I- PEEK(8594) = 16381. Interestingly, 
you will find that the formidable ques- 
tion— 

FOR X = 1 TO PEEK (VARPTR (RS) ) : PRINT CHR$ 
(PEEK (256 X PEEK (VARPTR (RS) + 2) + PEEK (VARP- 
TR (R$) + 3) + X - 1));; NEXT 

—will actually print R$ on the Color Com- 
puter! On the Model I or III, one aspect 
would be reversed, and the equation 
would read: 



FOflX = 1T0PEEK(VARPTR(R$)):PRINTCHR5(PEEK 
(PEEK(VARPR(R$)+ 1) + 2S6 x PEEK (VARPTR (RS) + 2) 

+ X - 1));:NEXT 



What is this 256 xPEEK(N)-k PEEK 
(N-hl) business? Because there are so 
many memory locations in the computer, 
any given location must always be 
specified using sixteen binary digits of 
data— one group of eight bits defines the 
most significant byte (MSB), or highest 
eight binary digits, and the other group 
defines the least significant byte (LSB) of 
the address. You will recall that Integers 
were also stored as two bytes of informa- 



tion, so this type of format Is not new. 
What is new, at least In the Model I or ill 
TRS-SOs, is how this Information is 
ordered. 

Because of choices made when the 
original 8006 microprocessor was 
designed In the early 1970's, its grand- 
child the Z80 stores addresses with the 
LSB first and the MSB second. For- 
tunately, users of the Color Computer 
will find that the 6809E processor keeps 
things in a more human-oriented order, 
with MSB first and LSB second. In both 
cases, though, the lower eight bits can 
be used as written, but the upper eight 
bits occupy the 256's place through the 
32768's place. Therefore, the number 
represented by this byte is actually 256 
times that of the least significant byte. 

Now to the point. If I PEEK Into the 
Model I's memory and find that an ad- 
dress is given as 233 decimal, 66 
decimal, I can calculate the true address 
with the formula LSB + 256 x MSB, or 
233 -I- 66 x 256. That is 1 7129, which many 
of you will recognize as the beginning of 
Basic program storage. If I PEEK Into the 
Color Computer's memory and find an 



TIME ... 

METHUSELAH" has time for you 
and your TRS-80° 



The name Methuseldh has always been associated with long life. The Methuselah 
computer clock board with its '2') hour clock and its perpetual calendar is indeed worthy 
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By Waldron P. Hoidsdon 

Hmmmm. Looks like another "Space Invaders" type game. 
Nice neat ranks of aliens poised over your defensive base 
. . . but WATCH OUT! Here they come, swooping down 
with their bombs and Kamakazi-like dives. There are in- 
dividual attackers plus group flights -- all intent on de- 
stroying your three bases before you destroy them. 

Full sound effects add further excitement to this machine 
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address written 30 decimal, decimai, i 
can calculate that address as 



256 X MSB + LSB. or 256 x 30 + 0. That Is 
7660, also the beginning of Basic. 



10 REN • THIS PROGRAM DEHONSTRATES 

20 REK • A BUBBLE SORT WRITTEN HITH 

3B REM * BOTH HORHAL REPLACEMENT 

40 REM ■ SORTING AND WITH VARPTR 

Se REM • REFERENCE POINTER SWITCHING 

60 CLEAR250iCLS:PRINT STRINGS{27,45] 

7B PRINT "<HX)RKAL STRING SORT" 

80 PRINT "<V>ARPTR STRING SORT" 

90 PRINT STBINGS(27,45) 

100 PRINT "TOUCH N OR V. " 

110 PRINT STRIHGS(27,45) 

120 AS-imCEYS i IF AS""N" THEN 130 

ELSE IF AS-'V" THEN 280 ELSE 

120 

130 REK 

140 REM * BEGIN NORMAL SORT PROCEDURE 

150 REM 

160 INP0T"HOW MANY ITEMS TO SORT" i I 
170 DIM AS(I) : FOR X - 1 TO I t 

PRINT X) : INPUT ASCX) t NEXT : 

GOSUB 440 
180 PRINT "< ... NOW SORTING ... >"i 
190 GOSUB 440 i REM REMOVE TO TINE 
200 X-liN-H+ltQ-0 
210 IFA$(X)<-A$(X+1)THEN230 
220 Q-'Q+1)Z$-AS(X} :A$(X]-A5(X+1) ; 

AS(X+1)-ZS 
230 X-X+llIPX>I-lTHEN240ELSE210 
240 IPQ-0THEN250ELSEIFX>I-1THEN190 

ELSE 210 
250 GOSUB 440 ~ 



NOW SORTING ...>") 
REM REMOVE TO TIME 



260 PRINT •<SORTED - TOUCH ENTER>"l 

270 A$-INKEYS i IF A$-CHR$(13) THEN 
10 ELSE 270 

280 REK 

290 REN * BEGIN VARPTR SORT PROCEDURE 

300 REN 

310 DEFINTX,Y,Z,I,K,LrK,N,Q,D,E : 
Y-0 t Z-0 t D-1 E E-2 t K-0 I 
L-0 I M-0 t N-0 t Q-0 t X-0 

320 INPUT'HOW NANY ITEMS TO SORT"(I 

330 DIM A$(I) t FOR X - 1 TO I I 

PRINT Xi I INPDT A$(X] i NEXT i 
GOSUB 440 

340 PRINT"< ,, 

350 GOSUB 440 

360 X-DiN-N+DiQ-0 

370 IFA$(X)<-A$(X'fD)TBEN39B 

380 Q-Q+D:Z-VARPTR[A$(xn lK-PEEX(Z}i 
I.-PEEK(Z+D) !M-PEEK(Z+E) lY-VARPTR 
(AS(X+D)) jPOKEZ,PEEK(Y) iPOKEZ+D, 
PEEIIY+D) jPOItEZ+E,PEEK{Y+E) :POKE 
Y,KtPOKEY+D,LtP0KEY+E,M 

390 X-X-fDiIFX>I-lTHEN400EL8E370 

400 IFQ-0THEN410BLSEIFX>I-1TBEN350 
ELSE370 

410 GOSUB 440 

420 PRINT "<SORTED - TOUCH ENTER>"( 

430 A$-INKEY$ i IF AS-CHRS(13) THEN 
10 ELSE 430 

440 CLS ! FOR X - 1 TO I 

450 PRINT A$(X) t NEXT X t RETURN 



Program Listing 2 



* Babybug II for Model I/III * 

Program memory requirement: 648 bytes 

Running time requirement: 162 bytes 

Basic normal overhead requirement: 83 bytes 

Memory Size can be set to total memory minus 1100 bytes 

1 CLEAR4:DEFINTD-YtDEFSNGQ:B-l:F«256:G-16:H"48:I-55:J=64 

2 CLS:INPUT"ORG MSB" ;R$:GOSUB13:POKE16527 ,M:L«M: INPUT'ORG 

LSB"iRS:GOSUB13iPOKE16526,M:K=M:Q-K+F*L:IFQ>32767THEN 
Q-Q-F*F 

3 PRINT'ENTER HEX BYTES (X - STOP S = SKIP) 

4 FORy=ET08:GOSUB19:FORW=ETOG 

5 P=260+3*W+(y-E)*J:PRINT@P,CHRS(91) i 

6 R$=":INPUTR$:IFR$="X'THEN12ELSEIFR$-"S"THEN9ELSEIFR$-"" 

THEN7ELSEGOSUB13 : POKEQ,M 

7 Q=Q+E:PRINTCHR$(27)CHRS{30);:PRINTeP-64,RS;:K=K+E:IFK<F 

TBEN8ELSEK«=0 - LbL+E 

8 NEXTW:PRINT:GOSUB20:GOTO11 

9 PRINTCHRS(27) ; :FORX-QTOQ+(G-W) :K=K+E: IFK<FTHEN10ELSEK"0: 

L=L+E 

10 NEXTXiQ»Q+17-W:GOSUB2l!GOSUB20 

11 NEXTY:CLS:PRINT:PRINT:PRINT!G0T04 

12 INPUT"1 = RUN PROG, 2 » RE-ENTER";S:IPS<>1THEN2ELSEPRINT 

USR(0) :G0T012 

13 R=ASC(RIGHT${R$,E)) :S"ASC(LEFT$(RS,E) ) 

14 1FR>47ANDR<58THENT=R-HELSEIFR>JANDR<71THENT"R-I 

15 IFS>47ANDS<58THENU=G*{S-H)ELSEIFS>JANDS<71THENU=G*{S-I) 

16 M=T+U: RETURN 

17 N-V/F:0»V-N*F:N=0/G!D«0-N*G:IFN>9THENPRINTCHRS(I+N) ;: 

ELSEPRINTCHRS(H+N) ; 

18 1FD>9THENPRINTCHRS(I+D) ; :RETURNELSEPRINTCHRS(H+D) ; : 

RETURN 

19 G0SUB21:F0RX=QT0Q+15iV=PEEK(X) iG0SUB17:PRINT" ";:NEXTi 

PRINT: RETURN 

20 PRINTCHR$(27)TAB(7) ; :FORX=Q-GTOQ-E:V-PEEK{X) :G0SUB17: 

PRINT" ■;:NEXT:PRINTiRETURN 

21 V=L:GOSUB17:V=K:GOSUB17:PRINT" * ";iRETURN 

Program Llsfing 3 



However, these time-consuming con- 
versions are easier for me because I 
think in hexadecimal; I can do It in my 
head, since I only need to know the one- 
byte hex-to-declmal conversions. With 
practice, these one-byte conversions are 
easier to remember than multiplying by 
256. My decimai 233, 66 address men- 
tioned earlier turns into E9 42 hex, which 
(because It's stored backwards In Z60 
terms) becomes address 42E9. In the 
Color Computer, decimal 30, becomes 
1E00 hex, which Is already In the proper 
order. And since the Model I's disk and 
Level III Basic packages ait include the 
&I-I option for hex numbers, I need con- 
vert no further. Extended Color Basic 
also Includes &H as standard equipment 
(as well as HEX$— read on). 

Toll and Trouble 

There is a reason I brought up all these 
addressing confusions: like switching 
the catalog labels under the pieces of art, 
It's faster to switch the VARPTR labels to 
variables rather than the variables 
themselves. Program Listing 2 shows 
two ways of doing a simple bubble sort 
on the Model I. The normal sort starts at 
line 140, evaluates each item In the list 
against the next Item In the list, and 
switches them (line 220) If they are out of 
order. A flag is set (variable Q) any time 
Items In the list are switched; when all 
have been switched, Q Is zero, and a com- 
pletion message Is printed. This sort 
essentially moves all the artwork every 
time the sort Is passed through. 

The VARPTR sort begins at line 290, 
defines all variables (to set aside all 
necessary space In the VARPTR table), 
and starts In much the same way as the 
usual bubble sort: an Item is evaluated 
against the next one in the list. Then 
things begin to change: Line 380 Is 
packed tightly to speed up the operation. 
Z is set to VARPTR(A$(X)), the address at 
which information about the current Item 
being sorted is stored. Variables K, L and 
M are given the Information about the 
Item under consideration— its length, 
and where it currently resides in memory. 
Y Is then set to VARPTR(A$(X+ 1)), the 
address at which information about the 
next item in the list Is stored. A$(X) Is 
POKEd with PEEK(Y), PEEK(Y + 1), and 
PEEK(Y-i-2), meaning the information 
about A$(X-i-1) Is being POKEd into 
A$(X). Likewise. A$(X-i- 1) Is POKEd with 
K, L and M, the storage Information 
atx>ut A$(X). The computer can now be 
fooled into believing A$(X) Is A$(X + 1) 
and vice-versa. This line has switched 
the labels, not the artwork. 

Is it worth the trouble? That depends 
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on the length of the sort you are doing. 
The fewer the Items In the sort, the less 
advantage the VARPTR method will 
have. Table 7 compares the two sorting 
techniques. 

It's clear that when memory space Is at 
a premium, as It probably would be with 
large amounts of data to be sorted, the 
VARPTR method has a remarkable ad- 
vantage—sorting 50 four-character 
strings In less than half the time an or- 



dinary sort would need. It can also avoid 
potentially disastrous out-of-string- 
space errors. 

The cause of the delay during sorting, 
by the way, is something called "garbage 
collection." When small computers such 
as the TRS-60 manipulate strings (such 
as the command Z$ = A$(X) in Listing 2), 
temporary string space Is set up for Z$. 
Each time Z$ Is used this way again, new 
space is set up for it, and the old version 
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* Babybug for Color Computer, 4K Color Basic * 

Program memory requirement: 864 bytes 

Running time requirement: 225 bytes 

Basic normal overhead requirement: 108 bytes 

Clear memory to total available minus 1197 bytes 

(CLEAR 8,2750} 

1 CLEARS : E=l : F=256 : G=16 : H=48 : 1-55 : J=64 

2 CLS:INPUT"ORG MSB" ;RS:G0SUB13:L=H: INPUT'ORG LSB" ;R$:GOSUB 

13:K=M:Q=K+F*L:ZN*=Q:PR1NT"ENTER HEX BYTES. X=STOP, S= 
SKIP 

3 FORY=E T08:GOSUB21:FORW=E T08 

4 P=125+3*W+{Y-E)*32:PRINT@P," "i 

5 RS="':INPUTRS:IFRS-"X"THEN12ELSEIFR$-="S'THEN9ELSEIFR$="" 

THEN7 

6 PRINT@P-25,RS;:GOSUB13:POKEQ,M 

7 Q=Q-fE:PRINT@Y*32+71,""j:K=K+E:IFK<F THEN8ELSEK=0:L=L+E 

8 NEXTW:GOSUB22:GOT011 

9 PRINTeY*32+71,"";:FORX=Q T0Q+{8-W) :K=K-fE: IFK<F THEN10ELSE 

K=0:L=L+E 

10 NEXTX:Q=Q■^9-W:GOSUB22 

11 NEXTY:CLS:PR1NT: PRINT: PRINT:G0T03 

12 INPUT'l = RUN PROG, 2 = RE-ENTER2; Z : IFZ01THEN2ELSEEXEC 

ZN:CLS:G0T012 

13 R=ASC(RIGHT$(R5fE) ) ;S=ASC(LEFT$(R$,E) ) 

14 IFR>47ANDR<58THENT=R-H ELSEIFR>J ANDR<71THENT=R-I 

15 IFS>47ANDS<58THENU=G*(S-B)ELSEIFS>J ANDS<71THENU=G* (S-I) 

16 M=T+U:RETURN 

17 A=INT(V/F) :B=V-A*F:C=INT(B/G) iD«B-C*G 

18 IFC>9THENPRINTCHR$(I+C) ;ELSEPRINTCHR$(H-KC) ; 

19 IFD>9THENPRINTCHRS { I+D) | :RETURNELSEPRINTCHRS (H-l-D) j : RETURN 

20 RETURN 

21 GOSOB23:FORX=Q T0Q-I-7:V=PEEK(X) :G0SUB17 :PRINT" ";:NEXTX: 

PRINT: RETURN 

22 PRINTeY*32-H71 , " " ; : F0RX=Q-8TOQ-E : V=PEEK (X) :G0SUB17 : PRINT 

" ";:NEXTX:PRINT: RETURN 

23 V=L:G0SUB17;V=K:G0SUB17:PRINT" * ■;:RETURN 

Program Listing 4 



of Z$ Is abandoned. It's still there in 
memory, but It's Inaccessible and the 
memory space is lost (temporarily!). Why 
would anyone create a Basic that did 
this? The answer is really quite 
reasonable: Since your TRS-80 Basic 
doesn't require you to define how long 
any string Is going to be before you use It, 
Basic can't know ahead of time. If It was 
forced to use the same location to store 
Z$ every time, and Z$ got longer, It just 
wouldn't fit. To avoid any such conflicts, 
every time a string is defined— even if It 
has the same variable name — new space 
is set aside for It. 

However, Basic has to recover this 
dead space sometime, and that process 
Is called garbage collection. When 
Cleared string space Is used up, opera- 
tion of your running program Is sus- 
pended, and Basic picks its way through 
string storage memory, cleaning out the 
dead strings and moving the live strings 
into those areas. When there are hun- 
dreds of strings Involved, Basic has to 
check each and every one against its en- 
tire VARPTR table to see if it's alive or 
dead. That process can take up to an 
hour in complicated programs. 

With the VARPTR sort, there is no gar- 
bage collection during the sort, because 
no string equations are used— only 
numerical pointer switching! That ac- 
counts for the remarkably consistent 
time for sorting, irrespective of the 
length of the items being sorted. The nor- 
mal sort, on the other hand, takes longer 
and longer as It Is required to pick up Its 
garbage more often. 

In Listing 2 I've only cleared a small 
amount of space (In line 60); If the cleared 
space were larger, the normal program 
would beat the VARPTR sort. But don't 
forget that most sorting programs will 
use massive amounts of data, thereby 
limiting the amount of string space you 
can clear. If you have a sorting program 
that runs a long time, try re-writlng it with 
the VARPTR sort. It might save you a cou- 
ple of hours. 

At Last 

The purpose of this month's column 
(several thousand words ago) was to 
present again the Babybug machine-lan- 
guage monitor. Here is a brief descrip- 
tion of the major actions of each version 
of this program. 

in Program Listing 3 (the Model I or III 
version), string space Is reduced to a 
minimum, and integers and other values 
are defined. The input prompts for most- 
significant and least-significant address 
bytes are presented, and the input 
strings are converted to numbers and 
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POKEd into the machine-language USR 
entry point. Variable Q Is set to the cur- 
rent address being inspected; if Q is 
greater than address 32767, Level II 
Basic requires that il be converted to a 
negative number. 

The user Is then given a short menu of 
options (to enter hexadecimal bytes, to 
stop entry, or to skip the current tine). The 
target address and the memory contents 
of it and 15 successive locations are 
displayed in hex. An arrow prompt points 
to the first hex byte. The options are 
(enter) to move on to the next byte; S 
(enter) to redisplay the first line and 
display the next one; X (enter) to ter- 
minate entry and present a new prompt; 
or the entry of any hexadecimal byte 
from 00 to FF. 

A total of eight lines(128 bytes) may be 
displayed at any lime; advancing to the 
next memory location clears the screen 
and presents a new tine of information. 



The X command (terminate entry) pre- 
sents a new prompt asking the user 
either to run the machine code which has 
just been entered, starting at the initial 
entry address (the response to the 
MSB/LSB prompt), or to re-enter at a new 
address and begin the process again. 

Major subroutines include hexa- 
decimal string to numeric conversion 
(lines 13-16). integer to two-character 
hex string conversion (tines 17-18), full 
line display (line 19). revised line display 
(line 20), and address display (line 21). 

The programming for the Color Basic 
version (Program Listing 4) differs from 
the Model I or III Babybug in two ways: 
the lack of the DEFINT function requires 
that integers be taken during calculation 
(line 17), and the absence of a USR func- 
tion demands that the EXEC routine be 
used instead (line 12). Minor differences 
include the absence of an upward car- 
riage return, and a required space 
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* Babybug for Color Computer, 16K Extended Color Basic * 

Program memocy requirement: 804 bytes 

Running time requirement: 190 bytes 

Basic normal overhead requirement: 88 bytes 

Clear memory to total available minus 1082 bytes 

( PMODE0 : PCLEARl : CLEARS ,4200) 

1 CLEARS :E=1:F=256:G=16:H«48: 1=55 :J=64 

2 CLS:INPUT"ORG MSB";R$:G0SUB13 :L=M: INPUT"ORG LSB" ; RS:GOSUB 

13:K=H:Q«K-fF*L:DEFUSR0«Q:PRINT"ENTER HEX BYTES. X-STOP 

S=SKIP 
FORy=E T08:GOSUB19:FORW=E T08 
P=125-f3*W+(Y-E)*32:PRINTeP/" "; 
R5="":INPUTR$;IFR$="X"THEN12ELSEIFRS«"S"THEN9ELSEIFRS="" 

THEN? 

PRINTeP-25,RS;:GOSUB13:POKEQ,M 
Q«Q+E:PRINTeY*32-f71,";:K=K-frE:IFK<F THEN8ELSEK=0:L=L-fE 

8 NEXTW:GOSUB20:GOTO11 

9 PRINTeY*32-h71,"";:FORX=Q TOQ+( 8-W) :K=K+E: IPK<F THEN10ELSE 

K=0:L=L+E 

10 NEXTX:Q=Q-l-9-W:GOSUB20 

1 1 NEXTY : CLS : PRINT : PRI NT : PRINT : G0T03 

12 INPUT'l = RUN PROG, 2 « RE-ENTER" ; Z: IF201THEN2ELSEPRINT 

USR0(0) :CLS:G0T012 

13 R=ASC(RIGHT5(RS,E) ) : S=ASC( LEFTS (R$,E) ) 

14 IFR>47ANDR<58THENT=R-H ELSEIPR>J ANDR<7iTHENT-R-I 

15 IFS>47ANDS<58THENU=G*(S-H)ELSEIFS>J ANDS<7lTHENU=G* (S-I) 

16 H=T■^U:RETURN 

17 VS=HEXS(V) :IFLEN(V$)=lTHENPRINT-0"+V$;ELSEPRINTV$; 

18 RETURN 

19 G0SUB21:F0RX=Q T0Q-h7 : V=PEEK{X) :G0SUB17 rPRINT" ".'iNEXTX 

PRI NT: RETURN 

20 PRINTeY*32-f71,"";:FORX=Q-8TOQ-E:V=PEEK{X) :GOSUB17 :PRINT 

" ■;:NEXTX:PRINT:RETURN 

21 V-L:GOSUB17:V=K:GOSUB17:PRINT" • ■;:RETURN 

Program Listing 5 



separating variable names from subse- 
quent keywords (fine 3, for example). The 
display is similar but not identical 
because of the 32-character line limit on 
the Color Computer; only eight bytes of 
hex data are displayed per line (64 per 
screen). 

The Extended Color Basic version of 
Babybug (Program Listing 5) is similar 
but faster than the Color Basic program 
because of the excellent HEX$ com- 
mand. The entire numefic-to-hex*conver- 
sion process is handled by the command 
V$ = HEX$(V) in line 17. The only 
modification I've made is the addition of a 
leading zero in front of single-digit hex 
numbers. A DEFUSR function is used in- 
stead of EXEC. 

Sample Session 

Enter Babybug in Basic, and be sure to 
save a copy to tape before you run il, as 
random entry of hex information into 
memory can crash everything. After sav- 
ing and verifying a copy, run the program. 
The screen will clear and this prompt wilt 
be displayed: ORG MSB?_, It is asking 
for the most significant byle of the ad- 
dress you wish lo inspect, a two-digit 
hexadecimal number. For this first ses- 
sion, the screen will be examined. Enter 
3C (04 on the Color Computer). The next 

prompt will be: ORG LSB? This asks 

for the least significant byte of the ad- 
dress to be examined. Enter 00 (00 on the 
Color Computer). The short menu (Enter 
Hex Bytes. X = Stop. S = Skip) will be 
displayed, followed by the complete ad- 
dress (3C00 or 0400) and sixteen (eight) 
hexadecimal bytes of data. 

The first three bytes will likely be 4F 52 
47. No, this is not machine code yet. 
These are the ASCII values for the first 
three letters at the top left of the 
screen— ORG. Type: 41 (enter) 42 (enter) 
43 (enter). The bytes displayed should 
change as you enter each one, and the 
characters at the top left corner of the 
screen will change to ABC. Continue to 
enter hex data from 00 to FF and observe 
the screen display change. As you reach 
the end of the line, a new line will be 
displayed with the continued screen in- 
formation. When you have entered 128 
bytes (64 on the color computer), the 
screen will clear and the hex display will 
be continued. 

Now type X (enter). You will see the 
prompt 1 = RUN PROG, 2 = RE-ENTER, 
Type 2 (enter). The screen will clear 
again, and the entry (origin) prompt will 
reappear. Before continuing, make sure 
you have saved a copy of the program! 
Enter 00 (AO in Color Basic, 80 in Ex- 
tended Color Basic) to MSB and 00 to 
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COMPUTER CENTER 



31 East 318( Street • New Yorlc. N.Y. 
(betweon Madlaon i Park Avenues) 



480 Lexington Avenue • New York. N.Y. 
(Americsn Brands BIdg., betwaan 46th i 47th St.) 



\ 



presenting the LARGEST SELECTION OF SOFTWARE EVER ASSEMBLED. 



the best available on the market today for TRS-80® Computers 

at SUPER DISCOUNT PRICES! 



AVALON HILL 

n MIDWAY 1360 

D NUKE WAR 13 50 

D PLANET MINERS 13 50 

D CONVOY RAIDER 1350 

n Bl BOMBER 13 50 

a LORDS OF KARMA 1B 00 

D CONFLICT £500 13 50 

D COMPUTER ACQUIRE , 18 00 

D BASEBALL 22 50 

D EMPIRE OVERMIND 27 00 

ADVENTURE INTERNATIONAL 

n ADVENTURE HINT BOOK 7 95 

a ADVENTURE "0 6 25 

D ADVENTURE (1.2.3) |D| 35 95 

D ADVENTURE (4.5.6) |D] 35 96 

D ADVENTURE (7.8.9) [D] 35 95 

D ADVENTURE "10(0! 18 95 

D ADVENTURE (specify 1-101 1795 

D MEAN CHECKERS MACHINE 17 95 

D MEAN CHECKERS MACHINE [D| 22 95 

D DR CHIPS 17 95 

O DR CHIPS [D] 1795 

D INTER FICTION SAMPLER [D] .13 55 

D INTER-LOCAL CALLS [D] 17 95 

D INTER-TWO HEADS ID] 17 96 

D INTER-IMPETUOUS |D| 17 95 

□ KID-VENTURE 1 1795 

aSTARTREK35 1795 

D STAR TREK 3 5 ID] 17 95 

D ZOSSEDINSPACE 13 55 

n MACES "1. BARLOG 31 00 

D MACES (11. SISYPHUS ...31.00 

D LUNAR LANDER 17 95 

D LUNAR LANDER ID] 18 95 

D POKER '3 55 

n GALACTIC TRILOGY [D] 35 95 

D SILVER FLASH 1795 

D SILVER FLASH [D] 17 95 

D MISSILE ATTACK, , , , 17 95 

D STAR SCOUT 17 95 

□ SPACE INTRUDERS 18 75 

D STAR FIGHTER 22 50 

ACORN SOFTWARE 

a ATERM 1795 

D SySTEMSAVERS 13S5 

D DISASSEMBLER 13 55 

□ DISK/TAPE UTILITY 17,96 

n STAR TREK SIMULATION 8 95 

D GAMMON CHALLENGER 13 55 

D PIGSKIN . 1355 

a ULTRA TREK 13 65 

D SPACE WAR B 95 



□ WARP/LANDER. 

D BASKETBALL ID] 

□ BASKETBALL .... 

□ DUEL-N-DROIDS 
D DUEL-N-DROIDS 



,8 95 

18 95 

13 55 

D| 18 96 

■.. 13.55 

D INVADERS FROM SPACE 13 55 

n INVADERS FROM SPACE |D1 IB 95 

D PIGSKIN |D| 1B95 

D PINBALL 13 55 

D PINBALL |D] 18 95 

n EVEREST EXPLORER 13 45 

D EVEREST EXPLORER |D| 18 95 

D SUPERSCRIPT {D\ 28 95 

MED SYSTEMS 

D DEATHMAZE 5000 1 1 65 

D RATS REVENGE 1 1 65 

D REALITYENDS B 95 




Check program desired. 
Complete ordering information 
and mail entire ad. 
Immediate Stiipments from stock. 



KEY: 

C-TRS-80 Color 

D-on Disc 

If not marked - Cassette 




EPX-AUTOMATED SIMULATION 

D STAR WARRIOR |CASS. OR DISK) 35 95 

D THREE PACK [D] 45 00 

a STARFLEET |CASS. OR DISK) 22 50 

n INVASION ICASS. OR DISK] 22 50 

□ APSHAI [CASS.ORDISK] 35 95 

D RYN ICASS., OR DISK) 17 95 

D WORLOC (CASS.ORDISK) 1795 

D RIGEL ICASS OR DISK] 26 95 

D HELLFIRE ICASS OR DISK] 35 95 

D CRUSH, CRUMBLES, CHOMP ICass or D] 26 95 

LOBO 

O LOOSID] 12500 

COMPUTER SIMULATIONS COMPANY 

D BATTLE OF BULGE-BASTGONES 17 95 

a D-DAV INVASION OF FRANCE ,. 17 95 

D DOG RACE, COLOR ONLY [C| 5 95 

D GREAT DICTATOR 7 25 

D JEDI KNIGHT 1175 

D LUNAR ENCOUNTER 1 1 75 

n MERCENARY 8.95 

□ SHARK. COLOR ONLY [C| 5 95 

D SLOT MACHINE 7 25 

D BATTLE OF BULGE-ST VITH 13 55 

D STAR CRUISERS 13 55 

□ U-BOAT. COLOR ONLY |C| ... ..596 

D ORION WAR COLOR ONLY [C] 5 95 

D POLARIS, COLOR ONLY [C] 5 95 

D ASTEROID PIRATES 1355 

INSTANT SOFTWARE 

D AIR FLIGHT SIMULATION 8 95 

a ASTEROIDS [D] 17 95 

D BALL TURRET GUNNER 8 95 

D BATTLEGROUND 8 95 

D CHECK MANAGEMENT |D| 36 55 

n CHESSMATE-80 17 95 

n COSMIC PATROL 1355 

□ COSMIC PATROL |D| 1795 

D DAREDEVIL 8 95 

D DISASSEMBLER 8 95 

D DISK EDITOR [D] 36.55 

D DISK SCOPE 1D| 17 95 

D DLDIS ID] 1795 

a DEVICE DRIVERS 17 95 

D ENHANCED BASIC 22 50 

D FLIGHTPATH 8 95 

D I Q TEST 895 

D INVADERS 8 95 

D INVESTORS PARADISE 8 95 

n IRV 2250 

D IRV |D| 2?55 

a JET FLIGHTER PILOT 1355 

D MONEY MADNESS 8 95 

D NIGHT FLIGHT 8 95 

D ONE-D MAILING LIST [D] 22 50 

a SKIRMISH-80 ...895 

D TLDIS '3SS 

n UTILITY I 895 

n UTILITY (I 895 

QUALITY SOFTWARE 

D DEBUG 1355 

D FASTGAMMON 1795 

D LOWBALL POKER 10 46 

D BANKSHOT 8 95 

a POKER PETE 1045 

D RUMMY MASTER 10.45 

□ 3D TIC TAG TOE 13.55 

D OS LIGHT PEN 17 95 

D SKETCH 80 1355 



PERSONAL SOFTWARE 

n CCA MGMT-TRS-80 B5 OO 

□ MONTY MONOPOLY [Dl 35 95 

D ZORK (D| 3595 

816 FIVE SOFTWARE 

D ATTACK FORCE 14 30 

n GALAXY INVASION 14 30 

D METEOR MISSION II 14 30 

D SUPER NOVA 14 30 

D COSMIC FIGHTER 14 30 



APPARAT 



a NEWDOS/80 2 



HAYDEN 



D SARGON II . . 
D SARGINIl ID] 



STRATEGIC SIMULATIONS 

O COMPUTER BISMARCK |D] . . . 

O COMPUTER BISMARCK 



.25 00 
.3000 



51 50 
.42 00 



SUB-LOGIC 

D T80-FS1 FLIGHT SIMULATOR 

D 3D GRAPHICS 

MICROSOFT SOFTWARE 

n ADVENTURE (D] 

O ASSEMBLY DEVELOPMENT [D| . . . 

D BASIC COMPILER ID] 

D EDITOR/ASSEMBLER 

D FORTRAN COMPILER (D] 

n LEVEL III BASIC 

n MuMATH (D| 

D OLYMPIC DECATHALON (CASS OR DISK) 
D TYPING TUTOR 



.22 00 
26 50 



.26 60 
.80 00 
175 00 

.25 00 
.80 00 

..44 00 
.64 00 
.25 00 

. 13 56 



SSM 



D LAZY WRITER |l 

D CONQUEST 

n DISASSEMBLER 
D HANGMAN |C] . 
D TAPE COPY . 



112 50 
13 45 
.13 45 
.11 65 
13 46 



TPG 



n DEATH DREADNAUGHT .. .. 
D DEATH DREADNAUGHT |D| . 

D DEADLY DUNGEON 

D OMNI TERM |D] 

D DRAGON QUEST 

O DRAGON QUEST |D| 

□ TRIPLE ADVENTURE [D| .. 



.13 45 
17 95 
.13 45 
.85 00 
14 35 
.19 75 
.31 00 



SYNERGISTIC SOLAR 



D ACE 21 

a ANTS 

□ LIFE 

a PARSECTOR 



17 95 
13 45 

.13 45 
.17 95 



SPECTRAL 

n SPACE INVADERS (C] . ... 

a METEROIDS (C] 

D SPACEWAR [C] 

D LIFE |C] 

D ETCH-A-SKETCH [C| 

D ARTILLERY (C] 

D SPACETRADERS 1C| 

D MAGICeOX (C) 



.19 75 

19 76 
.19 75 
.13 45 

.8 95 
..725 
.13 45 

22 50 



Ship the above programs as checked to. 

Mt /Mrs ^ 

Address , — 

City — _ 

State ^ Zip 



Number of Programs Ordered — 

Amourl of order 

N y residents add Sales Tax 

Add shipping anywhere m the U S 
Total amouni enclosed 



2.00 



I have a 



with 



Name ol Computer 



Charge my D Master Charge D Visa 

Signature . . 



K memory Card No 



Expires 



iMlCBO-OCT SI 



Personal Checks please allow 3 weeks 



Mail to: 



\ 



TRS-80 IS a registered trademark of TANDY CORP 



\ Prices subject to change without notice. 
V_ 



DIGIBYTE EHTSTEMS COBF. 

31 East 31st Street, New York, N.Y, 10016 
OUTSIDE NEW YORK CALL TOLL FREE (800) 221-3144 

IN NEW YORK CALL (212) 889-8975 



^226 



^/ 



-See List ol AdvertiserB on page 386 
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LSB. The screen will now display the 
opening hex bytes of Basic. This is 
machine language, and this Is a machine 
language program that you are going to 
run. Type X (enter), and In response to the 
run/re-enter prompt, type 1 (enter). You 
will see your computer's sign on 
message— Memory Size? or MEM SIZE? 
for Model I; CASS? for Model III; Color 
Basic 1.0 or Extended Color Basic 1.0. 
Babybug has been crashed, and your 
computer looks like you just turned it on. 

Now reload Babybug (you did save it, 
right?), and run it. Respond to MSB and 
LSB with 70 and 00 (OE 00 on the Color 
Computer). Enter the bytes in Table 8 one 
at a time. 

Enter X. Now run this program by 
responding 1 to the prompt. Nothing? 
Begin to type. Letters are displayed on 
the screen, starting at the top left corner. 
But no, you are not In Basic. This Is a 
machine-language program which (a) 
calls a Basic keyboard scan routine, (b) 
checks for the enter key— carriage return 
code OD hex— returning to Basic if it 
finds It, and (c) puts the typed character 
in screen memory. 



You'll notice some Interesting things 
when you begin typing with this routine. 
There is no cursor following the letters, 
since this program doesn't invoke a cur- 
sor display routine. Also, things like shift 
and shift lock (shlft-0) produce odd 
characters on the Color Computer, and 
the backspace displays an H on all 
machines. 

Here's a look at the hex code and what 
It does. The Model I or III program loads 
register HL with screen address 3C00 (21 
00 30), calls the ROM keyboard Input 
routine (CD 2B 00). loops back to the 
keyboard routine If the value returned 
from the keyboard Is zero {28 FB), com- 
pares to see If It Is a carriage return (FE 
OD), returns to Basic if it Is a carriage 
return (C8), otherwise puts the character 
on the screen (77), moves to the next 
screen position by incrementing HL (23), 
and loops back to do the whole thing over 
(C3 03 70). 

The Color Computer program loads the 
X register with the screen address 0400 
(8E 04 00), calls the Color ROM keyboard 
routine (BD A1 71), checks if the value is a 
carriage return (81 OD), jumps ahead one 



place If it Isn't a carriage return (26 01), 
otherwise returns to Basic (39). When It 
jumps ahead with a character, it puts it in 
screen memory (A7 80), and loops back to 
do It again (7E OE 03). 

The Z80 and the GSOQE are different 
processors with unique properties; yet 
it's revealing to notice how similar these 
processes are, and even to compare 
them Instruction-for- Instruction. 
Although the hex codes are different, 
many of the properties are the same. 

You're tired of testing and want 
something substantial? That's up to you. 
I will be happy to publish Interesting 
routines created in hex code, as well as 
some of your experiences in developing 
them in hex notation alone. (No cheating, 
assembly language users!). 

Updates 

Look for some minor corrections and 
suggestions to the high resolution 
graphics board for the Model I (The 
Detailer, July) In next month's issue. 

A printed circuit board is available for 
the Micro Front Panel (May). Write to me 
at Roxbury, Vermont 05669. ■ 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

TSO'FSI night Simulator 

fortheTRS-80 



SubLOGICsT80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-lhe-cockpit view of flight. 

Thanks to fast animation arKi accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you've acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in tfie 
package. Destroy ttie enemy s fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 trame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 



$ 



Only 



25 




See your dealer or order direct. For 
direct order, irxilude $1.25 and specify 
UPS or first class mail. Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 








LOGIC 



Communications Corp. 
Box V, Savoy, IL 61 874 
(217)359-8482 
Telex: 206995 ^i50 
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by Michael Tannenbaum C.P.A. 



"Of all software packages, 

a financial report preparation 

package can be most valuable. . . " 



Of alt microcomputer software pack- 
ages available, a Financial Report 
preparation package can be the most 
valuable to an accountant. The use of a 
microcomputer system to prepare these 
reports can be an enormous time saver. 

Without a microcomputer report prepa- 
ration requires an enormous amount of ef- 
fort. First, a hand written report must be 
prepared and reviewed by the audit part- 
ner. Then a copy must be typed, proofed 
and compared to the original. Finally the 
whole report must be subject to an in- 
dependent review. If a last minute change 
Is required, the whole process of proofing 
must be repeated. Needless to say, the op- 
portunity for an embarrassing error to oc- 
cur Is quite high. 

The alternative of using a microcom- 
puter to minimize this risk has been the 
root of the many requests I have received 
for information about report preparation 
systems. However, all the reports I have 
seen were part of General Ledger pack- 
ages and were limited to an income state- 
ment and balance sheet. Reports such as 
the Statement of Retained Earnings, 
Changes In Financial Position, Analysis 
of Changes in Working Capital and Cash 
Flow Statement were missing. These 
reports are required to conform to profes- 
sional standards. 

Since the report Is often used by third 
parties the standards of disclosure are 
higher than reports prepared for Internal 
use. As a result, the reporting system 
must accommodate data such as foot- 
notes where explanations of complex 
transactions or accounting policies must 
be presented. Although summary data 
may be adequate for outsiders, many 
clients require detailed financial reports 
for their own use. Thus many accountants 
prepare, In addition to summary reports, 
detailed departmental and comparative 
reports. These supplementary reports are 
usually presented In an appendix to the 
main reports. 

New General Ledger System 

The new three-disk General Ledger 
system (#26-4601) has been designed to 
cope with the problems of the profes- 
sional and yet be usable in a small busi- 



ness environment. The ledger is designed 
to integrate with the other three disk 
systems. Accounts Receivable (#26-4604), 
Accounts Payable (#26-4605), and Payroll 
(#26-4603). If these other systems are 
used, summary data can be transferred at 
the month's end without the need for 
manual journal entries. The system has 
the capacity to handle up to 400 general 
ledger accounts and 4300 year-to-date 
transactions. 

It is supplied on seven disks, three of 
which contain programs, and four data 
files. Two of the data files contain a sam- 
ple general ledger with all accounts and 
reports previously defined. These sample 
data files are intended to provide a prac- 
tice set for the owner of the system to use 
and become acquainted with. They are 
quite useful. The procedures to define ac- 
counts and output reports are compli- 
cated and the examples of data files that 
already work are helpful for reference 
purposes. 

The program disks are arranged so that 
file maintenance programs are contained 
on program disk two and data entry pro- 
grams are contained on disk one. This pro- 
vides a sound method for separating file 
maintenance and up-date functions for 
general ledger processing. If these func- 
tions are separated, proper internal con- 
trol over the ledger should be established. 

Once a decision is made to automate 
general ledger processing, serious 
thought should be given to the arrange- 
ment of the output reports and the con- 
tent of the financial statements prior to 
setup. Once installed, changes will be 
quite painful. The system contains an 
enormous amount of data. Balances are 
retained for each prior account and bud- 
geted data by financial period. Thus, 
changes will involve shuffling lots of data. 

File Setup 

After the content and presentation of 
the financial reports has been deter- 
mined, preparation and input of master 
file data can proceed. To aid In this pro- 
cess, the accompanying documentation 
devotes a good deal of space to file setup. 
I recommend that you read it several 
times before attempting the setup pro- 



cedure. As with the accounts receivable 
system, an error in selecting an option In 
the initial files can cause a problem later 
on. The system uses decisions made 
when setting up the initial files to guide 
the setup procedure on the account and 
report files. For example, if a negative 
answer Is made to the G/L cost center 
question on the company file mainte- 
nance screen, departmental reporting Is 
Inhibited and only a four digit account 
number Is permitted. 

Written in Cobol 

The system is written in Cotx)l and like 
the other Cobol systems does not have 
full cursor controlled data entry screens. 
If an error is noticed In a data line after 
Enter has been pressed, the entire screen 
must be completed before corrections 
can be made. This feature and the strange 
assignment of special function keys will 
take some time to become familiar with, 
the Tab, ESC and F1 and F2 are used as 
specialfunctionkeys. Tablsused toenda 
program and ESC Is used to restart data 
entry In a field. F1 and F2 may have dif- 
ferent functions depending on the pro- 
gram in use. Unfortunately not all of the 
screens indicate the operation of these 
special keys so you just have to remember 
what does what and when. While this is In- 
convenient, the other benefits of the sys- 
tem far outweigh this difficulty and all of 
the other three disk systems use the same 
conventions. 

Report Generator 

The key factor that distinguishes this 
system from all others that 1 have seen Is 
the report generator. The report generator 
accommodates five types of statement 
formats and allows a great deal of cus- 
tomization. The reporting format types In- 
clude the balance sheet, profit and loss 
statement, cash flow, statement of 
changes in financial position and analysis 
of changes In working capital. The differ- 
ent format types limit the column head- 
ings and ratio analysis options available 
but otherwise allow freedom over account 
combinations and presentations. 

The means of implementing each for- 
mat Is found In the financial statement 
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layout procedures. The layout is accom- 
plished Py creating a data file with a de- 
scription of the form. To provide instruc- 
tions to the printing program a special 
syntax is employed. The instructions are 
arranged in sequential order and are ex- 
ecuted in the same manner as a Basic pro- 
gram. Although the report specification 
procedures are complicated, the sample 
report specifications included in the sam- 
ple data files can be referenced as a 
guide. By comparing these specifications 
with the printed reports the use of each 
type of report syntax will become clear. 

In concept and Implementation, the 
report preparation procedures are similar 
to commercial general ledger systems. 
Vendors of these systems, which usually 
cost many times more than the Radio 
Shack system, train customers in use of 
report generators in special classes. 
Typically class time ranges from a week to 
several days. 

Running the sample forms will give you 
some idea of the report preparation poten- 
tial of this system. Nine sample formats 
are provided ranging from a balance sheet 
to profit and loss reports. These formats 
can be combined with the data in a variety 
of ways. For example, a balance sheet can 
be prepared with and without comparative 
information. The comparative data can 
either be a budget or the prior year's end 
of month balances. The same format can 
be used for either type of comparative 
data. As a result more than nine output re- 
ports can be generated with the nine 
formats. 

When printing these reports the system 
allows printing in any sequence desired. 
The sequence must be previously defined. 
This has an important advantage. If a 
summary set of reports and supporting 
schedules is required, then the whole set 
can be printed before any other printing is 
scheduled. Since the distribution of sum- 
mary and detailed reports is usually quite 
different, this method of setting up a print- 
ing "Job command language" for se- 
quencing printed reports will be most 
appreciated. 

Be prepared tor a slow printing process. 
During the program evaluation process it 
took almost half an hour to print twelve 
reports with the limited sample data. 
While the computer is assembling the 
data, it appears to go to sleep. The screen 
indicates that processing is occurring and 
occasionally the drives are accessed but 
not much else is visible. The actual print- 
ing is also quite slow. The computer must 
do a great deal of processing since there 
is a rather long pause between lines. 

However, the resulting reports are worth 
the wait. They reflect many thoughtful 



features which will be appreciated by the 
professional user. Account numbers are 
not printed. Dollar signs are inserted and 
foot notes are printed. A useful feature is 
the elimination of minus signs. In many 
reporting systems credits are identified by 
a minus or "cr" sign. In this system, if the 
balance is normally a credit or debit it Is 
printed without a sign. If the balance is 
reversed, then the amount is printed with 
a parenthesis around it. This treatment 
conforms to normal practice for manual 
systems. 

The system provides for the inclusion of 
text files. In the sample data only one text 
file is included— a disclaimer; however, up 
to 99 different files each with a maximum 
of 23 lines of textual data can be accom- 
modated. This feature is ideal tor an opin- 
ion, footnotes, segment reports and any 
other type of detail which must be ap- 
pended to professionally prepared finan- 
cial statements. Once a text file is created 
it is printed as specified by the statement 
layout description. There is no reason why 
text file two cannot be printed before text 
file one. This will be a big help to those 
who cannot decide the order of footnotes 
until the last possible moment. 

Of course the source of al! financial 
data for the reports is contained in the ac- 
count flies of the system. If departmental 
reporting Is to be used these files will be 
quite extensive. When building the files, 
every bit of historical and budget informa- 
tion that will be required on the financial 
reports must be entered. This will be quite 
a considerable undertaking. There is a 
provision to enter budget and prior year 
month end balances for thirteen periods. 
Once all balances ar^ entered, the final 
amount for the prior year's activity can be 
established as the opening balance for 
the current year's activity. This is done by 
running a special program appropriately 
called Setup. 

Monthly activity is obtained from three 
sources: standard journal entries, general 
journal entries and other three-disk 
systems. The standard journal entries or 
recurring entries are sub-divided into two 
types, permanent and variable. Perma- 
nent entries are always the same amount 
and variable entries change each month. 
These entries, once defined, can be 
posted each month at the will of the sys- 
tem operator. If required, an automatic re- 
versal entry can be specified. If that is 
done, the system will automatically gener- 
ate the required reversing entries at the 
beginning of the next fiscal period. 

Data entry from other three-disk inte- 
grated systems is accomplished by use of 
a transfer disk. Amounts to be transferred 
are extracted by a special interface pro- 



gram which offers the option of a transfer 
of details or the summary data for each 
account affected. We did not examine the 
transfer system during the evaluation pro- 
cess 

Data Entry 

If the superior financial reports repre 
sent the good news, data entry can be 
considered the bad news. If data is to be 
entered through the general journal sub- 
system be prepared for slow data entry. 
Once the account number is entered, a 
two step procedure, the transaction date, 
amount, source, reference and reversal 
code must be entered. To reduce data en- 
try time the system provides as default 
values prior data entered for the date, 
source and reference fields. 

Obviously data for the system Is best 
obtained through transfer from the other 
three disk systems. This condition should 
be easy to satisfy in a commercial en- 
vironment where the other systems will be 
installed. However, in an environment 
where the accountant '"writes up the 
books" on a monthly or annual basis a 
quicker method of data entry should be 
developed. 

The slow speed of data entry is 
matched by the slow transfers from pro- 
gram to program. When a new option is 
selected on a menu, a caption appears on 
the screen— "Please Wait." After disk ac- 
cess, the selected program appears on 
the screen, if an error is made, a slow 
return to the main menu occurs and a slow 
selection of the new program is required. 
An examination of the disk directory pro- 
vides a clue to this ponderous behavior. 
The system is segmented into many small 
programs which obviously take time to 
get in place to execute system functions. 

This system, like the accounts receiv- 
able system, cries for a hard disk. If disk 
access times were quicker the system 
would be much more responsive. I sus- 
pect that when this system is installed in 
a more congenial environment than the 
floppy system It will behave with more 
alacrity. The floppy system also limits 
system capacity. In this system drive one 
Is devoted to the five most frequently ac- 
cessed files in the system. Only drive two 
is available for transaction data. 

To increase the storage room available 
for transactions, it Is possible to "com- 
press" data already on file. To understand 
the process, consider that an account like 
wages could contain daily information 
from a variety of sources, weekly informa- 
tion and monthly information. Until In- 
structed to "compress" the data, the sys- 
tem will retain all detail. The system offers 
the optiorv of compressing data by date or 
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by period. If compression by date is 
selected, all activity for a day will be con- 
solidated. Debits will be offset against 
credits and the net result reflected In the 
account. If the debits and credits offset, 
no entry will be reflected In the account. If 
compression Is by period, only the net ac- 
tivity for the period will be reflected in the 
account. 
Compression 

Compression should be used with care. 
Once data is compressed a cross refer- 
ence back to the original Journal entry will 
be impossible. Probably a good method 
for retaining data for cross reference pur- 
poses will be to retain a backup prior to 
the compression procedure. Then, should 
a question occur, the cross reference run 
can be performed on the backup disk to 
locate the problem. 

Documentation 

Documentation for this system is pro- 



vided In a large binder similar to the Ac- 
counts Receivable system. Index tabs 
divide each section. These tabs make us- 
ing the documentation considerably 
easier than other Radio Shack offerings. 
Unfortunately the tabs have only para- 
graph numbers rather than descriptive 
names. This made referral to the index 
mandatory before a section could be se- 
lected. IHopefuily this will t>e corrected in 
future releases. I found the documenta- 
tion complete and informative. It Included 
a section on general ledger concepts and 
contained two appendices on data flies 
and handling Inventory. With the docu- 
mentation In hand, I found no difficulty In 
using the system. 

In summary. If the account and transac- 
tion capacity do not disqualify this 
system, this package should be Ideal for a 
practitioner with write up work. If the client 
can be induced to use the Model II for ac- 
counts payable and billing, data entry 



should be minimized. The General Ledger 
report generator will provide all of the re- 
quired reports. Even if month end activity 
posted in the general journal Is the sole 
source of data, the system will be useful. 
After all the financial reports are the pro- 
fessional's product and this system 
makes report preparation easy. 

For the non-professional, the ability of 
the system to generate complex financial 
reports will be less important. However, 
because the system can generate depart- 
mental reports with comparatives and 
budgets, much valuable management In- 
formation can be presented. In addition, 
the ability of the system to retain up to 
4300 detailed transactions will be quite 
useful in tracking financial irregularities 
which could appear on the detailed 
reports. 

This is indeed "big" system software at 
a micro price. I look forward to the next 
module In the "three disk" Cobol series. ■ 
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Contintjes from page 8 



our Station is listening for any queries. 
When some amateur station comes on 
frequency and sends, say, an "M?" our 
station would automatically respond with 
a menu of the available bulletin board 
materials. The other station would then 
choose one item from the list and request 
it. . . "7." Our station would then supply 
the number seven item, which might be 
the latest in DX news, complete with a list 
of the stations active from rare countries, 
their frequencies, where to send confirma- 
tions of the contact, and so on. 

Or we might send out a list of the latest 
FCC dockets affecting amateur radio or 
other recent FCC news. We could have a 
list of the traffic networks for handling 
messages, the recent repeater station 
changes, lists of other special Interest 
nets, their times and frequencies, propa- 
gation predictions, a list of scheduled 
hamfesls and conventions, new awards, 
and so on. There is a long list of informa- 
tion that hams might want to get and it 
would be available for the asking. 

The plan will start out with 300 baud 
transmission, but soon revert to 1200 
baud. We're going to encourage the ex- 
perimentation with 9600 baud transmis- 
sions, since that would allow the transfer 
of information at around 7300 words per 
minute. At that speed we might be able to 
get most messages in between the dots of 
jamming CW stations! 

The next step would be to develop 



automatic message relaying stations so 
that ham messages could be sent any- 
where in the country in seconds. Imagine 
being able to drop a message to someone 
asking for a schedule in a few minutes on 
twenty meters! Where this would really 
come into its own would be during 
emergencies, when all the emergency 
traffic could be sent via automated 
means. Thus a ham could merely type the 
message on a small computer system, 
like the Radio Shack Pocket Computer, 
and it would be transferred to a central 
station for relaying to the ad- 
dressee—much as Federal Express files 
all packages to one city for sorting and 
reshipping the next day. 

Emergency nets would then be set up 
with the control station polling each sta- 
tion in the net every few seconds, looking 
for messages. When the station had one, 
the polling would trigger sending the 
message, in this way no two stations 
would t>e transmitting at the same time. 
The message received, polling would con- 
tinue. 

We will need to develop error-correcting 
systems so that all messages are received 
perfectly. 80 is open for any Ideas or ar- 
ticles along this iine.B 



The Third World 

A recent visit to the small Caribbean 
Island of St. Lucia brought home to 
me the need for some sort of education for 
desen/Ing people from the smaller coun- 
tries of the world. The U.S. used to have 
the Point Four program, but that Is long 



gone. Today, most of these students 
either have to make do with a poor educa- 
tion at home or else go to Russia or Cuba, 
where they are taught more politics than 
college. 

Could we develop our proposed micro- 
computer school to the size where it could 
handle students from a hundred small 
countries? How would this be financed? 
Our government Is trying to do all it can to 
stop spending, so they really don't need a 
newway to Invest, even though it would be 
about the least expensive Investment they 
could make, in the long run. These stu- 
dents are willing to work hard, not only at 
school, but also at parttime work toget an 
education. I'll be visiting some more small 
countries In the next couple of weeks and 
will see what I can find in the way of an- 
swers to this problem. I'll be stopping off in 
Rio to set up plans for a South American 
edition of Microcomputing. Then Sherry 
and I will be off to South Africa to attend a 
microcomputer exposition In Johannes- 
berg, where I'm a speaker. We'll be visiting 
Swaziland and Lesotho, two very small 
nearby countries, where ham licenses and 
stations for me to operate have been ar- 
ranged. I'll be talking with the local hams 
and looking for ideas for practical ways to 
get Third World students the education 
they need. Indeed, their countries have a 
desperate need for skilled electronics and 
communications people. 

Meanwhile, I will be dreaming about a 
college campus in New Hampshire, with 
modern buildings, heated mostly by solar 
heat, and surrounded by a couple hundred 
entrepreneurs and their growing electron- 
ics and computer businesses. ■ 
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You can try to design algorithms to emulate 

human behavior, or you can try to explain 

human behavior in terms of machines." 



At SI, Machines Imitate Humans 



The phrase 'artificial intelligence' 
summons up science fiction images 
of super-giant mainframe computers 
achieving sentience by sheer power and 
leading a revolt of the Moon colony 
against the government of Earth. 

The truth Is actually much stranger. At 
the Artificial Intelligence Laboratory at 
SI International .{formerly Stanford Re- 



search Institute), Stanford, CA, one of 
the world leaders In this research, no 
huge light-blinking machine is achieving 
sentience. Rather, researchers use 
Digital Equipment Co. (DEC) PDP-IOcom- 
puters programmed In Lisp to model 
aspects of human behavior. 

Chuck Untulis, assistant director of Si 
International, stated that the PDP series 



Students Learn Psychology 
From Artificial Intelligence 



While most people are interested 
in Artificial Intelligence for Its prac- 
tical applications In the computer field, at 
least one other use has been found. Dr. 
Homer "Tony" Stavely, a psychology pro- 
fessor at Keene State College in Keene, 
NH, is teaching a course using Al as a toot 
to illustrate some principles of 
psychology. 

"Computers and Thought," as it is ti- 
tled, will emphasize the "use of comput- 
ers to simulate psychological processes," 
according to the course catalog. The 
course will also review early Al research 
as well as theory. Students will discuss 
the current state of the art and the possi- 
ble future of Al. Textbooks will Include Ar- 
tificial inteiligence by Patrick Henry 
Winston and Machines Who Think by 
Pamela McCorduk. 

Stavely, who has had an active interest 
In computers for several years, believes 
that there is a similarity between the 
thinking process of a computer. Though 
he concedes there are some obvious great 
differences, he said, "In the fundamentals 
of information processing, it doesn't mat- 
ter if it is a machine or an organism. . . 
(there are) probably similar principles." 

Stavely makes a convincing argument 
for using Al in teaching psychology. "The 
study of psychology Is the behavioral rela- 
tionship between organisms and their en- 
viroment," he said. This "transactional re- 



lationship" produces behavior guided by 
the intake of information. "Al attempts to 
program machines to process informa- 
tion in ways which approximate the so- 
phistication of (human) information pro- 
cessing," Stavely said. 

There are three goals that Stavely has 
set up for his students to achieve. He 
wants to increase their understanding of 
the nature of perception and thought; to 
demonstrate that computers are tools to 
aid in their thinking; and to show that 
computers are inportant as a simulation 
device. This last goal emphasizes the use 
of a computer to set up a hypothetical sit- 
uation to "see what happens if. . ." 

Stavely sees Al programming giving 
computers some ability to perceive prob- 
lems, organize and remember informa- 
tion and, ultimately, write programs on 
their own to control their databases. 

The future of Al is promising, Stavely 
believes, especially in the educational 
field. He said that hardware capabilities 
far outstrip the capabilities of the soft- 
ware that has been produced. He thinks 
that Al may be the answer to this software 
problem. "Al is the area in which we are 
learning the software skills to bring about 
advances In using computers as tools to 
think with," he sald.H 

by Michael Nadeau 
80 Microcomputing staff 



is the standard machine In artificial in- 
telligence research because It Is de- 
signed for Interactive work. "The IBMs 
are all batch process," he explained, 
"and the super-giants are just big scien- 
tific number crunchers." 

SI approaches artificial Intelligence 
from the computational or computer 
side. "You can try to design algorithms 
to emulate human behavior, or you can 
try to explain human behavior in terms of 
machines. We take a look at the way 
people behave in the world and try to 
emulate that behavior." 

Although they do this entirely with 
software, they would like to have some 
specialized hardware. 

"We keep talking to anyone who will 
listen about what we want in hardware," 
he stated. "Unfortunately, we're a pretty 
small organization, and none of the big 
companies listen, so we end up buying 
from the small firms." 

Hard to Define 

Untulis sees artificial intelligence 
research as going In several directions, 
but finds it very hard to define goals or 
even talk about the research because the 
concepts are so new the language has 
not adapted to It yet. 

"We really don't know what artificial 
Intelligence is, so there's no way we can 
define what our goal Is. In the more tradi- 
tional areas of science you can define 
your goal, and you know the methods you 
will use because they are all established. 
We work with concepts nobody has used 
before, and we're not sure how to talk 
about them, much less how to define our 
goals." 

Many labs are heavily researching 
distributed intelligence. This concept 
postulates a large number of intelligent 
machines in Independent operation In 
various parts of the world. Because of 
distance, different design and different 
use, they would have different Informa- 
tion. One machine might have more up- 
to-date knowledge on a given subject 
than another. 
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© 



I specializing In TUSSO ') 
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© 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've cot 

* Disk Drives 

TA400 ( 40-T 1 S289 

TA 800 ( 80-T ) S419 

TA400 RIppV 5S19 

TABOO Flippy 5439 

All With Silver case and 
power supply 

* CABLES 

2-Orlve §23.95 

d-Drlve $33.95 

Extender Cable $14.95 

* BARE DRIVES 

TA400B §259 

TA800B §389 

TA400B Flippy §289 

TA800B Flippy $409 

* EPSON PRINTERS 

MX70 §379.00 

MX80 $475.00 

MX80 F/T $589.00 

MX100 $799.00 

Parallel cables 529.95 

• oeiivcfv slow on some modets 

* OPERATING SYSTEMS 

TRSDOS 2.3 Disk & Manual ...$17.95 

LDOS §129.95 

NEWDOS/80 5129.95 

DOSPLUS 3.3, 3.3D $89.95 

* IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive case (silver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
$25 

90 aay wairantv on drtves- Add Ss.M freight per 
drive In cent US. UPS COO ctiaroe Si-40. There ft 
also a 1 5 dav free twal on ta drives, if not com- 
pietely satisfied l ll refund your money l less snip- 
ping ) III take excepthsn to improper use or 
mBnanaiing. 

* USERS GROUPS 

When your club makes a group buy, 
be sure to call me for a price. 
Rose 

TRS80 * COMPUTERS 
•COMPUTERS 

26-1061 Mod III. LI, 4K §595 

26-1062 Mod 111, Lll, 16K $850 

26-1063 Mod III, 32K/2 DISk/RS232 

§2150 

26^4002 Mod II, 64K $3300 

26-3001 Color Computer, 4K. . . §330 
26-3002 color Computer, 1 6K. . S510 
26-3501 Pocket Computer $212 

* DISK EXPANSION, MOD II 

26-4160 One Disk $977 

26-4162 Three Disk $1998 

LOBO drive units also available. 



* PERIPHERALS 

26-1140 0K Exp. interface §255 

26-1141 16K Exp. interface S305 

26-1142 32K Exp. Interface §355 

26-1172 D.C. Modem II 5135 

26-1 206 CTR-BO Recorder §51 

26-5503 P.C. Interface $42 

* PRINTERS 

26-1165 Line Printer V $1581 

26-1166 Line Printer VI $986 

26-11 58 Daisy Wheel II $1694* 

■ UMITED AVAILABILITY 



The complete line of Radio Shack 
products Is available through ta 
with standard RS limited warran- 
ty, call me for price and delivery. 
Just cause you don t see It, don't 
mean we ain t got It. 

ROSE 



* SOFTWARE 

we have Adventure, Big 5, Circle J, 
Med Systems, SBSC, Snapp, Radio 
Shack and much more. Call or write. 

DO IT NOWl 



ROSE'S 
SPECIAL 
OF THE 
MONTH 

• AEROCOMP'S * 

ALL NEW 

DOUBLE DENSITY 

CONTROLLER 

•DDC" $149.95 

Here's a Double Density Controller for 
Mod. 1 that does awav with all tfiose aata 
separation problems that seem to keep 
cropping upi Rose wouldn t fun va now, 
would she? Don t be scared of Double 
Density any more AEROCOMP has design 
ed some advanced circuitry that even i 
dont understand - but i do know it 
works. Better order now Ouanities are 
going to be a bit short. 

$189.95 complete 

with Dosplus 3.3D. 

HOW many do you 

want? 12? 



Roses T-SHIRTS 

With any order of $1,000.00 or 
more, Ml send you one of my 

"MINI-FLOPPY" T-SnirtS! 

STARWRITER 

DAISY WHEEL PRINTER 

45 Character per second letter quality 

printer from C. Itoh. A Texas Treasure 

at S1779.00 

Parallel cable $29.95 

IFHE1CHT EXTRA! 

DRIVE TABS 

Disk drives need Identltyi no more 
that drive 1 Make em be somebody 
- call em 0, 1, 2 and 3. They II never 
forget yal 
set of 4 §4.50 

set Of 2 $2.75 

ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call Rose toll FREE at 
l-800-527-3582(Texas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line, you can pay 
by VISA or MASTERCARD, you can 
send Check or money order (allow a 
couple of weeks for personal checks 
to clear) or order COD (we ship CODs 
cash, certified check or money 
order only). Rose will take American 
money In Just about any form. Add 
freight (UPS where possible) on all 
orders under $1000. if you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up s% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the moneyl 



TOTAL ACCESS. 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214-23a-1770 ^' 

• TRSao & Radio snack are trademarks of 
Tandy Core 
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If, then, one machine asks another a 
question and receives data back in 
answer, how does the first machine han- 
dle the data it receives? 

"You get into the whoie question of 
belief structures. Each machine has a 
belief of what the world is, and that belief 
might be inaccurate." The question is 
how these belief structures are modeled, 
limited and changed. 

Expert Systems 

Another area of artificial intelligence 
is rule, or expert, systems, in which 
researchers preserve and communicate 
to others the special understanding of an 
expert {an Einstein, for instance). 

The hope is to capture the expert's 
world view in a finite number of data 
statements to quantify it. "You do that 
with a set of rules which set up a model 
which can be given data or asked 
questions. " 

Another area involves designing pro- 
grams that will handle normal language, 
either in the form of keyboard input or, 
further down the road, verbal input. The 
goal is to eliminate the need for program- 
ming languages to communicate with 
the computer. The businessman could 
talk with his machine just as he can with 
a human employee; if he needs to know 
how many widgets he has in St. Louis, all 
he has to do is ask. The computer will 
decide what data bank to query and ex- 
actly what piece of information is 
wanted. 

Vision Input 

Vision research is another area in 
which SI International is active. Humans 
have a very high talent for interpreting 
visual data; it is difficult to approximate 
that ability with a machine. SI is develop- 
ing programs which allow the computer 
to digitalize a picture and not only 
understand the literal data but draw con- 
clusions from clues. 

For instance, they would like the 
machine to locate a hidden light source 
from such clues as the size and place- 
ment of shadows. It then should be able 
to describe the expected reflectivity of 
objects from the inferred position of the 
light source. 

One goal of artificial research is the 
self-programming computer, the 
machine which can decide for itself how 
to go about doing something and change 
Its ideas on the basis of experience. Ac- 
cording to Untutis, SI is working on the 
theoretical end of this question by 
designing theorem-provers. These are 
methods whereby a machine, given an 
idea or theory, can experiment to deter- 
mine whether the theory is correct. If it is 
not, the machine will modify it to fit the 



experimental data, much as a scientist 
works in a lab. 

A Question of Difference 

All of this involves one of the basic 
questions of artificial intelligence: Is it 
qualitatively different from human in- 
telligence or does it only appear to be dif- 
ferent at this stage because it is so 
primitive? 

Computers are famous for their ability 
to instantly memorize and manipulate 
huge lists of items. Humans cannot do 
this nearly as quickly or as well. Yet, 
machines cannot make decisions on 
their own— humans have to tell them 
precisely what should be done with their 
data. 

The answer, Untulis explained, 
"depends on whether you are talking on 
the short run or the long run. If you are 
talking on the short run, then it is both 
qualitatively and quantitatively different. 
If you are talking about the long run, then 
it is not." However, the long run probably 
means anywhere from 200 to 1,000 years. 

Researchers are presently working 
with limited domains, try to construct 
algorithms that emulate human be- 
havior, while dealing with general prob- 
lems in a theoretical manner. 

So why is this in a magazine on micro- 
computers? What relevance does it have 
for theTRS-80 user? 

Cognitive Science 

The research into artificial intelligence 
falls under cognitive science, a new 
branch of science that includes aspects 
of both computer science and psy- 
chology. The fallout from the research in 
this area is likely to influence the design 
of the machines we will be using as well 
as our concepts of ourselves in the 1990s 
and beyond. 

Untulis mentioned he sees a couple of 
areas in which artificial intelligence 
research may soon be influencing soft- 



ware design, although he cautioned that 
the issues are far from clear. 

One area in which machines can do a 
better job than humans is very large- 
scale integration in, for instance, circuit 
design. One company is trying to adapt 
planning and deduction methods worked 
out at SI International for multiple-level 
planning to this sort of operation. 

In multiple-level planning the machine 
works on an abstraction ladder. It starts 
at the top, forming a very generalized 
plan, or, in this case, circuit design con- 
cept. It then moves down a step and 
makes a more particularized design con- 
cept based on its generalized work. In 
this way it works from step to step 
towards the actual design of the circuit. 

"The hope is 

to capture the expert's 

world view in a finite 

number of data 

statements. . . " 

If its tests show that the most recent plan 

is faulty, it moves back up the ladder to 
more generalized plans and refines its 
steps. 

Visual interpretation would also be 
very handy for a machine that designs or 
tests circuits using this multiple plan- 
ning method. 

"All these things go hand-in-hand," 
Untulis told us. "We want the machine to 
keep track of the errors we make in 
designing one circuit, for instance, so it 
will be able to warn us if we start to 
repeat them in the next circuit design." 

These ideas may be used in the future 
but they will not be here tomorrow. 

"The things we're talking about are 10 
to 20 years from fruition. We're just think- 
ing about these things today." ■ 



Radio Shack, Ohio Publisher 
Plan Joint School Market Assault 



Tandy/Radio Shack, Fort Worth, TX, 
and Southwestern Publishing Co., 
Cincinnati, OH, a leading business 
education and business administration 
publisher, will work together to develop 
and market educational courseware for 
TRS-80 microcomputers. 

According to William D. Gattis, direc- 
tor of Radio Shack's Education Division, 
South-Western will help Tandy in the 
development and marketing of programs 
for Models I and HI, and Radio Shack, 



in return, will provide computers for 
demonstrations and displays by South- 
western at major educational shows and 
conventions. 

Radio Shack will also develop special 
software protection features for the 
Model I similar to those already available 
for the Model 111, to prevent unauthorized 
copying of South-Western's software. 

South-Western is a subsidiary of SFN, 
Chicago, (L, a large elementary and high 
school education publisher.B 
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Computers have been used by the 
medical community for nearly two 
decades. In May of 1980, Modern 
Healthcare reported that community 
hospitals spent more than 1.25 billion 
dollars a year on computerized business 
and medical information systems. The 
Journal Of The American Medical 
Association found, in its report on 
"Computers in Medicine" (Dec. 1978). that 
computers were being used routinely in 
hospital laboratories, radiology depart- 
ments, emergency rooms and phar- 
macies. Not only were computers main- 
taining patient charts and billing 
records, they were also capable of such 
high level tasks as predicting the proba- 
bility of gangrene Infections in appen- 
dicitis victims. 

Since their widespread introduction 
four years ago, nnicrocomputers have 
also begun to have an impact on the 
practice of medicine. The vast majority 
of physicians who use microcomputers 
are primarily interested in office manage- 
ment, but according to Gene Thompson 
of Thompson Consultants, Seattle, WA, 
"Thirty percent of the doctors who have 
been exposed to microcomputers are 
learning to program." 

This Is because doctors appreciate the 
potential of the microcomputer and 
realize they themselves "will create the 
applications— once they learn to pro- 
gram," says Thompson. 

Hospitals are using microcomputers 
in increasing numbers to handle 
specialized tasks. Many such tasks 
could be performed on hospital main- 
frame computers but this creates a 
number of problems— timesharing limits 
accessibility, new software Is extremely 
costly for mainframe computers and set- 
up procedures are costly. With a 
microcomputer in the lab to calculate 
blood gases or in the pharmacy to assist 
in the preparation of prescriptions, 
hospitals can greatly improve efficiency 
without a large financial investment. 

"One hospital I know of uses a 
microcomputer to calculate hormone 
balances, others are using them to do 
small office tasks, and one pathologist 
uses a text editing program and a micro 
to keep notes on patients," said Thomp- 
son. "N^lcros are especially useful for 
recording and tabulating laboratory pro- 
tocols, which are the results of visual 
tests and inspections in fields like 
bacteriology and microbiology." Thomp- 
son speculates that microcomputer use 
in medicine will continue to grow and 



that software exchange among physi- 
cians will become a common practice. 

There is., a precedent for this kind of 
software exchange. Robert Kincb of the 
Forsyth Memorial Hospital in Winston- 
Salem, NO, is the President of ECHO, an 
IBM users group whose members are 
hospitals and doctors. This group ex- 
changes software across the entire spec- 
trum of medical related applications, in- 
cluding ambulatory care, clinical 
management, census management and 
laboratory /pharmacy use. There is a 
similar group for microcomputer users 
as well as several medically-oriented 
try. These bulletin boards will likely play a 
key role in the development of physician's 
key role in the development of physicians 
user's groups. 

Commercially produced software is 
also available. Radio Shack sells a 
Medical Office System package for use 
with theTRS-80 Models I and 111. Dr. Larry 
Stoneburner runs MedLogic Systems, a 
Los Angeles, CA, firm selling software 
for both administrative and medical ap- 
plications. 

Thompson, however, thinks most doc- 
tors are "skeptical about prepackaged 
software." Hence, many physicians are 
becoming programmers. 

One example of the way a microcom- 
puter can make a hospital more efficient 
is the General Hospital in Ventura, Calif. 
As reported in The Journal Of Family 
Practice (Vol. 11, No. 4), the hospital's 
resident doctors were tying up phone 
lines to the outpatient clinic with con- 
stant checks to see if their patients had 
arrived, when their next appointment 
was scheduled and the like. With 35 
physicians using the clinic, ttw load 
became hard to manage. The solution 
proved to be a microcomputer. 



The hospital had a closed-circuit 
television system already in place. It was 
a simple matter to patch the microcom- 
puter into that closed circuit system. The 
outpatient schedule could then be 
entered into the computer by a secretary 
and displayed throughout the hospital 
on a regular basis. The software was 
designed to permit not only a display of 
the clinic's schedule, but also to indicate 
whether a patient had arrived for his 
scheduled appointment. 

The physicians were able to conduct 
their rounds in the hospital while pe- 
riodically consulting the televised out- 
patient schedule to find out when they 
needed to be in the clinic to see a patient. 
This system cut down on the volume of 
doctor's telephone calls to the clinic by 
40 percent in the first four weeks of 
operation. The physicians involved over- 
whelmingly approved of the system. 

Still, while microcomputers are catch- 
ing on with the medical community, 
some doctors and administrators harbor 
reservations about system capability. 
The Canadian Medical Association's Ex- 
ecutive Secretary, writing in the March 
22, 1980 issue of the CM A Journal, stated 
flatly that microcomputers were too 
small and too unreliable for use in 
medical practice. B. E. Freamo cautioned 
physicians to wait to see if good soft- 
ware was developed and to demand that 
hardware vendors provide service con- 
tracts as a condition of sale. 

In spite of these kinds of cautions and 
what Gene Thompson calls the "Innate 
conservatism of physicians," don't be 
surprised if you see a TRS-80 in your doc- 
tor's office sometime in the near 
future. ■ 

by G. Michael Vose 
80 Microcomputing Staff 



Medical Journals Cover Computers 



As if doctors didn't already have 
enough literature to keep up with, 
there are now several publications cir- 
culating information about clinical uses 
of microcomputers. There is a nation- 
wide, general purpose publication called 
National Report: Computers And Health; 
there are general information exchange 
newsletters such as Dr. Com Puter's 
Report and the Apple Mug Newsletter; 
and various specialty newsletters for 
dentists and psychologists. 

Most of these publications are con- 
cerned with one thing—finding out 



who's doing what and how to contact 
them. The name of the game is informa- 
tion exchange. There is apparently no 
greater consumer of information than 
medical doctors. 

In February Dr. Larry Stoneburner of 
Orange, CA started a newsletter as a 
method of information exchange among 
the Apple Medical User's Group. Called 
the Apple Mug Newsletter, the publica- 
tion has grown from five subscribers to 
its present 400, in just five months. Apple 
Mug is a member of the International 
Apple Core, an international organiza- 
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tion of Apple Computer Clubs. 

The Apole Mug Newsletter features 
news about doctors using computers in 
their practice, particularly clinical ap- 
plications. It is a forum for the exchange 
of ideas among its members. Although 
the Apple Mug is primarily composed of 
Apple computer uses, the Newsletter is 
interested in developing a rapport with 
CP/M users In order to obtain a broad 
base of software techniques, ideas and 
applications. 

The Apple Mug Newsletter has plans 
to present a Medical Applications 
Seminar at the West Coast Computer 
Faire m San Francisco next March, and is 
currently soliciting papers for presenta- 
tion during this seminar. 

On the east coast, there are two 
medical microcomputer publications 
coming from the same office. The 
Medical Computer Journal and Dr. Com 
Puter's Report are published quarterly by 
Dr. Azis Ghaussy of East Hampton, CT. 
Dr. Ghaussys journals not only provide a 
forum for the exchange of news and 
ideas— they also publish medical ap- 

Dr. Ghaussy's journals 

not only provide a forum 

for the exctiange of 

news and ideas— 

they also publish 

medical application 

program listings. 

plication program listings. With well over 
1000 subscribers, including 75-100 inter- 
national subscribers, the Journa/ and the 
Report reach a wide variety of physicians 
using microcomputers. Both publica- 
tions print software listings for Apple, 
TRS-80 and North Star Horizon com- 
puters. 

The Journal and the Report seldom 
pay for submissions; physicians share 
software in an effort to help their pa- 
tients by keeping the information ex- 
change dynamic. ■ 

The publications mentioned in tliis ar- 
ticle may be contacted at the following 
addresses: National Report: Computers 
and Health. PO Box 40838, Washington, 
DC 20016; Apple Mug Newsletter, 2914 
Katella Suite 208, Orange. CA 92667; 
Medical Computer Journal and Dr. Com 
Puter's Report, Dr. Aziz Ghaussy, 42 East 
High Street. East Hampton, CT 06424. 

by G, Michael Vose 
80 Microcomputing staff 




Medical Software Exchange 
Helps Docs Sell Programs 



As physicians begin to develop an 
appreciation for the potential of the 
microcomputer, they apply their medical 
knowledge to the task of producing soft- 
ware with medical applications. Many 
physicians try to market the result of 
their labors but find it extremely difficult 
to track down other computer doctors. 
Enter SoftDoc, a microcomputer soft- 
ware exchange. 

SoftDoc is the creation of Dr. James 
Gange of Los Angeles, CA. Dr, Gange 
began SoftDoc as a way to help some 
like-minded physicjan friends who all 
had some software they were willing and 
eager to share with their colleagues. 
Since its inception about a year ago, 
SoftDoc has been adopted as an official 
project by the Society for Computer 
Medicine, whose President is Dr. Marlon 
Ball, the Director of Computer Services 
at the Temple University Medical School. 

SoftDoc's current offering is a CP/M 
based collection of approximately 25 



programs. Included In the package, 
distributed on an 8-inch floppy disk, are 
programs to: 

• evaluate pulmonary function; 

• set up a respirator; 

• generate evaluations of lab tests 
such as glucose tolerance and elec- 
trolyte balance; 

• evaluate a patient's lifestyle, help the 
patient figure out why he cannot give 
up smoking, and suggest ways to im- 
prove health by changing lifestyle 
habits; 

• the ANSI standard Mumps program, 
the most commonly used medical 
usage language. 

All these programs are written in 
various dialects of Basic (with the excep- 
tion of Mumps). The disk is available to 
physicians for a price, or a physician can 
join SoftDoc and receive the software 
free by contributing software to the ex- 
change. 

The program will run, with some 
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modification, on the TRS-80 Model II 
under the CP/M operating system. 

SoftDoc is always on the lookout for 
new software and Is looking for compe- 
tent software editors and programmers, 
as well. Dr. Gange says the exchange 
cannot pay editors at present but can ar- 
range to provide references in return for 
editing, translating to other Basics and 
operating systems and debugging. Soft- 
Doc is not interested in business office 
software; the thrust of SoftDoc is clinical 



application software. 

In a recent interview with 80 Microcom- 
puting, Dr. Gange said that, theoretically, 
microcomputers should have a profound 
impact on the practice of medicine. Prac- 
tically, however, he said, "this hasn't 
happened yet. The development of 
clinical applications is still in the em- 
bryonic stage." 

Dr. Gange speculated that growth in 
the field had been slowed by the difficul- 
ty of distributing medical software. This 



was one of the reasons he has launched 
SoftDoc. ■ 

For further information, write to: 

SoftDoc 

c/o Dr. James Gange 
1433 Roszmare Road 
Los Angeles, CA 90024 



by G- Michael Vose 
80 Microcomputing staff 



Computer Aids Help Handicapped 



Computer aids now make it easier for 
the handicapped to work, com- 
municate with others and seek emergen- 
cy help. They assist the hearing and 
visually Impaired as well as those severe- 
ly handicapped from cerebral palsy or 
spinal disorders. 

The most widely used device Is the 
TTYnrO {teletypewriter telecommunica- 
tions device), which allows the deaf to 
communicate over telephone lines. The 
National Crisis Center for the Deaf has a 
24-hour hotline that receives TPr'/TTD 
communication concerning medical and 
emotional problems and dispatches 
emergency help to callers. "They receive 
10 to 15 calls a week," saya director Mary 
Compton. 

A prototype conversion of the TTD 
baudot to ASCII code has been 
developed by Paul Rinaido of the 
Amateur Radio Research and Develop- 
ment Corporation (AMRAD), using the 
TRS-80 Model I. Rinaido has also made 
prototypes using the Commodore PET 
and Apple computers. This would allow 
these machines to replace the teletype 
terminals as home communication 
devices. 

Two states offer TTD/TTYs at low or no 
cost. Michigan Bell now sells the device 
after a Public Act mandated they be 
made available at cost of production. 
Since March 1981 they have installed 800 
TTDs. 

In California, phone companies are re- 
quired to supply the devices at no cost; 
they have until 1984 to comply with the 
legislation. An original bill required TTDs 
be available at $14.50 a month, and they 
were installed in the pilot program in Fre- 
mont, CA. 

Microprocessor 

Most TTDs feature a single chip 
microprocessor that converts baudot to 
ASCII. Printer and display are either 
separate or one unit. 

A number of companies are producing 
the TTDs, including Plantronics Inc, 



whose VuPhone has both baudot and 
ASCII; Applied Communications Cor- 
poration, whose Phonetype was the first 
TTD developed; Specialized Systems In- 
corporated, whose customers include 
Sears Roebuck, Bank ot America and 32 
state governments; and Krown 
Research, whose Porta Printer Plus of- 
fers ASCII code format for $100 over the 
$575 price tag. Various teletypewriters 
are also available. 

Automated Data Systems of Madison, 
Wl, produces an alternative to the TTDs 
called Superphone, a terminal with voice 
synthesis that can be used with any 
touchtone phone. It allows direct contact 
that the TTY doesn't, since the receiver 
of the call doesn't need a TTY terminal. 
The Superphone terminal also can be at- 
tached to a television set to produce a 
CRT screen and has features such as an 
automatic answering device. 

For face-to-face communication, the 
deaf and dumb can use Automated 
Data's VIP communicator, a pocket- 
sized teletype with an attachment worn 
on the person's lapel flashing the letters 
being typed. 

For the Blind 

Terminals are also being modified for 
the blind. A Low Vision Terminal (LVTS) 
prototype has been developed by M. 
Daniel Simkovitz, an engineer at Wayne 
State University in Detroit. The screen 
shows characters three inches high and 
allows the partially sighted to read serially 
or a few characters at a time. 

"The partially sighted are not under- 
stood," says Simkovitz. 

Most work has gone into synthetic 
voice for talking computers or braille 
keys with a voice output. But 80 percent 
of the 347,000 legally blind still have 
some vision, and many of those could 
use the LVTS, he says. 

There are also printers available for 
the partially sighted. Automated Data of- 
fers printers and CRTs with large 
characters and a computer with braille 



printer output. 

Voice synthesizers use either elec- 
tronic phoneme synthesis or the more 
subtle allophone synthesis. Most 
micros, including the TRS-80, have single 
chip voice synthesizers available. 

But not all computer commands can 
be represented by speech, Simkovitz 
says, which makes the LVTS more 
valuable to the partially sighted. 
Besides, the partially sighted often don't 
read braille. 

Interfaces are being produced that 
allow the severely handicapped to 
operate a keyboard. The Express 1 & M 
from Prentke Romich Company, Shreve, 
OH, are key interfaces with serial ASCII 
data that converts to parallel ASCII. The 
interface features a panel of 120 blinking 
lights. A joystick or optical head pointer 
is used In place of the keyboard. When 
the user makes the selection by an op- 
tical head set, a microprocessor receives 
the signals via a small tube with a lens 
and light sensor. 

These devices should help the nation's 
21 million disabled in their homes and 
jobs. Those developing computer aids 
hope to increase job opportunities for 
the handicapped. 

Superphone "could make a difference, 
especially when employing the deaf," 
says Rob Engeike of Automated Data. 
"Even a stock clerk . . . has got to be able 
to contact people." 

Electronic Silly Putty 

A writer in the Midwest is using the Ex- 
press I with printer hookup to produce a 
monthly column. Engeike says he's had 
some orders from businesses, and com- 
puter companies are snapping up his ter- 
minals because they can be modified for 
other applications. 

"Ithasabus, it's just like an Apple," he 
says. "There's plenty of room in there. 
It's electronic silly putty in a keyboard." 

Institutions have also been buying 
products for the handicapped. Now that 
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Aerocomp's 
Proven 
Best-By Test! 
The 



II 



• • 




Double Density Controller 

* Technical Superiority 

At last! A double density controller for Model I with HIGHER PROBABILPTY OF DATA RECOVERY THAN WITH ANY OTHER 
DOUBLE DENSITY CONTROLLER ON THE MARKET TODAY! The "DDC" from Aerocomp. No need to worry about the bro- 
blems that keep cropping up on existing products. AEROCOMPS new analog design phase lock loop data separator 
has a wider capture window than the digital types currently on the market. This allows high resolution data center- 
ing. The finest resolution available with digital circuitry Is 125 ns (nano seconds). The DDC" analog circuit allows in- 
flnately variable tuning. Attack and settling times are optimum for 5-1 /4 inch diskettes. 
The units presently on the market use a write precompensation circuit that Is very "sloppy". Board to board 
tolerance is extremely wide - in the order of + 100 ns. The 'DDC" is accurate to within t 20 ns. 
The botton line is state of the art reliabtiltyi 

* Test Proven 

Tests were conducted on aerocomps "DDC", Percom's ■Doubler A"* and "Doubler li"' and LNWs "LNDoubier** using 
a Radio Shack TRS80' * * Model I, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100 ' disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion Interface. „ ^ , -^^ ^,,„^ 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks. The 6DB6 
pattern was chosen because it is recommended as a "worst case" test by manufacturers of drives and diskettes. An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80, version 
1 with Double zap version 2.0. unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown In the table. 

* Features * test results * 

TRS80 Model I owners who are ready for reliable double 
density operation will get tl) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in Installation. Compatible 
with all existing double density software. 

ii^ Value 

$149.95 for the BEST double density 
controller on the market. 

3189.95 for "DDC" complete with DOSPLUS 3.3D 
S239.95 for "DDC" complete with LDOS 



MFR& PRODUCT | S 


EaORS LOCKED OUT (AVC) 


AEROCOMP "DDC" 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW LNDOUBLER" 


202 



Note: test results available upon written request All tests conducted prior to 8-25-81 

Aerocomp's ia dav money back guarantee applies to Hardware oniv 

Specials will be prorated. Shipping 52.00 In Cont. us. See opposite page for details. 



THE FIRST PRODUCTION RUN WILL GO FAST - ORDER TODAY! 



Data Separators 

The advances^hat make the "DDC" great are Incorporated In the new aerocomp single Density Data separator ("SDS ') 
and Double Density Data Separator {"DDS"). 



• Has your original manufac- 
turer left YOU holding the bag? 

If you already own a Percom "Doubler A ", "Doubter ir' or LNW 

' LMOoubieT', tne aerocomp "DOS" win make tt right, look at the test 

results: 



• "DDS" $49.95 

(Use 1791 chip from your DO Con- 
troller) 

'ir DDS with disk controller 
Chip Included 5/9.9 5 

^ Disk controller 
chip $34.95 

tSHppttig $2.00 Cont US - see opposite 
page for details 



^^.^cSr.^SS^'Sa^a;'^ Plugs directly into your existing 
""''SSKirof^^corporatton Doufaie Dehslty controller. 



MFR. & PRODUa 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM "DOUBLER It" 


18 


1 


PERCOM "DOUBLER A" 


250 





LNW "LNDOUBLER" 


202 






DO you need a 
Single Density Data 
separator? 

The Internal data separator In the 
WD1771 cfilD (R/S Expansion Interface) 
Is NOT recommended bv WD for 
reliable data transfer. Do vou have any 
of these problems; Lost data, tracks 
locked out, CRC errors, disk retrv? you 
NEED ONEI 

• "SDS" $29.95 

(For Mod. I; snipping S2.00) 



See opposite 
page»»m» 
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TRS80* 



DISK DRIVES 

40 & 80 TRACK 



as low as 



$299. 



95 



NEW LOW PRICES 

Thanks ro you our sdles volume has 
allowed us to cut costs and we're pass- 
ing ihe savings along We offer the best 
disk drive value in the market place 
Reliapjlity, features and cost tough to 
beat We deliver ..and we stand behind 
our products AEROCOMP is the only 
manufacturer to offer FREE TRIALi Buy 
Aerocomp drives today You deserve the 
best 

BEST FEATURES 

* Fast 5 ms track-track access time. 

* Operates single or double density 

* "FLIPPY" feature for lower media cost 
[40 1 & 80- 1 ) 

* Head load solenoid. 

* Disk ejector. 

* Easy entry door 

* NEW EXTERNAL DRIVE CABLE 

CONNECTION ,- ..• /- ---. r. - ..■ :n- 



EPSON 

MX80 

PRINTERS 

$489.00 

TRS80Cable(l&III) S29.95 

APPLE Cable & Interface. - S96.00 

RS232 Interface S69.95 

Ribbon Cartridge, Black. .. $ 13.95 
Print Head (STD) 526,95 

Add S6.00 shipping (Cont. U S ) does not 
include cable. 

MX80F/T 

All [he features of MX80 plus Friction 
Feed Shipping & cables as above. 

$599.00 



ORDER TODAYI 

* 40-Track Drive S299.95 

* 80-Track Drive .... S429 95 

* 40-Track -FLIPPV Drive. . . , S329.95 

* SaTrack "FLIPPY" Drive. . . S449.95 

* 40-Track Duai-Head Drive . S449 95 

* 30-Tfack Dual-Head Drive. , $579.95 

.,.,W\--.^' r.I-i.iM'..J'-'<':T«^ 'ISVAC W*>OH.' .'If)'.*': 

* 40-Track Bare Drive. . . . S269.95 

* 80-Track Bare Drive S 399.95 

* 40-Track "FLIPPY" Bare DriveS299 95 

* 80-Track "FLIPPY" Bare DriveS4 19. 95 

• SPECIAL PACKAGES* 

STARTER A S339 95 

40-Track Drive. 2-drive cable, TRSDOS 
2.3 Disk & Manual, Freight & Ins 

SRARTER B S369,95 

40-Track "FLIPPY" Dnve.cable. TRSDOS 
2 3 Disk & Manual. Freight & Ins 

COMBO C S465.00 

40-Track "FLIPPY" Drive. 2-dnve cable. 
LDOS. Freights Ins. 

COfvlBO D ■■ .5585.00 

80-Track "FLIPPY" Drive, 2-drive cable. 
LDOS' Freight & Jns 

COMBO E . . ... - .S70900 
Two 40-Track "FLIPPY" Drives, 4-Drive 
cable, TRSDOS 2 3 Disk & Mannual, 
Freight & Ins. 

COMBO F S999.00 

Two 80-Track "FLIPPY" Drives, 4-drive 
LDOS , Freight & Ins 

COMBO G. . ... . S909.00 

Two 40-Track Dual-Head Drives, cable. 
TRSDOS 2.3 Disk & Manual, Fretght & 
Ins 

COMBO H $1299 00 

Two 80-Track Dual-Head Drives, cable, 
LDOS . Freight & INS 



DOSPLUS 3 3 or NEWDOS / 

available with any package 



.2 



■ '[>■ ■-■■ior."4 S " .-"J" tj C( 



FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use It With your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it, packed in the 
original shipping container, for a full re- 
fund. IS.--:. wcK>,,e5 ■■■ ■• :"--.-;^^i We have 
complete confidence in our products and 
we know you will be satisfiedl ORDER 
TODAYII 



WARRANTY 

We offer you a 120 day unconditional 
warrenty on parts ancf labor against any > 
defect in materials ^in(.] workmanship in 
the event service, for any reason, 
becomes nescessaiy. our service depart- 
ment IS fast, friendly and cooperative 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug m when you receive them. Each 
drive IS 100% bench tested pnor to ship- 
ment We even enclose a copy of the 
test checklist, signed by the test techni- 
cian with every dr.ve AEROCOMP 
MEANS REUABILITYll 

ORDER NOVX/II 

To order by mad, specify Model 
Number(Sl of Drive, cable, etc. (above), 
enclose check, money order, VISA or 
l\/1ASTERCHARGE card number arxJ ex- 
pirdCton d,^te, or request COD ship- 
ment Texas residents add 5% sales tax. 
Add S 5,00 per drive for shipping & handF 
ing (Cont US) Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
C O.D shipments-cash, money orders or 
certified checks only You will receive a 
card showing the exact CO D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship. I! 

DRIVE CABLES 

2-DRiVT -■-^'' ''^ 

4 -DRIVE ^34 95 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7SM. OPERATOR 24 

FOa VI$A/MASTfKHAROI/C.O.O. OHDIH 

CoUtofnia d>ol (800) 853-7777. Operator 24. Alosko 
and Hawoli diol (BOO) 824'7419 Operator 24 
TOIL FM( LINfS WILL ACCEPT OtOiM ONLTI 

Fof ApplicQtioni ond Technical information, call 
[214) 337-4346 or drop us a cord. 



Dealers inqiries invited 



AE^CCCIilP 

Redbird Airport, Bidg. 8 

P.O. Box 24829 

Dallas. TX 75224 ^367 II^^^mp'U 



'See Lisl ol Adveitise'S on page 38S 
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Michigan Bell has made the TTD 
available, several offices and stores have 
purchased the equipment for employees. 
"The cutting edge for this type of 
device is employment," says Simkovitz 
of his LVTS. Many partially sighted peo- 
ple "have steered away from some pro- 
fessions because of obstacles they face 
with computer devices." 

Simkovitz, who is himself legally blind, 
says "For many years I faced frustration 
with computers." He's hopeful others 
will develop further applications ot the 
device. 

There Is a program currently placing 
handicapped people In the job market. 
National Quest, a part of Unlcos Cor- 
poration, Leominster, MA, will train the 
handicapped in computer-related fields 
and place them in industry. Integral to 
the program Is the talking computer 
Unlcos has developed that reads back 
input and output to the blind. The handi- 
capped could also work at home, send- 
ing reports to their employers through a 
modem. 

Interest In computers for the handi- 
capped Is growing, and Johns Hopkins 
University hopes to harness some of this 



enthusiasm with a Personal Computing 
to Aid the Handicapped contest, spon- 
sored jointly with the National Science 
Foundation and Radio Shack. Entries 
will be Judged In three categories: 
computer-based devices, computer pro- 



"For face-to-face 

communication, the 

deaf and dumb can use 

... a pocket-sized 

teletype with an 

attachment worn on the 

person's iapel flashing 

the letters being typed." 



grams or system concept/design. The en- 
tries will be displayed in ten regional 
fairs with a final exhibit from Oct. 31 to 
Nov. 1 at the National Academy of 
Sciences, Washington, DC. Johns 
Hopkins will eventually have a two-day 



workshop to unite the winning Inventors. 
They've received over 800 entries so tar. 

Market Problems 

Though Interest in computers is high, 
it's sometimes hard for inventors to find 
companies to market their products. 
Paul RInatdo Is still trying to find some- 
one to market his ASCII prototypes for 
the TRS-80, Apple and PET. It's par- 
ticularly hard to find a distributor for the 
TRS-80, since the Model I Is out of ex- 
istence. Creating a Model II or III pro- 
totype "would mean starting all over 
again," he says. The Model I prototype 
took two years to develop. 

Now RInaldo is planning an S100 Inter- 
face and prototypes for the Tl and Atari 
computers. He's received federal grants 
of $48,000 and $50,000 in the past two 
years. 

Slmkovltz's project was underwritten 
by the university "way beyond their In- 
itial commitment," he says. But budget 
cuts made further funding Impossible, 
and he needs $30-50,000 to complete the 
LVTS so It's ready to market. 

Support from the outside has been 
"shameful and shabby," he says. He's 



RELIABLE, SIMPLE MEMORY 
EXPANSION YOU CAN AFFORD! 




Shown above is the IM-Z 48K INTERNAL MEMORY'-and a phillips screw- 
driver — everyttiing you need to ADD up to 32K RAM to your TRS-80* Model I 
Iteyboard unit [for a total of «K RAM ). No soldering or trace aining — just open 
the case, remove your RAM ctiips, plug the INTERNAL MEMORY (IM)into the 

RAM sockets, plug your chips back in, connea 4 solderless clips (they worklland 
close the case (Detailed, illustrated step-by-step instructions show you how to do 
this). You now have a 48K keyboard unit — and you didn't have to buy an 
expansion interface! If you don't need 48K, a 32K version is available. 

Time and experience have shown that the TRS-80* exparsion buss cannot 
reliably drive memory systems. Because the IM does not use the buss, it may be 
used with ANY expansion device for reliable memory operation. Some of our 
customers use an IM INSTEAD Of the RAM in their expansion interface to 
eliminate EI memory problems! 

Because the IM draws most of its power from the 12 volt supply, power supply 
loading is not a problem. Some additional heat is generated, but the TRS-SO* runs 
so hot anyway you probably won't notice the increase! 

The INTERNAL MEMORY is completely tested and assembled using only 
the finest materials. You have 15 days to return it for a refund if you don't like it, 
and it is guaranteed For 1 Full year, installation is available for a small fee. 

Send a SA.S.E. for more information. 



2 For 1 + 5 CENTS SALE 
,.,.v**^' RTOBONS 

GO^^oR RADIO SHACK' AND CENTRONICS LINE PRINTERS 
EXACT REPLACEMENT INSERTS 

[Cartridges NOT IncludBd] Radio Shack List --.-i- 5c SALE 

LP l-ll-IV-700-730-737-779 3 Pack $18.95 6 tor $19.00 

LP lll-V 1 Each $13.95 2 for S14.0Q 

LP VI 1 Each $11.95 2 for $12.00 

Daisy Wheel M [Carbon Film] 3 Pack $24.95 6 for $25.00 

[Our instructions make Inserts easy to put In your cartridge] 

RELOADS 

lYou SEND old CARTRIDGES to US- WE RELOAD them for you] 

LP iij-v Each $9.00 

LP VI Each $9.00 

DW II [LonB-Life FABRIC-We MODIFY YOUR cartridg8lEa$9.00 
DW II [Carbon Film] 3 Pack $15.00 

NEW CARTRIDGES FROM RADIO SHACK 



LP lll-V 

LP VI 

LP VII 

DW il Carbon Film 



26-1414 
26-1418 
26-1424 
26-1419 



Two for 
Two tor 
Two for 
3 Pack 



S25.00 
$21.00 
$16.00 
$22.00 



PRICES - 



IM-IB (3ZK) »5930 (less RAMI W-SO (w/l6K RAM) 
IM-2 (ISK) 'e9J0 [less RAM) H40.00 (w/32K RAM) 

Prices include UPS shipping in U.S. 
Utah residents add 5% tax; FOREIGN ORDERS add 15%. 



dftd West 3705 South Salt Lake City, UT 8«Z0 (801) 967-2324 



Volume 1 

Biorhythms.Trap 
Rip Cord, Yacht Sea 
Concentration + 4 More 



MODEL II 8" GAME DISCS 
$24.95 Each 



-Volume 2 

Ugly, Bingo 

Towers, Blackjack 

Farkle, Pony ■¥ 3 More 




SEND CHECK, MONEY ORDER or COD TO: 

BCCOMPCO.a37 

800 South 17- Box 246 • 417 932-4196 
Summersville, MO 65571 




MSfT 



•RADIO SHACK is a trademark of Radio Shack, a Tandy Corp. 
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talked to several companies, and half a 
dozen have seen the prototype, but he's 
had no offers yet. Simkovitz would like to 
take the product to a small company ex- 
perienced with products for the partially 
sighted. 

Costs 

The cost of computer aids may be 
steep for the user as well. The LVTS 
should retail for between $2500 and 
$4500. The Express I interface is $2380; 
the Express II, with full ASCII character 
set but no printer, is $1900. Prentke 
Romich's environmental control units, 
which hook up to electrical appliances in 
the home, run from $560 to $1325. The 
hand-held teletype VIP communicator is 
$199 with an $89 voice attachment. 
Automated Data also offers a computer 
terminal for the blind with speech output 
for $900 to $1000. 

The TTDs, In states that don't provide 
them through the phone company, run 
about $550. In Michigan, Bell Telephone 
provides a TTD for $400.86, or $6.68 a 
month for five years. You can lease the 



device for $125. In California, users pay 
onty for regular telephone service. 

More affordable are Information ser- 
vices including the bulletin board service 
SpecialNet and Creative Computing for 
the Handicapped, a West German 
organization. 

Though SpecialNet is directed at 
special education administrators, its 



"The cost of computer 

aids may be steep 

for the user as well. " 



bulletin boards will feature information 
useful to the handicapped. A litigation 
bulletin board will be managed by the 
editors of the Education of the Handi- 
capped Law Review; the Prentke Romlch 
Company will operate a bulletin board on 
system devices for the handicapped; and 
a federal bulletin board will contain 
pending legislation of importance to the 



handicapped, including federal budget 
actions. SpecialNet will also feature 
electronic mail. 

The Association for the Advancement 
of Microcomputer-Based Work at Home 
for the Handicapped, West Germany, will 
translate articles on microcomputers on- 
to cassette for the blind. They also will 
translate advertisements with informa- 
tion on how to order software and hard- 
ware from American distributors. 

Prentke Romich may organize a review 
board made up of special education 
teachers and the handicapped who 
would evaluate educational software. 
Their initial network project, Apple Com- 
puter Clearinghouse for the Handi- 
capped, has been scaled down, though 
they may compile a service catalog of 
software for the handicapped, says com- 
puter manager Neil Russel. 

Computer companies are offering 
more services and products for the hand- 
icapped, and finding a market for them. 
All they have to do," says EngelKe. is "use 
their imagination. "■ 

by Betty Thayer 
BO Microcomputing staff 



NEWDOS 2.1 — NEWDOS/80 users 
INTERACTIVE CONTROL LANGUAGE 

Aren't you tired of waiting for and answering endless pro- 
mpts like — "ENTER FILE NAME?" every time you've got to 
work with your computer? 

And how many times were you dreaming about having ad- 
ditional features in DOS or DEBUG — something quite handy 
like repeating previous command or having an option to 
define your own new command? 

Now we've got it all tor you — the complete control 
language system! 

Create and run your own multilevel procedures. 
dynamically generate/store replies for prompts, intercept and 
switch control back and forth between running program and 
ICL, execute and check execution of DOS commands and 
(CMD tiles within procedures and much much more! ICL is 
especially convenient for 1 drive systems where a lot of 
diskette swapping is necessary. 

To you procedures look like additional and quite in- 
telligent commands. 

Works fine with BASIC programs. EDTASM. DISASSEM. 
F80, LBO. SUPER2AP... almost any program using standard 
DOS I/O drivers. Basic editor can be used to create procedure 
text files. 

Superb documentation with detailed ■how-to-use " and 
tutorial information, most useful procedures, system infor- 
mation and patches provided. 

All (or unbelievably low price of $29.49 — 

(on 5 " diskette + documentation). 

To order send check or money order to 

XYZT COMPUTER DIMENSIONS INC. 
2 Penn Plaza, suite 1500, New York, N. Y. 10121. 

* Requires min 32K 1 Drive Model 1 
" Specify which DOS 
* ■ ■ NY state residents add 5% sales tax 
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Software. 
For the 80s. 

Pensadyne Computer Servicas. The organization that has brought 
affordable software to hundreds o( users in the over 40 of the United 
States and 16 countries around the world. The organization with the 
people, the support, the service and the expertise to bring you the 
highest quality products available. 

Penia-wrllB 1 - Our BASIC word processing system for the 
owner who requires performance at low coal. Many ot the features 
o( more expensive word processing systems at a fraction of the cost 
Comes complete with mailing list capable of handling 300 names. 
S19.95 [Specify Model I or Model III). 

PeoM-wrltfl2 ~ A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that is really 
needed in a word processing environment. Word wrap around, 
unlimited insert and delete, block moves, chaining of files. 20 user 
definable commands, ASCII control code generation for printed 
output to alio* subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
thatcosts just $79.95. Manual $10.00 Deductable. (See full page ad 
in Aprlf. 1981 80-Mlcrocompuling for a full description) 

Software publishing - Pensadyne is now publishing software for 
independent software authors. Send SASE for complete details, or 
send machine readable copy of your program with any 
documentation TRS-SO Model I. II. Ill and Colour Completer fully 
supported Subject material unlimited. 

Now, with that kind of record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 
Visa and Mastercharga orders welcome. Phone orders welcome 
or write, specifying system contiguratlon, and product desired 
Please add $1,00 tor first class shipping. 

PENSADYNE - Giving you the power to think. 



i^^'l'O; 
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COMPUTER SERVICES 
4441 WEST FIRST AVE. VANCOUVER. B.C. V6R4H9 604-224-3107 
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New 
Products 

For the TRS-80* 

HODELS l&l 



Digital I/O Port 

APIO-M^ 



*tcachln£ newsletter 

Condol ti>e oulsrOe world from ma- 
chine language or BASIC INP ana 
OUT commands. 8 TTL Outputs. 6 in- 
puts. assembleO anO tested PC board 
to sirnplily construction Helpful news- 
letter teacties beginners interface 
techniQues control ot ^louse^o^d ap- 
pliances telephone interfacing anO 
-nucn rnore AH necessary hardware 
custom Iront panel reference manual 
and newsletter incluOeO APIO-80D im- 
p'oved (specify Model 1 or 3i M7 
newsletter $2.50 



YTY-interfface 



Nnv cost printout 

Convert any ASCII or Baudot leietype 
into a TRS-80 printer no e«pansion 
interface needed TTV-80 S62. 

optional LOOPsupply J30 



Radioteletype 




'-»'*'^-^'*--' 



wirelcs* coMfwterUnlt 

Attention shortwave listeners get into 
the world ol RTTY ' Obtain reports 
frorn foreign news services ana data 
bureaus over any quality communica- 
tions receiver Receive ASCII (7 (evell 
and Baudot (5 level' at user seieclaole 
speeds includes special cole C-eak- 
er' feature selective :a: .ng and .deo 
display printer anocassettef^s^ctions 
RTTY-BO 195 



LIGHT •PEN 

Add e>cifement to your software 
LTPEN-80 adds five new functions !o 
BASIC tn an msiani picn any iX Vi 
point or character position on me 
screen sirnpl/ by pointing the pen' En- 
hance games Simplify user entry 
LTPEN-80 (pen and software} 127 
LTSOFT (Software alone) t19 




Phone-HODEH 

RS-232 not neededl 1 1 1 

The low cost alternative to buying an 
eipensive RS-232 interface and 
modem The PHonemODEMemulales 
these functions in sottware, greatly re- 
ducing hardware costs ThePHOOEM 
plugs into any cassette lacti and can 
even dial directly from the TRS-80 key- 
board Includes deluie terTiinai 
program dial, store messages ime 
print special criaracters — all are 
supported PHODEM SS9 

PHODEU-232 (can be used with RS- 
232 port, full duplex, non-dial) IK 




SPIKES KILL 

Transient Hi-V sprkes can crash' programs and oamage 
equiomeni These killer spikes can be caused by almost 
any motoriied household appliance The SVNTEX 
DESPiKER IS a quality all metal socket strip with integral 
spike suppression It includes 6 grounded sockets, master 
switch pilotlamp. and 1 5A circuit breaker — tor a reason- 
able price OESPlKEP 142 95 



TRS - SPEAK 

Add speech capability to your TRS-aO the economical 
way Bring locution to your programs, conduct enperi- 
ments plays through cassette Or amplifier Comes with 
2 vocabulary sets 1| game sound effects and musical 
notes 21 heodecimal numbers to 9 A to F TbS-SPKc 
(cassette) or TRS-SPKd (Oiskj J15 



All products post paid win USA foreign orders remit 

U S. funds plus extra postage Call or wrila today 



M^^SVj&S^ O for more mh. cal@ 

-ailffCiC 7I7/733-47B9 
«^ ■ electronic innovatione 

" Box 4034 LANCASTER PA 1 7604 
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Computeens Mob Camp 
Keep Prof Jumping, Happy 



For the fourth year in a row, Dr. 
Michael Zabinski (of Fairfield Univer- 
sity, New Haven, CT) and a group of ex- 
perienced teachers spent two weeks this 
summer with more than 100 teenage 
computer nuts. 

Taking place during the last two weeks 
of July in the Klar Crest Resort in 
Moodus, CT, the fourth annual National 
Computer Camp was a complete suc- 
cess, according to Dr. Zabinski. He told 
us more than 160 campers aged 10 to 18 
of both sexes came and had a good time. 

The camp, the first of its kind, com- 
bines small group instruction in 
microcomputer uses with strong em- 
phasis on the TRS-80 with normal camp 
activities. Students this year came from 
as far away as London, England, and 
Caracas, Venezuela. 

One hundred ten students attend the 
camp for a week, and about half of them 
stay for the second week. The staff in- 
cludes 188 teachers plus two recrea- 
tional organizers, two directors, a 
medical doctor who is doing computer 
research and Dr. Zabinski. 

The students work in small groups ar- 
ranged according to their level of 
knowledge, ranging from beginners to 
two groups of Assembly programmers. 
All work on TRS-80s, except one of the 
Assembly programmer groups which 
used Apples and a Wang minicomputer. 

A typical camp day starts with a morn- 
ing computer session from 9 to 11 a.m. 
There is a midday break for sports, in- 
cluding swimming and diving in the 
camp pool, and soccer with a college var- 
sity player who is a physical education 
major. After lunch the students relax un- 
til 1:15 when they go back to the com- 
puters until 5 p.m. At night Dr. Zabinski 
runs a movie or other special event. One 
night they conducted a Las Vegas night, 
with games of chance run on the 
microcomputers. 

Most of the computer work is done in a 
spacious and well-lit camp hall. The 
campers worked in an informal at- 
mosphere, moving around a lot and shar- 
ing information and activities. 

"This is not a classroom setting," Dr. 
Zabinski explained. "We give them books 
but they are not textbooks and we never 
tell them to turn to page such and such. 
We use them for reference only." 

The campers are often too dedicated 
to their computer work. In spite of the 
beautiful, quiet grounds of the resort 
camp and the bright weather, Zabinski 



had to personally order some of the kids 
out of the hall to take a swim at the 11 
a.m. break. 

Rick Larcom, a teacher from a New 
Canaan, CT, high school who runs the 
TRS-80 Assembly group, mentioned he 
has to turn out the tights at night to force 
the kids to leave and he has to lock the 
doors or he'll wake up to find some of 
them already at work early in the morn- 
ing. 

Dr. Zabinski feels that the secret to the 
success of his camp is the staff. "I hand- 
pick everybody, I train most of them 
myself. Most of my teaching assistants 
used to be campers. I emphasize that I 
have to have a good staff. They're knowl- 
edgeable and experienced at what 
they're doing." 

The teachers come from all levels, 
from elementary through high school, 
and Dr. Zabinski tries to match the 
teachers with age groups they are used 
to. This isn't always easy or even 
possible— the groups are divided accord- 
ing to the students' level of accomplish- 
ment, not age, and especially in the up- 
per levels the ages are fairly mixed. 

The emphasis of the camp is not solely 
on learning hard technical material. In 
fact. Larcom teaches social studies, not 
math, during the year. 

Zabinski isn't worried about technical 
orientation among his teachers so long 
as they know their subjects well and are 
good with the campers. His concern is 
having the students learn something. 

His formula is proving very successful. 
"When the kids come back year after 
year and bring their friends, it tells you 
something about how well you're doing," 
explained Dr. Zabinski, who added the 
camp does practically no advertising 
because it fills up so fast from repeat 
campers and people who have heard of it 
by word of mouth. 

Next year they are considering 
expanding to four weeks and may run 
one special week for computer campers 
with diabetes. 

The camp medic. Dr. David Rowe, is a 
pediatrician from the University of Con- 
necticut who works with diabetic 
children. His interest in diabetic children 
may spur the special week next summer. 

Zabinski appreciates the complica- 
tions this would involve, but he's confi- 
dent they can handle just as they first 
handled the much greater problem of 
creating a computer camp. ■ 
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French to Make Model 
For Radio Shack Europe 

nouncements do not so much represent 
a change of company tactics or policy as 
the exercising of an option Tandy aiways 
considers when supplying a new market. 
Having a local host simplifies many 
areas for Tandy. 



Tandy/Radio Shack. Fort Worth, TX, 
has some good news for European 
fans of the TRS-80. The firm is com- 
pleting an agreement with a French elec- 
tronics firm to manufacture the TRS-80 
Model III in France. 

Tandy spokeswoman Harriet Rylander 
said if things go well the French com- 
pany, Matra SA, will have the microcom- 
puters in production by March. 

Tandy is making its French connection 
to improve the supply of TRS-80s in the 
Common Market countries. Tandy in- 
volvement in the European microcom- 
puter market does not approach the suc- 
cess it has had in the U.S., and Rylander 
blamed this on lack of supply. 

Tandy's U.S. manufacturing facilities 
are straining to keep up with domestic 
demand, so TRS-BOs have been rare in 
Europe. The Model 111 was not available 
there at all until June, and is still hard to 
find. 

The French connection is the second 
foreign agreement Tandy has announced 
in the last few months. They earlier an- 
nounced an agreement with Tokyo Elec- 
tric to manufacture and jointly market 
the Model I in Japan. 

Until this summer Tandy had made all 
its microcomputers in its own plants in 
the U.S. However. Rylander said the an- 



other Products 

Matra SA is a large French con- 
glomerate active in areas including 
telecommunications, space technology 
and mass transportation. According to 
Rylander, Tandy is interested in develop- 
ing other connections with Matra, par- 
ticularly in telecommunications, if the 
Model III deal works well. 

The Matra deal has been approved in 
principal by the French government. 
However, arrangements between the two 
firms have not been finalized, and once 
the agreement is signed it must be ap- 
proved in detail by the French govern- 
ment. 

Tandy President John V. Roach stated. 
"This joint venture for computer 
manufacturing represents an important 
milestone in our growth in Europe in 
general and in France in particular. It will 
significantly strengthen our ability to 
support the European microcomputer 
market." ■ 



School Microcomputer Aid 
Clipped by Budget Cutbacks 



Although a number of federal agen- 
cies offer grants that could be used 
for projects involving microcomputers in 
the schools, many are receiving funding 
cutbacks or are being absorbed in the 
block grant program. 

Title IV B and IV C of the Elementary 
and Secondary Education Act of 1965 
authorized the largest sums for 
microcomputers. The Office of Libraries 
and Learning Resources, which ad- 
ministers IV B. granted 40 percent of last 
year's $161,000,000 for projects involving 
microcomputers. Title IV C, whose funds 
are granted to improve local educational 
practice, doled out $66 million in fiscal 
1981. 

With both funds going to block grants 
in fiscal 1982, 20 percent of the available 
money will be given to the states and 80 
percent to local school districts, which 
means the schools themselves will have 



more control over how the money is 
spent. 

Budget Jitters 

Many grant agencies expect cuts in next 
year's budgets, however. Authorization 
hearings are still underway in the House 
of Representatives, leaving the agencies 
up in the air about how much money will 
be allocated next year. 

No federal agencies are authorized to 
fund projects solely for microcomputer 
purchase or use, but many will fund 
larger programs involving micros. These 
include: 

• The Division of Adult Education: Part 
of the Office of Education, Adult Ed 
recently dispersed $100 million in grants 
to expand adult education skills. Money 
is given to the states who determine 
allocations to school districts. The pro- 
gram should remain a categorical grant 



LETS MAKE A 
DEAL 



LOGS 



Complete w/manu;il S latest updates 

Modlorlll $124.95 



LAZYWRITER 

Mod. I $118.95— Mod Ml $164.95 



EPSON MX1 00 

CALL FOR OUR LOW PRICE 



LYNX— Modi/Ill 

Includes ~ Autodial/answer ____ __ 

cables & software $259.95 



MAXI MANAGER 

by Adventure International 

Mode! I/Ill 48K Disk $79.95 



Proofreader Mod I 49.95 Mod III 59.95 

Proofedit Mod I or 1 1 1 28.50 

Grammatik Mod I 45.95 Mod 1 1 1 55.95 

bvSott [OC T- 



SENDFORYOUR FREE CATALOG 
■ediltardsal itiese low prices AdOSI 60on all Coil O' 
Ufr;. Ce'Iifiea cK.'MQ/COD sruppeO immpdialply Please 
„,.,!« 2 weelis tor petsonal checks For eilra lasl service 
Ofione in youi COO nrOc Prices siib|ect loc^^^ge wilhoul 
mtrce NVS rfsidenis pleas.? .irtil .^[lp'n[-^ldle sales trti 
WfQKerCrp^l Values & Promut Di-i'vnv Wi^ Mnr ''v (';." 



MICRG-IMAGES 

146-03 25th Rd. Flushing. NY 11354 

\^,„i F-i iiiAW'u*M{212) 445-7124 s.n iiiaw sfm 



^^359 



•See List of ■'Sve'T.'Se'S Lif pjqp J36 



m SICK X 

OF PROGRAMS THAT TREAT YOU LIKE 

AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL VER. 1.1 

• No CQmpiicaied miiializalion 

• EDIT i LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED or houtly 

• SPECIAL PAY-sp»cial hours 

• TWO SAVINGS-including RIA 

• CLASSED Dy occupalion or depi 

• PAYSTUB shows Yea r-io- Date 

• STAIE-FICA-FED TAl-ES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your slate tax 

Documenlalion 110 OC 
Disk 8 Documentation $9S OO 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year s depreciation 

• OR complete list o' an p'operiy 

• PRINTOUT sho*s — I Njmber— tJescriplion- 

• Yr purchased — ii'e — method — 
Isl yr additional depreciation — 

• Reg Oeprec — deprec prior yfS. — balance 

• SUMMARY total value p'op ■ addilionai 1st yr 

• REGULAR deprec —deprec pno' yrs 

• PERMANENT records lor /our la.es 

Documenlalion $15 00 
Disit i Documenlalion J196 00 

MIN 32K-1 D1SK-PRINTERM32 CPI 

TERMS Personal checks (eguire i weeks to clear 

USE-VISA-MASTER CHARGE-MONEY ORDERS 

TEL ?PM-9 30 PM EASTERN-(617)359-2364.'6370 

SEND SASE lor additional ^r-lormalio" 

MEDFIELD ""' 
COMPUTER SOFTWARE 

39 GHEEN ST . MEDFIELD. MA 02052 
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for next year. 

• Bureau of Education for tfie Hand- 
icapped, Division of Innovation and 
Development: The Education of the Han- 
dicapped Act authorized money for 
research into improved education for the 
handicapped. Some applicants funded in 
the past already had microcomputers; 
grants have supported computer- 
administered testing and research, as 
well as curriculum development using 
micros. Max Mueller, chief of the 
research projects branch, says next 
year's budget could run anywhere from 
$8-20 million. 

• Office of Bilingual Education, Office 
of Education: This program is designed 
to improve teaching English as a second 
language, using the student's native 
language. The program funds micros as 
part of a basic bilingual program for 
elementary or secondary education. 
They awarded 525 grants last year and 
expect a budget of $1 39,000,000 for fiscal 
year 1982. 

• Fund for the Improvement of Post- 
Secondary Education: Robert Fullilove, 
director of the program, says they have 
granted "substantial funding" for micros 
at colleges and universities. Grants have 
been awarded to San Francisco State 
College to establish a "math anxiety 
clinic" with a Commodore PET com- 
puter, and to the University of California 
at Santa Barbara, where micros are used 
in algebra classes. Fultilove estimates 
level funding for next year, which would 
be about $13 million. 

• Appalachian Regional Commission: 
Authorized by the Appalachian 
Redevelopment Act of 1965, this program 
provides grants to vocational schools 
and post-secondary technical schools. 
Director Melvin Rottenberg describes it 
as a "flexible block grant program" ad- 
ministered by the area states. Their max- 
imum budget for 1982 should be $50-65 
million. 

• The National Science Foundation: 
While the foundation has not awarded 
money for micros In elementary or sec- 
ondary schools since 1970, it has 
awarded substantial grants to post- 
secondary schools for research involving 
computers. As part of the Local Course 
Improvement Program (LOCI), they gave 
$2.49 million to 125 institutions for 
research; another program awarded $2.7 
million in 1980 for the purchase of scien- 
tific equipment at 215 colleges. Grants 
included $18,569 to the University of 
Hawaii to develop a software laboratory, 
and $13,975 to SUNY College at Oswego 
for an on-line microcomputer laboratory 
for behavioral research. About halt of the 
LOCI awards go to microcomputer proj- 
ects, says John Maccini, who coor- 



dinates the program: 

• Teacher Center Program, Bureau of 
Higher and Continuing Education: 
Teacher Center grants establish in- 
service centers for educators; many of 
these contain microcomputers. The pro- 
gram has a $10 million budget for fiscal 
year 1982, and will be absorbed by the 
blocif grant program the year after. It 
originally funded the establishment of 60 
teacher centers in 1978; half of these 
have retained funding. Many of the 
others are now supported locally. 

No Funds Here 

Programs that are being dissolved or 
which no longer fund micros include: 

• Coastal Plains Regional Commis- 
sion, a program assisting vocational 
schools in the southern coastal areas, is 
ending Sept. 30; it had received applica- 
tions involving micros but none were ap- 
proved by the states. 

• Emergency School Aid Act of the 
Equal Educational Opportunity Program 



cannot allocate Its monies for micros, 
according to director Jesse Jordan. The 
agency was incorrectly included in a list 
of available funds collected by Bell & 
Howell, Chicago. 

Even if federal funds are limited in the 
1980s, the agency officers doubt this will 
have a detrimental effect on micro 
development in schools. 

"They are getting computers In the 
classroom by hook or by crook," says 
Bob Tinker of the Technical Education 
Resource Center (TERC). PTAs and 
districts are being called upon as well as 
formal state and federal funding 
sources. 

Linda Roberts, a researcher for the 
Division of Educational Technology, 
agrees. "School officials are saying, 
'Hey, I want a micro— and we're having a 
cake sale to get it.' There's a real grass 
roots effort." ■ 

by Betty Thayer 
80 Microcomputing staff 



Students from 5 to 105 
Enjoy Hands On Science 



The Talcott Mountain Science Center 
for Student Involvement (TMSC) in 
Avon, CT, is an unusual learning institu- 
tion. Dedicated to teaching science by 
getting students Involved, it educates 
children from kindergarten through col- 
lege level in private programs for Center 
members and by the class under con- 
tract to a variety of public and private 
schools and the University of Hartford in 
nearby West Hartford, CT. Computer pro- 
gramming is only one of the several hard 
science subjects the center offers. 

While most schools take a classroom 
approach to science, with a heavy em- 
phasis on lecture and theory and a 
limited amount of laboratory time, TMSC 
presents little or no lecture and puts the 
students into a hands-on situation under 
the guidance of teachers and scientists. 
TMSC students have been involved In 
genuine scientific research, helping staff 
members develop raw data for papers for 
international symposiums. The students, 
who range from age five to 22 and from 
upper middle class "rich kids" to inner 
city Hartford blacks and Chicanes, re- 
spond enthusiastically. Careful testing 
shows they also learn more quickly and 
thoroughly than students in traditional 
classrooms. 

TMSC's Computer Science Depart- 
ment is fully Integrated into the general 
activities of the Center. Housed in a new 
solar-heated building, the Center offers 



students a variety of microcomputers 
which Include all the Radio Shack prod- 
ucts. Over the summer the heaviest users 
are members of the Center's Quest pro- 
gram. These are teenagers from grades 5 
through 12 with high science aptitudes 
who work on projects of their own choos- 
ing for two week periods. They are di- 
vided into beginners, intermediate and 
advanced or Assembly language classes 
which work In three separate rooms in 
smalt group situations. 

Practical Programs 

An unusual aspect of the Center pro- 
gram is that it Is self-reinforcing. Many of 
the students work on programs that they 
or others at the Center will use to learn 
about computers or augment other sci- 
ence projects. One student is developing 
a program which will accept weather 
data from radio weather reports and 
draw a weather map. When it is finished 
the program will be used by the Center in 
their meteorology courses. Another built 
his own specialized microprocessor to 
accept solar energy information directly 
from the Center's solar measurement 
equipment and analyze it automatically 
for use with the Center's continuing pro- 
gram of solar science. 

Writing instructional programs is 
another popular activity. "The kids get a 
big kick out of teaching other kids 
something and writing programs that 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 




FOR TRS-80- Model I 

CCl-100 5V«".40Track(102K) $299 

ADD-ON DRIVES FOR ZENITH Z-89 
CCI-189 5V«".40Track(102K) $394 

Z-87 Dual 5V«" system $995 



External card edge and power supply included. 90 day warranty/one 
year on power supply. 

RAW DRIVES 

5V4''TEACorTANDON 
8"SHUGART801R 

DISKETTES - box of 10 

S'A' Maxell $40 

8" Maxell $45 

PLASTIC FILE BOX-Holds 50 SV*" diskettes 

PLASTIC LIBRARY CASE SV." S3M 

HEAD CLEANING DISKETTE 

FLOPPY SAVER $10.95 



BASF/VertMtim 
BASF/Vefbatim 

8" 



16K RAM KITS 

200ns for TRS-80,* Apple II, (specify): 



RINGS 

2 lor $37 
Jumpers 



$CALL 
$CALL 

$26^ 
$3&00 
$19.00 
$ 4.00 
$25.00 
$ 6.95 

$19 

$2.50 



SYSTEM SPECIAL 

Apple 11 Plus 48K w/drive and controller, Epson MX-80 printer and 
interface. SUP-R Mod RF Modulator; List $2965 You Pay $2299 



COMPUTERS/TERMINALS 

ARCHIVES 64K, 2-Drives. 77 Track 

ALTOS ACS8000 Series 

ZENITH 48K, all-in-one computer 

ZENITH 2-19 

TELEVIDEO 9in $559 920C $ 

IBM 3101 Display Terminal 

ATARI 400 $ 359 

MATTEL INTELLIVISION 
APPLE PERIPHERALS 



729 



950 



800 



$CALL 

$CALL 

$2200 

$ 725 
$1039 
$1189 
$ 795 
$ 259 
SCALL 



S-100 CALIFORNIA COMPUTER SYSTEMS 




MAINFRAME 


Model 2200A 


Z80CPU 


Model 2810 


MOTHER BOARD 


Model 2501 


16K STATIC RAM, 200ns 


Model 21160 


32K STATIC RAM, 200ns 


Model 20320 


64K DYNAMIC RAM 


Model 2065C 


FLOPPY DISC CONTROLLER 


Model 2422A 


EXTENDER BOARD 


Model 2520K 


2P + 2S I/O 


Model 2718A 



$349 
$259 
$106 
$309 
$619 
$580 
$345 
$ 52 
$309 



PRINTERS 




NEC SPINWRITER 

Letter Quality High Speed Printer 

R.O. 

R.O. with tractor teed 

KSR with tractor teed 



NEC SPINWRITER 3500 Series 
EPSON MX-70 MX-80 

PAPER TIGER 



MX-80FT 



IDS 445 
IDS 460 
IDS 560 

ANADEX 

OKI DATA 
Microllne 80 
Microlme 80 
Microlina 82 
Microllne 83 

CENTRONICS 

C. ITOH 
Starwriter I 
Starwriter I 
Stanvriter II 
Starwriter II 



Graphics & 2K buffer 
Graphics & 2k buffer 
Graphics 
DP-8000 $849 

Friction & pin feed 

Friction, and pin & tractor feed 

Friction & pin feed 

120 cps, uses up to 15" paper 

739, new model with graphics 

25 cps, parallel interface 
25 cps, serial interface 
45 cps, parallel interface 
45 cps, serial interface 



MX100 



DP -9500/01 



PRINTER SPECIAL 

SEIKOSHA GP-80M 

MONITORS 

BELL& 

HOWELL 
LEEDEX 



List $399 



$2395 
$2555 
$2795 

$CALL 
$CALL 

$ 695 
$ 799 
$ 999 

$1295 

$CALL 
$CALL 
$CALL 
$CALL 
$ 739 

$1449 
$1529 
$1829 
$1949 



You Pay $319 



SANYO 



ZENITH 



9' 
12" 
13" 

9' 
12" 
13" 



BSWBHD911 
B&W $129 



Color 
B&W 
B&W 
Color 



$329 
$149 
$219 
$349 



$17S 

12' Green Screen $159 

12" Green Screen $238 
13" Color $406 

12 "Green Screen $129 



$125 

$180 



TELECOMMUNICATIONS 

LIVERMORE STAR MODEM 2 year guarantee 

UNIVERSAL DATA SYSTEMS UDS-103 

D-CAT HARD WIRED DIRECT MODEM 

AUTO-CAT Auto Answer, Direct Connect Modem 

APPLE-CAT II 

D.C. HAYES MICRO-MODEM 

D.C. HAYES SMART-MODEM 

CCI Telnet Communications Package $135 

APPLE ACCESSORIES AND SOFTWARE 



«948 
S295 



VISICALC $155.00 

CPS MULTIFUNCTION CARD 

Z-80 SOFTCARD 

VIDEX BOARD 

KEYBOARD ENHANCER 

16K CARD 

APPLE JOYSTICK 

SUP-R MOD 

CCS CARDS 

GALAXIAN 

SPACE ALBUM 

ASTEROIDS 

FLIGHT SIMULATOR 

WIZARD & PRINCESS 

SARGON 2 



DB MASTER 




$159.00 
$189.00 
$259.00 
$255.00 
$110.00 
$159.00 
$ 49.00 
$ 25.00 
SCALL 



^ 



MYSTERY HOUSE $ 24.00 



HI-RES FOOTBALL 



22.95 
35.00 
17.95 
29.00 
28.00 
29.00 
35.00 



For fast delivery, send certified checks, money orders or call to arrange direct bank wire transfers. Personal or company checks require two 
to three weeks to clear. All prices are mall order only and are subject to change without notice. Call for shipping charges. 



DEALER (NATIONAL/INTERNATIONAL) INQUIRIES INVITED Send for FREE Catalogue 



TO ORDER CALL TOLL FREE 1 800 343 6522 

298 TWX: 710-348'1796 Massachusetts Residents call 617/242-3361 



Hie CPU SHOP 



5 Dexter Row, Dept. MC10M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon.-Fri. (Sat. til 



5) 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/™- Digital Research 
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S'tpNEWS 



teach," Bill Danielson, TMSC's computer 
department director, said. 

These programs have Included mineral 
and plant classifiers which ask the user a 
series of Identification questions about 
the specimen and use the answers to 
determine what it is. 

One of the more interesting student 
projects involved fruit fly propagation. 
The student wanted to demonstrate the 
rate of increase of a fruit fly population 
using the fruit fly propagation formula. 
Normally it takes two weeks for fruit flies 
to hatch. The student wrote a program to 
print a colon to represent each pair of 
fruit flies. Me started with a single pair 
and had the microcomputer calculate 
how much time It would take to print out 
each generation on a 30 cps printer. He 
discovered that If the computer runs at 
full speed, the actual fruit flies will catch 
up with it in their fifth generation and the 
printer will fall progressively further 
behind after that. 

The nicest thing about this approach 
to learning is that the students learn pro- 
gramming, use of the computer and com- 
puter applications to other activities at 
the same time they are learning the sub- 



jects covered by their programs. 

Their learning goes beyond the Im- 
mediate applications, however. 

"One of the real advantages of the 
computer is it is easy to construe it as a 
brain," Danielson said. "It gets the kids 



")Ne are 

no longer 

a supplement to 

our students' 

science education. 

We are their 
science education.' 



to think very clearly about who they are 
and what the nature of thinking is." 

The Quest students are not the only 
Computer Center users. Danielson said 
the Center has been running a large 



numtter of teacher workshops for area 
schools interested in developing more 
applications for the microcomputer in 
their classrooms. The Center also has 
younger children In programs; the 
youngest are the "Fledglings," kids going 
into kindergarten and Grade 1 in the fall. 
They get one and a half hours with the 
microcomputers as part of their program 
of general introduction to science. 

The Center relies heavily on its 
TRS-SOs; it has five Model Ills, one Model 
I, a Pocket Computer and a Color Com- 
puter along with three Apples, one 
Sinclair and a PDP-1 1 minicomputer from 
Digital Equipment Corp. (DEC) that time- 
shares on several terminals for the most 
complex applications. 

"The important thing is not whether 
they master Basic or Assembly language 
but that they have a good experience 
with the machine at an early age," 
Danielson said. "With the increasing in- 
trusion of computers into our profes- 
sional and private lives, we are facing a 
two-cultures problem. We may well find 
ourselves divided between those who 
use computers and those who do not." 

"Most of these students won't become 



CLOAD MONTHLY 



"all the fit that's news to load" 



TRS-80 PROGRAMS ON CASSETTE 

CLOAD Magazine for your Model I or III! 



Goleia. Calif — You can get 7 or 8 programs on casselle. tach monlh. 
Ihai CLOAD directly inio your TRS-80 Mixlel I or 111! 

A subscnber. loo engnissed in trying to save the world from invading 
aliens (Marth. 1981 issue) lo give his name, stated. "I receive a 30 minulc 
cassette bv First Class Mail each monih containing some ol the best games 
and educational programs I have ever played. Some are even in machine 
language''Another CLOAD subscriber. Claudine Cload. could now 
■fit the computer into her schedule" thanfcs to the utilities and occasional 
disk programs she received from CLOiltO. She was writing about it to all 
of the people on her mailing list (November. 1979 issue) 
Get the news firsthand. Gel a subscription to CLOAD Maga/tne. 

The Fine Print: 

Overseas rates slightly higher — 

please wnte for them. 
Back issues available— ask for our list ' 
TRS80 IS a liadematk of Tandy Corporauon 
California residents add 6% to single copies 

and anthologies F*rograms are Tor Level I) 

i 5K , ^^odel III 1 6K , arvl occasionally tor disks. 
•24 Level I back issues also available. 



by Clyde CIciad. star rcp*mcr 



PRICES 

1 year subscription ^4200 

6 fTX>nth subscnplion S23.(X) 

Single copies 54.50 

Anthology volume 1 *I000 

AnthoJogy-volume 2 ... * 1 5.00 

Mastercard/ Visa Welcome. 



llUhD 




Magazine Inc. PO. Box 1448. Santa Barbara. CA 93102 .502 (805| 962-6271 



OI98I 
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professional programmers; they will go 
out and be engineers, businessmen, 
writers, and many other things. If they 
bring a positive attitude towards com- 
puters to their work they will be able to 
use this tool effectively." 

Important Plac* 

In a decade of cutbacks in public edu- 
cation funding, Danielson said TMSC 
and other institutions like it serve a vital 
purpose in education. The head of one 
targe Connecticut school system reg- 
ularly visits public school classrooms on 
a drop-in basis. In over 100 visits in the 
last year, he found only two instances 
where a science lesson was being taught 
when he visited. 

The obvious implication is that only 
two percent of the students' time is 
spent on science. In an increasingly 
technological world, it is ironic that the 
return-to-basics movement in education 
is discouraging any change In that pro- 
portion. 

Under these conditions, Danielson 
said, "We are no longer a supplement to 
our student's science education. We are 
their science education." ■ 



College, Publisher Join, 
Offer Computer Program 



The Hawthorne-Green Inc. Institute 
of Computer Science has been an- 
nounced by officials of Nathaniel Haw- 
thorne College. The new program will be 
offered at the Hawthorne campus, locat- 
ed here in Antrim, a small town in the 
south central region of New Hampshire. 

Initially, instruction will deal with the 
fundamentals of computing, with a heavy 
emphasis on microcomputers. The cours- 
es will explore hardware, software, and 
computer science; future plans call for in- 
creasingly diverse offerings of advanced 
and specialized courses. 

The classes will be taught by the Haw- 
thorne faculty and by members of the 
staff of Wayne Green Inc., located in near- 
by Peterborough, NH. In addition to pub- 
lishing several microcomputer periodi- 
cals, the firm also maintains an extensive 
working microcomputer laboratory for 



use by its subsidiary. Instant Software, 
one of the country's major microcomputer 
software houses. 

In the interest of making the classes 
available to as many people as possible, 
the first courses will be held in the eve- 
ning, two nights a week. Students with no 
technical background will be accommo- 
dated in the introductory sessions as will 
the needs of more advanced enrollees. 
Topics to be covered Include data pro- 
cessing and electronic trouble shooting 
and, according to a spokesman for the in- 
stitute, the classes are well suited for the 
person who wishes to prepare himself for 
a career in the booming technical field. 
Course participants may also elect to pur- 
sue a certificate program or go on to fur- 
ther study under a formal degree program. 

The first courses are slated to begin 
this month.fl 



COLOR COMPUTER OWNERS! 
CLOAD INC. ANNOUNCES 



^» 



CHROMASETTE MAGAZINE! 

A monthh magazine-on-cassette for your 
Extended BASIC Color TRS-HO! 




Goleta Calitomia — With 
CHROMASSETTE 

Magazine, Color Com- 
puter owners can now enjoy 
the variety, economy, and 
easy entry of programs that 
CLOAD subscribers have 
enjoyed for 3 years. 

CHROMASETTE 

Magazine gets rid of the ,, „ 

» ^ CHROMAShrn: ^anarnit' III Hi I'nmi- Stan- 

lype-m-and-edit blues by 

putting a rainbow of ready-to-load programs on cassette, and sendmg 
them to you by First Class Mail each month. Educational, practical, 
utility, and game programs are delivered right to your mailbox. 



Put a rosy color in you and 
your computer's cheeks, 
stop reading these old 
cliches, and get a subscrip- 
tion to CHROMASETTE 
Magazine. 

Please write for Foreign Rates and 
other info. 



S45.00year. $25,006 months. $5.00 
single issue, or send a Blank Check 
and your account balance. Visa and 
MasterCard also accepted. 



Chromasette Magazine RO. Box 1087 Santa Barbara, CA 93102 ^« (805) 963-1066 



80 Microcomputing, October 1981 • B3 



5^(9 NEWS 

Farmers Group Cultivates 
Videotex News Database 



Anew timesharing network for farmers 
supplying up-to-tfie-mtnute Informa- 
jj^lon on commodities markets has been 
started by the Professional Farmers of 
America, Cedar Falls, lA. 
^ The electronic news network, called In- 
stant Update, uses Radio Shack Videotex 



"The network offers 
analyses of events 
which may have an 

impact on the market 

and their possible 

effects on 

commodities prices. " 



16K terminals to distribute a daily morn- 
ing newsletter, a report on opening prices 
In the commodities markets, updates on 
the markets through the day and evening 
market summaries. It also carries infor 
matlon on market strategies, reports on 
events in Washington which may affect 
the commodities market and background 
and historical information. The network 
offers analyses of events which may have 
an impact on the market and their possi- 
ble effects on commodities prices. 

The most recent addition is a database 
of Gulf Coast grain prices. This is a 
measure of demand in the market accord- 
ing to Tom McCafferiy, marketing manag- 
er for the Professional Farmers. He said 
they were considering adding East and 
West coast grain prices. 

McCafferty said interest In Instant Up- 
date has run high among farmers since it 
was first announced in January. The ser- 
vice actually started April 1. McCafferty 
declined to give the number of subscrib- 
ers except to say it is "over 500." He said 
while subscribership is heaviest in the 
midwest, Instant Update is a nationwide 
service which even has a subscriber in 
Hawaii. 

It costs a flat $95 a month for unlimited 
access, including rental of the Videotex 
terminal. It is an interactive service, with 
the user selecting a database from a 
menu and storing information In Videotex 



to read off the television screen. 

McCafferty said the newsletter and 
commodity prices are the most used data 
bases, a weather database the least. 

Only Choice 

The Professional Farmers chose Video- 
tex because It was the only terminal 
around. They have been very happy with 
the equipment which so far has been vir- 
tually trouble-free. 

McCafferty said relations with Tan- 
dy/Radio Shack. Fort Worth, TX, have 
been good although "they can always be 
better." He also said they have been 
waiting for some software from Tandy to 
allow TRS-80 microcomputers to interface 
with the system. 

Charles Phillips, Senior Vice President 
for Special Markets for Tandy, mentioned 
they are actively promoting the idea of 
private information networks using Video- 
tex terminals. In the long run, he said, Tan- 
dy expects Videotex to become a house- 
hold appliance. Phillips told us they hope 
enough private networks will take up Vid- 




eotex to create a "critical mass" of homes 
using it so that as general-interest data 
services develop they will be designed to 
be compatible with Videotex. "A lot of 
people are looking at this form of com- 
munication," he noted. 

McCafferty said Professional Farmers 
is a private business offering farmers 
marketing information and seminars on 
marketing. Founded in 1973, it has more 
than 30,000 client-members. ■ 



Education Bill Reintroduced 



Us Rep. Tom Downey (D-NY) has 
reintroduced his bill to establish one 
or more national centers of study micro- 
computer use in education. The bill is be 
Ing co-sponsored by two memtiers of the 
House Subcommittee on Elementary and 
Secondary Education, where it stalled last 
year. According to a spokesman, Rep. 
Downey is optimistic that subcommittee 
hearings will be held on the bill this year. 
The bill seeks $4 million paid over three 
years to support the establishment of one 
or more centers to study how microcom- 
puters are used in schools and to make 
this information available to interested 
parties in the hope of encouraging micro- 
computer use in education. However, 
David C. Smith, legislative assistant to 
Rep. Downey, warned that it will be tough 
to squeeze extra money out of Congress 
for anything this year. 

Smith said one big argument for the bill 
is that the United States is falling behind 
other countries in this area; even the Brit- 
ish, with their much-publicized economic 



woes, are spending $25 million to pur- 
chase microcomputers and put them in 
every school in the country. The French 
have a similar plan already approved and 
in operation. 

"All we want to do is study the uses, we 
aren't talking about actually buying any 
machines for schcols," Smith said. 

Rep. George Miller (D-CA) and Rep. 
Mario Biaggi (D-NY) are co-sponsoring 
the bill this year. Smith said the hope to 
conduct subcommittee hearings some- 
lime after the August recess. 

It the subcommittee passes it, the bill 
will then be considered by the Committee 
on Education and Labor. If that committee 
acts favorably on it, it will go to the full 
House for consideration. 

Anybody interested in expressing an 
opinion on the bill, labeled HR-2112, to be 
placed on the record, may write to Rep. 
Carl Perkins (D-KY), Chairman, Subcom- 
mittee on Elementary and Secondary Edu- 
cation, Room B346C, Rayburn House Of- 
fice Building, Washington, DC 20515, ■ 
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ATARI 400 ' 

COMPUTER :l 

TO BE AWARDED '1 



TO ESCAPEE! 



I i 



.. ■*'■!■:.:':'■'■■: i' 



■^A 



-. ■%-! 



'>yi 



As>iiiin is the most sophisticated, sinister, challenging 3-D 
graphics adventure ever written! You are placed in an asylum 
for DEATHMAZE survivors. Your only goal: ESCAPE! 

Asylum has over 1 200 locations! Hallw^ays recede into the 
screen, as though you are actually there! Doors open and 
close! Beds, desks, and even guards and other inmates are 
drawn on the screen! And graphics are generated iastan- 
taneously! Simply press an arrow key to move or turn, and 
you are moved. Absolutely no waiting! 

English language commands may be issued at any time from 
a vocabulary of almost 300 words. Commands may include 
complete statements. "Get ei^ery thing on the desk 
except the matches" is perfectly legal! 

Will anyone escape? Who knows? Intelligence, 
cunning and patience will be necessary. Send us 
your correct solution, postmarked no later than 
November 15th. On November 30th we will draw 
from the entrants for an ATARI 400 1 6K color computer! 

NO HINTS WILL BE GIVEN OVER THE PHONE! 

ASYLUM 16K cassette $ 19.95 

ASYLUM 32Kdisk $ 24.95 

ASYLUM Hint Sheet I 1.00 

TRS-80 Level II, 
Model I and Model III only 



■^ 



t-'128 



Med Systems Software 
P.O. Box 2674-A 
jChapel Hill, NC 27514 
(919)933-1990 



It's Not Your Printer, 
It's Your Software* 




, f 




Features of Qwerty 3. 

1. Automatically prints in proportional print, with a suitable 
format. Transtions between the three prim styles are easy, 
including all expanded print m<xJes. 

2. Qwerty 3-0 adds ~S new s>Tnbols, including upper and 
lower ca>c Greek letters, mathematical symbols such as 
integrals and summations, arr()ws.brackcts,and probability 
symbols. 

3. Any character can be used as a subscript or superscript, 
even simultaneously. Carats, bars, and tildes can be placed 
owr any character, with precise position control. 

4. Underlining, with or without underlining of spaces. 
including long ratios and mathematical expressions. 

5. Footnotes can be placed on any page so that they remain 
on the desired page. e\en if text is inserted later 

6 Table ctmimands enable positioning erf the print head 
anywhere on a line. Invaluable in printii^ neat mathematical 
layouts,labIcs, columnar material.etc, in proponional print. 

7. Pretty commands allow printing of repetitions of a 
chosencharactcr. Whencombined with Table, decoratiw 
borders can be produced with ease. 

8. FolloformatprtKJucesouipui in two or three columns per 
page, in either pn)f>ortional ur l6,~ cpi mode. Ideal for 
newsletters. 

9. Supplies a third output mtxle, in which only Scripslt 
commands are obcwd. Allows printing of special Qwerty 
ctMnmands for future rcferetKe. 

Page End indicates where pages will end, and the page 
number, without printing the text. One can prepare an 
almost error-free document without ever using paper. 



10. 



Do you own a Ctntronics 7.^7? 739? Lineprinter IV? 
Tired of the limitations ofSCRJPSIT? Qwerty 3.0 will let 
you accomplish word-processing feats you never dreamed 
possible. Like Greek letters. Simultaneous subscripts and 
superscripts. Even footnotes and two or three column 
folio formats. See the list of features in the box. No other 
piece of software of this t\pe can match Qwerty 3.0. We 
know, because we bouj^t the others, and were dis- 
appointed. 

Qwerty 3.0 is more than "fully tested." It has seen 
thousands of hours of use in a university environment. A 
masters tliesis and a statistical dtKtoral dissertation were 
produced and accepted right off a Centronics 737 using 
this package. 

Qwerty 3.0 is the finest SCRIPSIT addition available for 
the Centronics 737, 739. and Uneprinter IV. You must 
own one of these printers, a copy of SCRIPSIT, and a disk 
drive to use it. It is the best. Period WE GUARANTEE 
YOU WILL AGREE! If for some reason, you find that this 
program doesn't meet your needs, return the entire 
package within 1 4 days for a prompt and cheerftil refund. 

For cautious buyers, we offer the manual (about 50 
pages ) for S 1 0.00. When you decide to buy Qwerty 3.0, 
we will credit the full manual price. 

Qwerty 3.0 Disk, Manual, Reference 
Card, and Printer Table Rule $49.95 

Qwerty 5.0 Manual Alone $10.00 



II. 



Correction of Scriprit'scrrorsandinc on vcnienccs,cxten- 
siw documentarion. and much more! 



J 



Med Systems 

(919)933-1990 
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More from 



Med Systems 

To Order Call 1-800-334-5470 




Microworld 

byArii Haroutunian 



Microworld is an advfntiirt- like no othtr 
You arc transformt'd into an fleet roid. and 
musi iravcl through ihc circuits of your 
TRS-HO! You will he required to sohtr 
many incredible problems, and in the 
pHKcss. you will gain a know ledge ol how 
a TRS-HO operates, 

Microworld is one of the most advanced 
pieces of machine language programming 
Med Syslems has published A special 
encoding sthenic has allow eil a 2IKad\en 
turc to fit in I6K. Microworld is \erbose 
Messages are frcqueni and fact -filled 

Microworld is an excellent educational 
simulation It is supplied with a 12 page 
biHiklet containing a glossary and expla- 
nations of the electronics inside the TRS-HO 

Microworld is immense! It is twice as large 
as most adveniures. and at least twice as 
challenging' 

Tape $19.95 Disk $24.95 



Educational Software 

The Playful Professor 

A mathematics tutoring program that 
combines graphic step-by-step tutorials 
with an interesting graphics game. Tutors 
all operations, with integers or fractions. 
One or two players, three difficulty levels. 

The Human Adventure 

A biological adventure in the human 
body. The player travels through the car- 
dio\ascular s^Mem, learning Uxrations and 
functions of bodily organs while pursuing 
cancer cells. Grades 4 and up 

Money Master 

A graphics game which sharpens skills 
in counting money and making change 
The correct amount, in a reasonable 
number of coins. bu>-s objects and pays 
tolls. Some reading required 

Educational Software 

Tapes $14.95 ea. Disks $19.95 ea. 

Educational Package Disk 

All three Med S\-stems educational 

programs on one disk $34-95 



Med Systems 

P.O. Box 2674-A 
Chapel Hill, N.C. 27514 
(919)933-1990 



'See LfSI or AOve'liseis on page 386 




Deathmaze 

5000 
Labyrinth 



IXrathmaze 5000 and Labyrinth are _VD 
adventures from the authors who pro- 
duced As>1um One and two word com- 
mands arc combined with incredible 3-D 
graphics to pro\ide adventures beyond 
an\lhing >-ou'\'c ever seen. 

The goal in IX-athmaze is simple. Escape 
from the most maniacaJ, de\ilish. dangerous 
building ever constructed. Alive. 

And Lab^Tinthi' Kill the minotaur However, 
you must find weapons, treasures, and 
knowlege to do so. There's even a graphic 
vending machine! 

The question isn't ">X'ill I sur\ive? ". The 
question is "Will 1 be satisfied with non- 
graphics adventures again' " 

Tapes $14.95 ea. Disks $19-95 ea. 



'M 



GRBASIC 

by Simon Smith 



GRABASIC extends Uvel 11 or DISK 
BASK, to include an easy to use graphics 
command set. A single BASIC; command 
allows the user to draw a line between any 
two pixels on the screen in hundredths of 
a second! <:»K>rdinaies can be chained to 
allow complex figures to be drawn by a 
single BASIC, program line in less than a 
.second! 

CiRBASIC allows the definition of shapes. 
Once defined, a shape can be rotated. 
ACrt/tv/ up ordowTi in size, drawn an\-w1iere 
on the screen in less than a second, and 
can even be drawn totally or partially "off ■ 
the screen in extended space! And all with 
short,. simple BASIC commands! Even mul 
tiple shapes are no problem' 

A new program. CRBASIC FUNCTION 
PLOTTER, allows the plotting of almost 
any function, includir^; polar coordinate 
based figures, paramctic eqiutions, and 
almost any wave form. Features include 
function definition and aut<jmatic screen 
scaling, and printing capacity on Line 
Primer lY. REQUIRES GRBASIC! 

GRBASIC Tape $19.95 

GRBASIC NE\HX>S Disk $24.95 

GRBASIC TRS-DOS Disk $24.95 

GRBASIC Function PlotterTape $14.95 
GRBASIC Function Plotter Disk$19.95 
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Knossos 

by Simon Smith 

"You have jasl been 
' — I thrown into a dark, 
stinking pit . . 



You are isolated and alone in the maze at 
hinossos. Crete Somewliere. a minotaur is 
tracking your scent, Cjn you find the only 
door without bccomitig a minotaurs meal? 

Knossos isa 5-D graphic simulation. Mazes 
are represented by a perspective \iew, as 
though ytju are actitally there. These 
graphics are not the simple, square graphics 
vou have seen before. An entirely new 
representation has been implemented 
giving a true cave-like quality. And like all 
Med Systems .^ D graphics, lightening fast 
screen generation is standard. 

Other features include chalk with which 
to mark the floor for reference points, 
randomly generated mazes, distance 
counters for exit, and monster graphics A 
t\pical game might last 15-20 minutes. 
ITiis is the first truly 3-D arcade (^mc ever 
offered 



Tape $19.95 



Disk $24.95 



Satisfaction Guaranteed 

If for any reason you are not satisfied with 
ourproduets. return your order within 14 
davs for a prompt and cheerful refund. 

Ordering Information 

Orders are processed within five working 
da>s Orders are sent first class within the 
US . ( jnada. and IS, territories. Overseas 
orders please include S5-00 for air post 
Order using coupon below , Please specify 
tape or disk versions, and Model i or 
Mode! HI computer. 



Model lor .Model 111 

TRS.80 Level n 16K. 

unless 

otherwise noicd 



or 



Hctn lspetif>' tape iirdlsk) 



Price 



Shipping and llandliiig 



$1.00 



TOTAL 



Name 
Street. 
( it>_ 



.S«au- 



.Zip. 



<,i)nipuler: 
TR-S^O MtKlel I □ 
Mastercanl [^ 

M< or VISA • 

hxpiraiii)n Date 



Model III Q 

\1SaQ ("heekG 
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News From 

KITCHEN TABIE SOFTWARE, INC. 

'^^ by David Busch 



n 







What do you get when you take 
features from both Basic and 
Cot:ol? A new language called Basbol. 
This innovative high-level language, a 
combination of ANSI 74 Cobol and Dart- 
mauth Basic, has been introduced for the 
TlP^E by Kitchen Table, Inc. 

Regular 80 Microcomputing readers 
will recall that KTI is the United States' 
largest fictitious supplier of space-age 
computer products, Including DROSS- 
DOS 1.1 and the TLS-8E. The latter Is a 
new personal computer that is 100 per- 
cent downward compatible with the 
TRS-80 Model I and III. 

Basbol was one of six new products 
unveiled recently by Kitchen Table at the 
Portage County (Ohio) Home Appliance 
Fair. Also making theiriJ.S. debut were a 
new 5 3/8-lnch disk drive, a double-density 
board and a series of aids designed to 
treat radiation burns stemming from an in- 
itial run of poorly-designed color monitors 
for the TLS-8E. 

Biggest hit of the appliance show, at 
which KTI was the only computer repre- 
sentative, was the Basbol exhibition. The 
new language Is a compiler/interpreter 
that Is used In a unique way. Very fast- 
running object code Is generated for rapid 
testing {although debugging Is impossi- 
ble) and then converted back for run-time 
ooeratlon under the Basbol interpreter. 

KTI spokespersons pointed out that 
this mode eliminates many errors, be- 
cause each line of code Is interpreted 
every tinie a program Is run as a sort of 



double check. At the same time, the com- 
piler (interpreter) prevents unwanted 
tampering with the code by the program- 
mer at the testing stage. 

A Controversy 

One note of controversy surfacing at 
the display was that Basbol is supplied on 
a protected disk. The original disk can be 
backed up only 10 times. It then becomes 
useless for copying purposes. This will 
probably not cause much distress for the 
legitimate user because each backup disk 
also can be duplicated 10 times with no 
problem. 

We suspect this flimsy attempt at pro- 
tecting Bastml was a subterfuge on KTI's 
part to make the new software more at- 
tractive to program pirates. Much of the 
firm's influx of working capital stemmed 
from the widespread copying of DROSS- 
DOS 1.1. Though KTI sold less than 300 
copies of this DOS over the counter, it has 
reaped more than $3 million In profits 
marketing mandatory Zaps to 111,306 
users nationwide. 



"The original disk 

can be bacl<ed up 

only 10 times." 



Our suspicions were confirmed on ex- 
amining the documentation provided for 
Bast>ol. It Is printed in blue ink on a dark 
green paper— alt but unreadable in origi- 
nal form, but eminently legible when pho- 
tocopied. 

Other products also attracted a lot of 
attention. KTI's booth was mobbed during 
exhibit hours. The Da-Glo orange TLS-8E 
computers really stood out among the 
drab Harvest Gold refrigerators and home 
freezers In the surrounding traoths. 

New Drives 

The product that interested me most 
was the 53/8-inch disk drive now available 



for the TLS-8E. These new drives replace 
theunitsoriginally supplied with this com- 
puter. Scuttlebutt has it that KTI was ex- 
periencing delivery problems with the 
original drives— customers would take 
one look at the units and refuse to accept 
delivery. 

Because KTI has been having trouble 
getting Its Sri Lanka factories to adhere to 
strict specifications, the new drives will 
accept either the common S'A-inch mini- 
floppy disks or the occasional 5 3/8-inch 
ones that slip through inspection. The 
KTI-100 units are 96-tracks-per-inch drives 
that can tie run either in single or double 
density. Double-density reliability, using 
the new KTI Doubloon PC board, is said to 
be 100 percent that of the TLS-8E In single- 
density mode. Company spokesmen have 
promised a remedy for this unfortunate 
situation in the near future. 

The KTI-100 drives may be configured 
as fixed disk drives merely by inserting a 
disk and applying furnace ductwork tape 
over the door to seal the unit shut. Quite a 
clever touch. 

Since the Introduction of the TLS-8E, 
TRS-80 owners have written to comment. 
One frequent question is, "So what?" A 
more probing query runs along the lines of 
"How can a TLS-8E benefit me, a proud 
Model III owner?" 

So What? 

My standard answer has been as 
follows: 

• KTI's marketing of the TLS-8E will put 
a great deal of pressure on Tandy to shape 
up. With three or four hundred thousand 
Radio Shack computers already in the 
field, Tandy has great expectations of 
selling peripherals, programming, fuses, 
etc. to this large customer base. Given 
sufficient provocation, it's conceivable 
that a quarter of a million TRS-80 owners 
might decide to switch to TLS-8Es over- 
night. Then where would Tandy be? Back 
selling leather t>elts, that's where! 

• Because most software available for 
the TRS-80 can be used on the TLS-SE, this 
provides a larger customer base for pro- 
grammers, and, correspondingly, more 
software available for the rest of us. In- 
stead of 400,000 Tandy customers, a pro- 
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grammer has a more attractive market of 
400.367 users when TLS-8E owners are 
lumped in. 

• The TLS-8E provides an attractive 
■'second" computer for present TRS-80 
owners. Recent upheavals in the interna- 
tional money market have given the U.S. 
dollar a stronger position when compared 
to Sri Lankan currency. As a result. KTI 
has been able to drop the price of the TLS- 
8E from $1984 for a two-disk 48K system 
down to $179.95. 

Obviously, at that bargain price, many 
TRS-80 Model I or Model III owners are go- 
ing to want a TLS-8E to carry around to 
users' groups, on camping trips, etc., 
v'here its rugged hard-wiring will better 
withstand mistreatment. 



'. . . the remains can be 

rewired to mal<e 

a pretty good 

garage door opener. " 



I've heard of many hobbyists who have 
purchased these machines just as "parts" 
computers. Need a 1 771 cfiip? Rip it out of 
the TLS-8E. Interested in finding out if the 
Z-79A chip would make a good diode? Use 
one of the two piggybacked into every KTI 
computer. After you've experimented to 
your heart's content, the remains can be 
rewired to make a pretty good garage door 
opener. 

I gleaned all these tidbits from brief in- 
terviews with the reclusive founder of 
Kitchen Table Inc., who prefers to remain 
anonymous. We agreed to abide by Scott 
Nolan Hollerith's wishes and pass along 
these interesting comments to you with- 
out any attribution. ■ 





- A.#i8 SOFTWARE 

ULTIMATE SOFTWARE PLAN 

We'll match any advertised price Combine our price protection 

on any item that we carry. And if with the availability of full profes- 

you find a lower price on what you sional support and our automatic 

bought within 30 days of buying update service and you have the 

it, just show us the ad and we II Ultimate Software Plan 
refund the difference. It^ a convenient, uncomplicated, 

It's that simple. logical way to get your software 

^ -s/ (^ [New items or new prices) 

.^;S^_^ CP/M users: soeci'y dis** systems anfl tormals Most tofmats available. 

^*r>&^ MICROSOFT PASCAL 

O ■?/■* U Basic-80 . . S289/Sna Pascal/MT-^ . 1429/530 

AaTinriAi imtei i i^cm^c Basic Comoiler S329/»na Pascal/Z $349/S30 

MedcaUPASSl S849/I40 Fodran-80 »349/(r>a ^ Pascal/UCSD 4 S429/J50 

De'taKPW^? IXTaO Cobo^«° 1%*'\Z ^ '^'^^''^ *'^^^'^ 

A«v«T nc«i^u II o., :,:;,: word PnOCESSING' 

ASrST DESIGN Macro-80 . . JU4/»na ^ Mr.rH'ie^Mrh Ii7fl/$sn 

Prof Time Accounting J549/J40 Ed.t-eo I 84/lna ?SI^r,u«,ri I??9/S?s 

.^ General Sutirouline J269/i40 MuSimp/MuMath J224/*na VT^/wi S259/S66 

►'Application utilities J439/S40 MuL-so-BQ. .. .I174/»na Magic Wand S289/I4S 

COMPLETE BUS. SYSTEMS ORGANIC SOFTWARE Soelt Binder S349/S4S 

Creator. J269/I25 ^TextWriler III. . J111/J25 "OTHER GOODIES" 

SoE!?"^' <™^J!S DateBookll ilt^'ll^ The"astOne 1549/195 

Both 5399/(45 •Milestone 5269/J30 SooerCalC (269/S50 

COMPUTER CONTROL OSBORNE Target S189/J30 

Fabs(B-tree) 5159/120 General Ledger 5 59/520 BSTAM 5149/515 

UltraSortll 5159/525 Acct Rec/Acct Pay 5 59/520 • BSTMS 1149/515 

COMPUTER PATHWAYS Payroll w/Cost 5 59/520 T.ny C S 89/55f 

Pearl Hevel 11 5 99/525 All 3 (129/560 Tiny C Compiler 5229/550 

Pearl (level 2', 5299/540 AH 3 + CBASIC-2 (199/575 CBASlC-2 5 98/520 

■/-PearMtevem 1549/550 PEACHTREE' NevaOaCobOl 5129/(25 

DIGITAL RESEARCH General Ledger 5399/540 -'MicroSiat 1?^^/??? 

rp/M22 Acct Receivable 5399/540 Vedtt 5105/(1L 

NorthStar 5149/525 Acct Payable . .5399/(40 MiniMoOel. . . .(449/550 

TRS-80 Model II (P^TlJrSQwi Pay-oll .5399/(40 StatPaK 44|/540 

Mirfonnti<i S1fi9/S?<i nventory. . . 5399/(40 ^^icro B+ 5229/520 

Crome'^co Slll/t" Surveyo? 5399/540 Raid (224/(35 

PL/1.80 5459/535 Pfooertv Mgt J799/540 Slring/BO S 84/520 

• BT-80 (179/(30 CPA ClienlWrite-up 5799/540 String/80 (source) 5279/508 

Mac 5 85/515 ^PSVersion Add 5129 ^ ISIS II 1199/550 

S" (6i;JlS SOFTWAREWORKS """"8° "69/530 

Z-Sid ( 90/515 AdaDtiCDOSIoCP/M; 1 69/5na 

Tex ( 90/515 Ratlor 5 86/5na ___ 

DeSpool 1 50/510 SOHOGROUP ***^° UNUMITED "^ 

D.M.A. MatchMaker 5 97/520 EasyWriter ..»224 

Ascom.. 5149/(15 Worksheet... (177/(20 Datadex .5349 

DMA-DOS.. 1179/535 -,,„,,„..B,^r. o-*-r..«* °^^^' less 15% 

CBS 5369/545 STRUCTURED SYSTEMS Mirnnsncr 

GRAHAM-DORIAN Analvsi Iirtq/(?5 Fortran 51 7B 

General Ledger (729/(40 K!ght i]?9/«5 Cobol 5499 

Acct Receivable (729/540 QSort 5 89/520 MICROPRO 

Acct Payable 1729/540 „.„„ Wordstar 5269 

Job Costing 5729/540 SUPERSOFT MailMerge 5 99 

Payroll II 1729/540 Diagnostic I 5 49/520 Wordstar /MailMerge 5349 

Inventory II 1729/540 Diagnostic II 5 84/120 Super Sort I 1159 

Payroll. .5493/540 Disk Doctor. . 184/120 dcbb^m*. «,^r™»ni: 

Inventory . .5493/(40 v* Forth (8080 or Z801 5149/530 ^='''P,*'- *"""*,,„ 

Cash Register 1493/(40 Fortran (219/530 Xl?* n . ^i Vl^ 

Apartment Mgt 5493/(40 Fortran w/ Ratlor .... 5289/535 S^ , °^'?r,, ^^ J °„ 

Surveying 5729/540 Other less 10% Desktop'Plan II 5159 

Medical 5729/(40 tCS Vis.term 5129 ■ 

De-^'al (729/(40 GLorARorAPorPay 5 79/(25 ^'X'^J^, !]H ' 

S"f "*'■*'' ,,«„,. *"' *'^^'*^ V^nd/Vteicrtot 5229 

S-Basic !?^2'H^ UNICORN Zorfc 5 34 

SelectorlV 1469/536 ^Wince (149/525 pnArHTRCF- 

MWRO DATA BASE SYSTEMS ^Scr,bWe 5149/525 Sal T^ger 5224/540 

tlOBS J?^?{"n (249/(50 Acct Receivable 5224/(40 

^^R°lorQRSorRTL. lllmTo WHITESMITHS Sr'" llltT<0 

Tropro '''""''° p'-iSrc' ii^o'/l5S KU: llltT.°o 

WordStar 1319/560 -DATABASE" rifil'^Mi^*^'"^* 1329/150 

Customization Notes ( fl9/5na FMS-80 5649545 ^5m Vio u-i^'^au 

Mail-Merge .1109/525 dBASE II 5629/550 ,'tZ>\j,.,r=ir 5 79 

WordStar/Ma-l-Merge 1419/185 Condor II 5899/(50 J.^rXlj^, u' 1,27 

DataSlar 5249/560 Access/80 5749/150 ^^^pactor^ Wll 

^orOMaster 5m/540 B^mS^ l]lt 

^ Infn 1,'^^ * ?1«1S Charles Mann less 15% 

k* Spell Star . . . 5175/540 g-|-Q jgjj ^^^ 

ORDERS ONLY-CALL TOLL FREE VISA • MASTERCHARGE 

1-800-854-2003 ext 823 ■ Calif. 1 -800-522-1500 ext 823 

Overseas— add 510 plus additional postage ■ Add (2 50 postage and handling per each item • California 

residents add 6% sales tax • Allow 2 weeks on checks. CO D. ok • Prices subiect tc change without no'ice 

All Items subject to avaMatiil'iy • 8- — MIgs Trademark 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave Suite 309 • Los Angeles, Ca. 90028 ■ 1213) 666-7677 

Inl 1 TELEX 499-0032 BVHL Attn DiscSott . USA TELEX 194-634 BVHL Attn DiscSoli • "^ 
TWX 910-321-3597 BVHL Attn DiscSoft 



H-See List ol AOverUseis on page 386 
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by Dennis Kitsz 

"/ haye yet to see you name programs 

that are no good. You are culpable in not disseminating 

this information. Must we continue to get ripped off?" 



Q. I recently wrote a Basic program with machine language 
interfaced within it. I found it was faster to save the Basic part 
of the program together with the machine language routines by 
using T-Bug, than to load them separately or to POKE them in. 
The program works perfectly when saved this way except for 
one thing; In order to list the program, it Is necessary to type 
Clear and hit enter before typing LIST. If you don't the computer 
will List the first line and stop. If you run the program and then 
List it, it works fine. 

My questions: Why Is it necessary to type Clear, can you get 
around It, and why is it necessary to type ?MEM after returning 
from some machine-language programs? I know that this 
elimlnateserrors that occur If you don't, but what causes these 
errors in the first place? Also, is there any way to get a Basic 
program to run from a machine language Introduction? I have a 
program written, but the introduction is in machine language. 
Is it possible for the machine language routine to start the Basic 
program running when the introduction is finished? 

Nathan W. Harrington 
Nelson, Nebraska 



A~ Welcome to Software interfacing 101: Getting in and out 
of Basic wtth no help from Fort Worth. Your first question 
brings up an Interesting topic. The Clear subroutine is used 
quite often by Basic— after executing Clear, of course, but also 
after New, CLOAD, and Run. Its purpose is not only to clear out 
all variables (actually this is a consequence of the routine, not 
Its main objective), but also to reset properly all the line 
pointers in the Basic listing. What are line pointers? Basic 
picks Its way through a program listing In two ways— by know- 
ing a line's number (stored In binary) and also by knowing 
ahead of time the memory address of the next response line In 
the program. This memory address Is its "pointer". 

The Clear routine automatically sweeps through the entire 
Basic program, adjusting line pointers according to where It 
finds the ends of lines. Depending on the condition of the Basic 
program when you first saved It to tape using T-Bug, your 
subsequent load attempts may actually be putting it In an area 
different from the one you expect. Hence, there Is an Incorrect 
Of truncated list. In your case, the line pointer that should be 
locating the second line of the program is instead pointing 
back to the first line. Since Run also uses the Clear routine first, 
that explains why the program Is automatically corrected by 
running it. The address of the Clear subroutine, If you wish to 
use it before returning to Basic, is 1E7A hex. 

The reason you have to type ?MEM (or something similar) 
when returning to Basic from some machine language pro- 
grams Is because many programmers took Radio Shack at their 
word. In the original Editor/Assembler manual which so many 
programmers used, return to Basic was listed as address 1A19 
hex. However, thai address works only under certain condi- 
tions; registers have to be loaded and the stack pointer set up 



for re-entry without an ?0M Error message being printed upon 
entering the first Basic command. A belter Basic re-entry point 
Is 06CC hex, which avoids both the ?0M Error message and 
rebooting a disk system. 

Finally, there is indeed a way to get a machine language 
routine to start your Basic program automaticaiiy. Here's the 
order: register HL is loaded with 41 E7, just before the beginning 
of the keyboard Input area. Memory location 41 E8 is filled with 
Run token BE, and location 41 E9 is filled with line terminator 00. 
Next jump to the master command execution routine, 1D5A. 
This is how it looks in assembly language; 



LD 


HL,41E8H 


: 0»t lin« buffsr locatior^ 


LO 


(HU.8EH 


; Place RUN commana loKen 


INC 


HL 


; Move 1o next buHar place 


LD 


(Hlj.00 


; Close out the line bufler 


DEC 


ML 


; Move back In The DuHe' 


DEC 


ML 


; ...lo before the boglnnlnc 


JP 


105AH 


; And bow to master executor 



Q. I've got a Model I Level II 16K machine with a problem. The 
computer runs line until I run this program: 



10 READ A,a,C 

20 PHINTA.B.C 

30 GOTO 10 

40 DATA 1,2,3,4,5,6,7,8,9 



When I run this program I get: 



1 2 3 
1 2 3 
1 2 3 



I've eliminated the Z80 and eight 16K chips by replacing 
them. I've had this computer since 1978 and I've Installed a 
lowercase modification in it. I own T-Bug and TLDLS but I haven't 
figured out how to use them yet. How can I figure out which chip 
is bad? 

SSgt Terry L. Kuns 
APO New York 



A. The bad chip is your Level II ROM. However, don't replace 

It as the electronics aren't bad. There's a bug in the first version 
of Basic. It's too bad you paid for a new 280 and 16K memory to 
find that out. Here's the solution. Whenever you are using any 
program that does tape I/O or performs Read/Data combina- 
tions, be sure this line appears somewhere at the start; POKE 
16553.255. 
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0. I appreciated your January column about the programs 
yoLi have found to be useful. But, I have yet to see you come out 
and specifically name programs that are no good. Surely In 
finding the good stuff, you have found a lot of junk. I feel you are 
culpable in not disseminating this information, especially 
when you have written about the stuff that is good. If the 
authors, such as yourself, who have an audience don't tell us, 
then must we continue to take a chance and continue to get 
ripped off? 

Larry Morgan 

CoHege Place, Washington 



A. This column might seem an unusual place to answer 
Larry's letter, but I've received a lot of mail from TRS-80 users 
who feel they have been burned. Besides, bad software 
qualifies as a TRS-80 problem (see the answer to SSgt Kuns's 
letter above). Okay, there are enormous numbers of programs 
which I believe qualify as junk— some are given away, some are 
sold for outrageous prices, and some appear right in the pages 
of this magazine. Were I to name them, however, I would be 
overwhelmed with mail from people for whom such programs 
serve a valuable purpose. On the other hand, even the best of 
programs aren't good enough for those born of IBM. 

Okay, cop-out, you say. But really, what is a good program? 
Perhaps the thousands of meticulously crafted games of video 
violence which are published and sold? Not for my taste; It 
seems Klingons are only what you want to call them. How 
about compilers and other software with the name Fortran? As 
far as I'm concerned, keep 'em. I use Fortran as much as I use 
my years of high school Latin. And if I ever see another univer- 
sal calendar, hex-decimal converter. Basic word processor, 
telephone dialer, checkbook minder, or alien invader game— I'll 
scream. 

But does that mean I should pan one of these programs and 
damage both the author's credibility and pocketbook? You 
don't know me or any reviewer by more than what we write, and 
that's hardly a keyhole into our likes and dislikes, our 
capabilities and shortcomings. The best helping hand I can 
give is to tell you what I feel is good. Besides, if I believe it's 
awful, I'm probably not going to use it long enough to tell you 
why. 

(For a complete list of software that I hate, please send a self- 
addressed, stamped envelope, together with J5,000, to ) 

Q. I hate to bother you again. I have had a video bug in my '80 
for as long as I've had the computer (D board, bought used a 
year ago). When I have much of the screen whited out, the 
border around the portion of the screen that is not whited out 
warps, as in the sketches In Fig. 1. 





Fig. 1 Warped Screen 

When the entire screen is whited out, it has nice square 
edges, but when a black rectangle appears inside, the white 



outside the twrder warps. It interferes with a Breakthrough 

game I just purchased. 

Men Del Cooper 
New York City 



<^ 



A. The problem Is Inherent In the video monitor, which is lit- 
tle more than a stripped television with repackaging (there are 
dial holes under that TRS-80 insignia) and a little electronic 
tweaking. Different generations of monitors were of different 
quality. Open up the monitor (with It unplugged, of course!) and 
look inside for the vertical circuit board or boards. If you have a 
single vertically mounted board, find resistor R????. Piggy 
back on it a 3,300-ohm. five-percent resistor (orange-orange- 
red-gold). You're all set. If you've got two vertical boards, or you 
want an even better fix. Archbold Electronics (10708 Segovia 
Way, Rancho Cordova, CA 95670) has an excellent video perk- 
up board for about $11, with full instructions. 

By the way, Men Dei's balky power supply (August) turned 
out to be caused by a corroded screw clamping the power tran- 
sistor against the circuit board, causing the voltage to gooff In- 
termittently. Emery paper and a hefty screwdriver cured the 
problem completely. 

Q. Just what is the purpose of the terminating resistors in 
TRS-80 disk drive 21-1160? I have two Radio Shack drives and a 
four-place Radio Shack cabte. I'm planning to get an additional 
non-Radio Shack 40-track drive. All the ads claim that their 
drives are compatible with the TRS-80, but when asked where 
the drive is placed relative to the Radio Shack drives, the adver- 
tisers avoid the question. Can you use the same Radio Shack 
cable for the non-Shack drives? If I wanted to send my Radio 
Shack drives in for repair, could I use the non-Shack drive 
alone? If I use all three together, where do I put the non-Shack 
drive? Do I have to advise the seller of the non-Shack drive that I 
intend to use It with Radio Shack devices? 

Lawrence E. Pyle 
No Return Address 



A. The hardware aspects of combining 35 and 40-track 
drives are not complicated, but let me first explain the purpose 
of those mysterious terminating resistors. Digital electronic 
circuits come in various families to suit electronic and en- 
vironmental needs. When long signal lines are involved, it is 
often wise to use circuits which are activated at the far end of 
the signal path. It Is that kind of "open collector" circuit (see 
August Applications for a fuller explanation) which is used to 
activate the disk drives. In order for this circuit to respond, 
however, the open path must be closed. The termination 
resistors perform that function. One set is enough as too many 
can be damaging. 

If you have a Radio Shack disk drive cable, the drive defini- 
tions (0, 1, 2 and 3) are built into it. Other drives will work fine 
with that cable, but be sure to explain carefully to your vendor 
that you are purchasing a third drive (called drive 2) and wish it 
shipped without terminating resistors and with the select 
jumper properly wired. If you've settled on a good retailer, you 
will have no problem with this. 

If you have to switch drive positions, you might want to 
follow another course. Your most flexible drive should be in 
position 0, because this drive should be able to read all 40 
tracks on the disk. It gets more work to do than the rest in 
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checking directories, reading, saving, formatting, and such. 

It gets tricky now. If you are using TRSDOS, you have essen- 
tially a 35-track DOS which will ignore the extra tracks on your 
BW drive. NEWDOS was one of the first to handle 40-track 
drives, and virtually all new disk oparatlng systems can do that 
and more (LDOS claims it can mtx'n'match). First, decide if you 
wish to access those «klltk>nal five tracks; If so, check 80 
Microcomputing's recent DOS issue and consider an operating 
system other than TRSDOS. When you have obtained It, check 
to make sure your Radio Shack drives are 35-track drives. Many 
were specified as 35-track units to maintain compatibility, but 
are actually 40-track devices. 

If you have only 35-track Radio Shack drives, then I would 
suggest your new 40-track drive be wired for position 0, with the 
terminating resistors Installed, and that you move the 35-track 
Shack drives to positions 1 and 2. Remove the terminating 
resistor package from the Radio Shack drive by unscrewing the 
cover and finding the socketed, integrated circuit-like package 
(usually colored blue and sometimes marked 1E) and pulling It 
out. 

You may also have to rewire the drive-select jumper (position 
IF), though this is unlikely. If the DIP shunt Is intact, leave it 
that way and depend on the Radio Shack cable to make the 
drive selection. If some shunt bars are broken, then you will 
have to reconnect the ones you need, and break the others. Pin 
1 connected to pin 14 selects drive 0; pins 2 and 13 select drive 
1; pins 3 and 12 select drive 2; and pins 4 and 11 select drives. 
Your TRSDOS manual has all the circuit details. 



Updates 

Many readers have asked how Z80 mode zero and mode two 
interrupts could be used with the TRS-80. I thought abou\ the 
problem and came up with a typically mundane solution involv- 
ing piggybacking an Integrated circuit and running a wire or 
two. Everett B. Ogden of Delmar, New York, had a ttetter idea: 



There are at least two easy ways to use these interrupt modes, one of 
wtilch requires no Internal modification a. 

The Internal rriode Is cleaner: It you never Intenij to use the Test Input, cut 
II loose from Z53 pin 4 and conr>ect the INTAK output to that pin. 

Those who don't want to attack their keyboards can tie INTAK to Test on 
the edge connector. At first glance this wouM seam to generate a bus re- 
guest, which has priority over Intampls. Studying the ZSO timing diagrams 
will show tt^at this doesn't happen The Z8D samples the bus request Input 
only al the start of the last T-state of any M cycle [T4 for an M1 cycle). INTAK, 
the combination of M1 of lORQ, andsal the start of T3, solheZSOdoes not 
see It on the BUSRO line. The mtsay part Is that the Teat Input also tri-states 
the address lines. In, Out. RD, WR. RAS, CAS and MUX The INTAK pulse is 
short enough that refreshing Isn't a problem, and if the In. Out. RO and WR 
lines are pulled high. It doesn't matter what happens to the address lines. 
Resistors could be used, but Irl-state buffers are better. 

Special thanks to Mr. Ogden for a remarkable piece of In- 
sight. 

Readers please note that Radio Shack has discontinued the 
National Semiconductor data books. I highly recommend these 
references (especially the TTL and memory books), which are 
available from National Semiconductor (2900 Semiconductor 
Drive, Santa Clara, CA 95051), D)gi-Key Corporation (Hiway 32 
South, Thief River Falls, MN 56701), and other distributors. ■ 



Desperate? Send your questtons on Model I, Levet II, TR&80s 
to: Dsnnis Bathory Kttsz, Roxbury, Vermont 05669 
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TECHNOLOGY 
WCXDRPORATED 



TRS-80® MOD I 
TANDON DISK DRIVE 

comes complete wirh 
power supply, chassis, 
ONLY 
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• Mod III Internal disk drive kit: 

A new low cosr inrernoi disl'^ Kir is ovolloble ro expand 
your sroroge copobiliry. Wirh rhis kir now, you moy 
expend your 16K TR580q Mod ill compurer up ro 
four MTi 40 rrack disk drives, giving you 1 75,000 
byres of sroroge per drive for a rorol of 700K byres. 

The kir includes one 40 rrock disk drive conrroller 
16Kmemory, power supply, cobles mounnng hard- 
wore and insrollorion documenrarion 
40 track Duo! head 40 rrack 

Drive #1 *695 Drive #1 ^779 

Drive #2 *279 Drive #3 *389 

60 rrock Dual head 80 rrack 

Drive #1 *769 Drive #1 *929 

Drive #2 399 Drive #2 *569 

• 4MHz Mod III Speedup enchoncement 

Doubles rhe processing speed of rhe Mod 
III sysrems. 

With compurer purchase: 1 49 

Retrofit M99 

SOFTWARE SALE 

Integrated Business Packoge *199 

Disk & System Diagnostic Mod Itt *49 

Memory Kir C16K) ., M3 

Disk Heod Cleaner Mod III . *24.95 

Diskettes Verbatim (10) herd ring 5" ss *30 

. TRS-60® Mode) III DOS 

and Manual 524.95 



^2B 




MasterCard 



MICROCOMPUTER ^^^m 
TECHNOLOGY INC. 

3304 W. MACARTHUR. 

SANTA ANA. CA 92704 

• (714) 979-9923 • 




us PRICES 

F O D SANTA ANA 

CALIFORNIA 



TR5-6G i5 Q Hpq sre'ec; I'Qde-^o' < ■;' !\o i :: ^noc'' 
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M.T.I. 

MOD III 
PLUS 



Now You Con 
Save S500 over 

comporoble models. 



• Wehoveroken rhe bo'.K: l6KMo<:Jel lil€?xponded rfie 
r-nertxxv ff> ^^^ ^nd added our MTl Double Orniity 
Dual Disk Drive v/hierr-' Our sy!>fem ,<, t-Hy compor'bie 
wch Rodio Shock DOS and peripherals 



M998 



MOD lll/EXPANDED 



Some as at)Qve bur las double srorooe copooTV 
C70Q storage) Your choice of 2 chjoi heoded 40 
ttod^ dfive*. ex 2 sirvqip hieoded 80 'fock disl* drives 

$2499 

MOD 111/280 

Ouf iorgesi MOD III approximarely 1 5 rrx-ga byres 
o( sTOfoge utilizes 2 ouol heoded 60 I'ocK dcxjbie 
density disJ^ drives Complete wirh monDoK ond 
pro*essiOf>ol opetoimg sysrei-n Microsysrems DOS 
pius 3 

*2799 




K^28 



MICROCOMPUTER 

TECHNOLOGY INC. 

3004 W. MACARTHUR, 

SANTA ANA, CA 92704 

• (714) 979-9923 • 



MasterCard 



US PHjCHi 

f O 3 !»ANTA AiNA 

OyjFOf^lA 

OlAlt.{\ INQUf^lES iNVITlD 




MTl MOD III SALES, 

PARTS & SERVICE CENTERS 

-INDEPENDENTS DEALERS 

SAjS )Ob£ CA . 40e ^40 '/ab 

SANIACRUZCA 408 427 063C 

;ANCA5T^^ CA flOS 942 5 /d / 

-Ha'\^L.E CA 7-/. J56:)-85 

CJXNARD CA 605 466 Sfl3 / 

V^N at&O CA 7M2754240 

riMPt AZ C02 &3Q C.'>40 

PHOENIX AZ 002 ?4d V ;:ic 

TUCSON AZ 602 323 939' 

StEAfXA VI5IA AZ.... 602 436 2479 

DfNVTR CO 303696077^ 

CHtYINNt WY X7&32 91J: 

JIXAS 214 247 6679 

N G S DAKOTA 701 S94 !ii6 74 

M,'DM5T 6:8 345 -iOCfl 

X5PUN WO 417 761 ■ .'46 

aEVELAND OH 2*6779-034" 

MALWfE OH 419893-4266 



GFOf^GA 

fLCRjDA 

TROY NY 

GROTON a 

OVTfXStAb 
R£P O 30Llh AFRKA 
AU51RA.A 



404 449 8962 

30ij9cC9'.9^ 
5l827364ii 
203 445 5 1 0C 

3:'' 45-1047 
. 03 67 / 6940 



- SffB L IS! Of Adve'iise's on page 386 



80 Microcomputing. October 1981 • 93 



NEW PRODUCTS 



Edited by Janet Fiderio 



Little Big Lisp 



S.A.T. Preparation Series Programs for Beginners 



Little Big Lisp, for the Model I, is avail- 
able from the Department of Computer 
and Information Sciences at the Univer- 
sity of Oregon. 

Lisp includes the Lisp interpreter, a 
Lisp compiler, a trace package for moni- 
toring the execution of programs, a Lisp 
structure editor, the RLISP programming 
language which provides a high level lan- 
guage interface to Lisp which resembles 
Algol and Pascal, and some sample pro- 
grams in Lisp and RLISP. 

The system requires a minimum of 32K 
and is available on a 5 1/4-inch disk com- 
plete with documentation for $30. Com- 
plete source listings are available on mag- 
netic tape for $100. For more information 
contact Jed Marti, Department of Com- 
puter and Information Science, University 
of Oregon, Eugene, OR 97403. 
Reader Service ^^'^67 



Color RAM/ 
EPROM Cartridge 



The CMEMORY plug-in cartridge for the 
Color Computer can supply the user with 
up to 8K of continuous memory which can 
be divided into any combination of 2K 
blocks of RAM Memory and/or 2176 
EPROMS. This product allows you to save 
frequently used utilities or games in easy- 
to-use cartridges. 

CMEMORY uses the unused address 
space SCOOO to $E000, normally used for 
plug-in game cartridges. By adding a 
jumper, the computer can be set to auto- 
matically execute a program in EPROM 
whenever the Reset button is hit. 

The CMEMORY cartridge sells without 
any memory for $24.95. 2K RAM chips are 
available for $19.95 each, 2K 2716 
EPROMs for $14, or you can use your own 
memory. Available from Micro-Labs, Inc., 
902 Pinecrest, Richardson, TX 75080, (214) 
235^15. 
Reader Service .^SSS 



Krell Software has expanded its Col- 
lege Board S.A.T. Preparation Series from 
five to 25 programs. It now includes sec- 
tions on word relationships, vocabulary, 
sentence completion, reading compre- 
hension and mathematics. 

The programs are based on past exami- 
nations and present material of the same 
level of difficulty and in the same form as 
used In the S.A.T.S. 

These programs are available for the 
TRS-80 for $299.95, from Krell Software, 21 
Millbrook Dr., Stony Brook, NY 1 1790, (516) 
751-5139. 
Reader Service ►^331 



Color Computer Game 



Packet Man, a popular arcade game, is 
now available for the TRS-80 Color Com- 
puter. 

Written in machine code, this game pro- 
vides the graphics of the Color Computer 
with the speed of machine code. 

The cost of the program is $24.95. A 
Level II 16K machine is required. Inquiries 
should be sent to American Business 
Computers, 118 South Mill St., Pryor, OK 
74361, (918) 82&4844. 
Reader Service .--333 




Programs for Beginners on the TRS-80 
is written for the computer novice. Written 
by Fred Blechman and published by the 
Hayden Book Company, the book pro- 
vides instruction through 21 programs 
that run on a Model I and Model III TRS-80. 

Programs Include topics concerning 
business, t>ookkeeping, calculating loan 
interest, mortgage payments, investment 
evaluation, and others. The four appen- 
dices include a video display worksheet, 
cassette-loading time charts for Level I 
and II, and a complete description, sche- 
matic and parts list for an audio/visual 
control box. 

This 150 page book costs $8.95 from 
Hayden Publishing Co., Inc., 50 Essex St., 
Rochelle Park, NJ 07662, (201) 843-0550. 
Reader Service *-162 



D-CAT from Novation 



The D-CAT from Novation is a directly 
coupled modem that is FCC approved for 
handset jack connection with any modu- 
lar phone. It operates with either single or 
multi-line phones without the need for 
adapters. 

D-CAT transmits data over telephone 
networks allowing one computer or termi- 
nal to talk to another. The direct connect 
feature eliminates distortion and lost- 
data problems. 

It is available for $199 from Novation, 
18664 Oxnard St., Tarzana, CA, 91356, 
(213) 996-5060. 
Reader Service »^349 



Lazy Writer 



The CMEMORY Cartridge 



Lazy Writer, a word processing system, 
is available in a new Model ill version and 
an enhanced Model I version 1.8. 

The program is capable of reverse 
(hanging) indents, superscripts and sub- 
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scripts, offsetting text to the right, precise 
printing from cursor position, and printing 
chained files- 

Lazy Writer also provides a communlca- 

lions program that works with a mcxiem. 
The Model III version has an enhanced 
communications package, allowing 
stored characters to be sent with a single 
key stroke for logons, provides a "iocal" 
echo, and will receive a full eight bytes. 

Lazy Writer is priced at $125 (or the 
Model I and $175 tor the Model ill. It is dis- 
tributed by Soft Sector Marketing, 6250 
Middtebelt Rd., Garden City, Ml 48135, 
(313)425 4025, 
Reader Service p^23G 



QSO Log for 

Ham Radio Operators 



QSO Log, from Mantiattan Software is 

directed at amateur radio operators. 

When a call sign is heard on the air the 
operator using QSO Log enters the sign 
into the computer. QSO Log will list call, 
name, QTH, date, time. band, and notes 
on conversation and on the contact's 
equipment. 

The program dumps to tape, loads to 
tape, and allows on-screen review of all 
QSO records. It also allows updating, edit- 
ing and deletion of entries and printout. 

The cassette version (16K or 32K} will 
run on the Model i or III and is priced at 
$14.95. For additional information contact 
Manhattan Software. P.O. Box 1063, 
Woodland Hills. CA 91365, (213) 704^95. 
Reader Service ►^ 339 



Agricultural Software 



Two new programs available from Agri- 
cultural Software Consultants, require a 
Model [ or Model 111 with one disk drive, 
32K memory and an 80-column printer. 

The first program, FEEDDATA. is de- 
Signed for teed mills and nutritionists, it 
stores and retrieves feed data on disk and 
calculates the composition and nutrition- 
al value of any combination of these 
feeds, FEEDDATA is priced at $60. 

MIXIT-2 is designed for teed mills, teed 
lots, dairymen, and poultrymen to deter- 
mine the "least cost" for any feed mix and 
more. MIXIT-2 is priced at $200. 

For more information on these two pro- 
grams, contact Agriculture Software Con- 
sultants Inc., 1706 Santa Fe, Kingsville, TX 
76363,(5121595-1937. 
Reader Service ,.^348 




Magnetic Media Preservers 



Shield your Magnetic Media 



Durable metal cases which protect 

magnetic media from magnetic fields that 
cause degradation and erasure are now 
available. 

These metal cases are magnetic media 
preservers designed for carrying or stor- 
ing. Models include cases for the 5 1/4 inch 
and 8 inch flexible disks. A cassette tape 
preserver is also available. 

For more information contact the Mag- 
netic Shield Division of Perfection Mica 
Company. 740 N. Thomas Dr., Benville, IL 
60106. (910) 766-7800. 
Reader Service ,^341 



The Boss 



The Boss is an accounting software 

package which has integrated all ac- 
counting functions into one program. This 
software offers capabilities such as com- 
prehensive financial ratio analysis, loan 
payment calculations, amortization sche- 
dules, depreciation schedules and state- 
ment ot changes in financial position. 

It has combined accounts payable, ac- 
counts receivable and general ledger so 
they can be accessed at any time during 
the program run. The Boss runs under 
CP/M. 

For more information on this account- 
ing management tool, contact Lifeboat 
Associates, 1651 Third Ave.. NY, NY 
10028, (212) 860-0300. The BosS iS priced 
at $2,495. 
Reader Service ^350 



Exam 

Preparation Programs 



A series of Competency Exam Prepara- 
tion Programs are available from Krell Soft- 
ware 

These programs consist of simulated ex- 
am modules, a diagnostic package, and a 
complete set of instructional programs. 
They are designed to teach concepts and 
operations, provide drill and practice, and 
to assess achievement levels. The series 
provides a curriculum encompassing 
mathematical, reading and writing instruc- 
tion. 

The CEPS are available in two software 
formats: the National Proficiency Series, 
and the NY State Regents Competency 
Test Preparation Series. Both are priced at 
$1,299 For more information contact Krell 
Software. 21 MUlbrook Dr., Stony Brook. NY 
11790,(516)751-5139. 
Reader Service -^332 



Snapp II Extended Basic 



Snapp II Extended Basic is written in 

machine language to increase execution 
speed. Extensions are fully integrated into 
Model II Basic and require no user 
memory or disk space. 

Snapp II includes a cross-reference 
ability, the ability to display and print pro- 
gram variables, a program line renumber- 
ing ability, a cross reference lactlity for 
key words or character strings, and the 
ability to compress a program to the ab^ 
solute minimum. 

It IS available tor the Model (I for S200 
and the Model IM for $125, from Snapp- 
ware Inc.. 3719 Manteil, Cincinnati. OH 
45236. (800) 543-462y. 
Reader Service >^185 




The Boss 
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NEW PRODUCTS 




The Anadex Dual Mode WP-6000 

The Anadex Dual 
Mode WP-6000 Printer 



The W.>-6000 dot-matrix serial printer 
from Anadex provides high speed opera- 
tion and is capable of 150 characters per 
second In the letter-quality mode and up 
to 500 cps in the data processing mode. 

This printer features an 18-needle, dot- 
matrix print head consisting of two ver- 
tical rows of nine needles slightly offset 
from each other in the vertical dimension. 
Graphics capability Is also provided. The 
WP-6000 can print a variety of foreign 
fonts and features bi-directional, logic- 
seeking operation, standard interfaces of 
RS-232, current loop or parallel (Centron- 
ics), and friction feed with an optional ad- 
justable tractor feed. 

The WP-6000 costs under $1,800 and is 
available from Anadex, Inc.. 9825 DeSoto 
Ave., Chatsworth. CA 91331. 
Reader Service .^346 



TurboDOS 



TurboDOS is a new disk operating sys- 
tem for the Model II, compatible with Digi- 
tal Research's CP/M, version 2.x. 

TurtraDOS features file management 
facilities, a sophisticated buffer manager, 
a reentrant file manager, automatic print 
spooling, a command language interpre- 
ter, and a command file processor. Other 
capabilities include an extensive set of 
utility programs, system date and time 
functions, standard communications 
channel interface, and more. 

A special introductory price of $195 for 
the spooling version Is being offered from 
Data-RX, Inc., 686 Lighthouse Ave., 
Montery. CA 93W0, (408) 37S-2775. 
Reader Sen/ice ^342 



Mailing List System 



Precision Prototypes has announced 
an improved TRS-80 (Model I or III) mailing 
list system to use with large lists. Fea- 
tures include maintenance of all disks in 
continuous alphabetic or zip order, high 
speed sort and disk retrieval, and up to 
4640 (for Model III) addresses on-line. Two 
80-track drives are required. 

The system is specially geared to use 
advertising statistics in selecting and 
purging names for print outs. 

Hardware requirements are 32K. two 
disk drives, and a printer. The system is 
available for $69.95 from Precision Proto- 
types, 410 E. Boca, Refugio, TX 78377. A 
documentation manual is available separ- 
ately for $3.95. 
Reader Service *^344 



Card Reader Interface 



Chatsworth Data Corporation has de- 
veloped a special interface to the TRS-80 
Model III for its MR 500 and QMR 500 card 
readers. The Interface plugs into the I/O 
bus jack of the Model III. 

A software driver and Interface that 
enables the user to input data is supplied 
with their reader. The MR 500 reader util- 
izes an electric current technique for 
reading soft pencil marks; the OMR 500 is 
an opticle reader. 

Educational applications for the TRS-60 
include grading tests, attendance and 
grade reporting, and teaching program- 
ming. Business applications for the read- 
er include inventory, labor distribution 
and time card recording. 

For more information on this product 
contact Chatsworth Data Corporation, 
20710 Lassen St., Chatsworth. CA 91311. 
Reader Service »^164 
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The Chatsworth Card Reader Interface 



The Ramlok Memory Protection System 

Memory Protection System 



Ramlok is a computer equipment pro- 
tection system that conditions supply line 
voltage and supplies a safe operating en- 
vironment for electronic equipment, espe- 
cially computer memory circuits. 

Ramlok filters line voltage with a dual T 
section RFI filter. It ensures correct volt- 
age limits and provides proper filtering to 
suppress RFI line noise and an uninter- 
ruptable power supply capability. The us- 
er provides the battery/inverter, Ramlok 
provides regulation control, filtering, bat- 
tery charger, failure indication and multi- 
ple circuit and the power distribution 
panel for equipment connection. 

It Is sold for $495, from Ladco Develop- 
ment Co.. Inc., P.O. Box 464, Clean, NY 
14760,(716)372-0168. 
Reader Service ^160 



The RAM 
Communication Area 



The RAM Communication Area is a 
booklet which is intended for the TRS-80 
computer owner. 

It is a concise description of the Level II 
memory locations from 16384-17128 (4000- 
42E8). The booklet also contains an article 
dealing with number conversions. 

RCA is priced at $4.50 and is available 
from ABS Suppliers. P.O. Box 8297, Ann 
Arbor. Ml 48107, (313) 971-1404. 
Reader Sen/ice »-'335 



Loan 

Amortization Schedule 



This program allows the user to print a 
schedule of loan repayments along with 
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monthly and yearly principal and Interest 
data. One of the options automatically ad- 
justs the pay date away from weekends 
and holidays. A built-in calendar ensures 
accuracy to the year 2099. 

The program is available for $19.95 on 
tape for the TRS^ Models I, II, and III. 
Contact Precision Prototypes, 410 E. 
Roca, Refugio. TX 78377. 
Reader Service •^347 



Color Computer Newsletter 



Rainbow is a newsletter devoted solely 
to owners of the Color Computer and will 
be available every month. 

A typical issue of Rainbow will contain 
feature stories, hints and tips on opera- 
tion, sample programs and reviews of Col- 
or Computer-associated hardware and 
software. 

Annual subscriptions sell for $12 and 
can be ordered through Rainbow, 5803 
Timber Ridge Drive, Prospect, KY 40059. 
Reader Service i^328 



Football Scouting 



The Football Scouting Report is a 
system of programs that analyze running. 
passing, and kicking plays. They run on a 
Model I or a Model III with 32K, one disk 
drive, and a printer. 

A team can be scouted up to five times 
before running a composite analysis, or 
each game can be analyzed separately. 
The package consists of eight programs 
that are suitable for both college and high 
school use. They are available from Preci- 
sion Prototypes, 410 E. Roca, Refugio, TX 
78377 for $89.95. 
Reader Service »'340 



Isaac Newton 



Isaac Newton is the name of an educa- 
tional game which challenges players to 
assemble evidence in support of particu- 
lar laws of nature. 

It is an inductive game allowing players 
to intervene actively in determining it new 
Information supplied by the computer 
conforms to the laws of nature in ques- 
tion. 

Isaac Newton is available for the 
TRS-eO for $24.95 from Krell Software, 21 
Millbrook Dr., Stony Brook. NY 1 1790, (516) 
751-5139. 
Reader Service .^330 




K-8 Math Cross-Reterence 

K-8 Math Cross Reference 



Radio Shack is publishing the K-3 Math 
Cross Reference to be used in conjunc- 
tion with their computer-based education- 
al programs for kindergarten through 
eighth grade. 

This teachers' reference coordinates 
the lessons in the K-8 math program for 
the Model I and Model III to materials in 
six of the most commonly used elemen- 
tary math textbooks. 

The price of this reference manual is 
$4.95 from Radio Shack, 1800 One Tandy 
Center, Fort Worth, TX 76102. 
Reader Service ^^181 

300 Baud Modem 



Kesa Company has Introduced the 
OataSpeak O/A-300, a compact, low cost, 
300 baud modem that connects directly to 
the telephone line with FCC part 68. 

The unit, featuring orignate and answer 
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modes, RS232 interface, and lest mode, 
measures 3.5 inch by 4.5 inch by 1.5 inch. 
A unique "off hook" light alerts the user 
the phone line Is in use. Power is supplied 
by a wall mounted power converter. Con- 
nection to the phone line and the user's 
telephone Is by standard modular RJ-11C 
jacks. 

New phase-lock loop LSI circuitry 
allows the DataSpeak modem to deliver 
such performance at the price of $129. For 
more information contact Kesa Company, 
774 San Miguel Ave, Sunnyvale, CA 94086, 
(408) 746-2738. 
Reader Service *^163 



The Documenter 



The Documenter is a new programming 
utility that will flowchart a Basic program 

and provide the user with a branct map. 
The Documenter will run on the Model I 
and the Model III. 

This utility Is an aid in error detection 
and will flowchart any program written in 
standard Radio Shack Basic Level 11 or 
Disk Basic. The Documenter Is available 
in 16K, 32K, or 48K tape versions for 
$19.95 or a 48K disk version for $29.95. For 
additional information contact P80NUr 
Software, P.O. Box 490, Lilburn, GA 30247, 
(404) 469-0056. 
Reader Service ••'334 



Supersnappx 



Dafa Sf>eak 



A fast In-memory sort routine which of- 
fers additions to the Model II Basic Inter- 
preter Is available from Snappware. 

Supersnappx Is a collection of expan- 
sions to Basic giving added capabilities to 
Model II. These capabilities include three 
kinds of PEEKs, three kmds of POKEs, an 
improved data retrieval function, an 
elapsed time calculator, a function that 
states how many file blocks have been 
used, and more. 

This product Is available for $100 from 
Snappware, 3719 Mantell, Cincinnati, OH 
45236, (800) 54^4628. 
Reader Senrice .•'327 



Game Played to NFL Rules 



Super Micro Pro Football is a game 
played according to NFL rules. It includes 
a wide range of fast, animated graphics. 
There are 16 offensive and seven defen- 
sive formations from which to choose. As 
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Do you LOVE the programs in the 

Encyclopedia for the TRS-80* 

but HATE all the keyboarding aggravation? 

Well, Wayne Green Books has a 
solution for you so put an end to 
your love/hate relationship. 

How? 

By a special arrangement with Instant Software™ Wayne Green 
Books can now provide you with the programs contained in each 
volume of the Encyclopedia for the TRS-80' on a special series of 
cassettes called Encyclopedia Loader. Your Encyclopedia 
provides the essential documentation but now you'll be able to 
load the programs instantly. 

With Encyclopedia Loader you'll save hours of keyboarding time. 

The aggravating search for typos is eliminated with Encyclopedia 
Loader. 

And you'll save money by taking advantage of this special 
introductory offer. 

With your cassette loaded, you're ready to determine the future of 
the United States as its President, or mail out those invoices for 
your business, or sword fight the dragons, or use any one of the 
other programs contained in the Encyclopedia Loader for Volume 
1 of the Encyclopedia for the TRS-80. 

First you must fill out and return this order blank or the card 
provided. 



V 



Encyclopedia Loader for 
Volume 1 of Encyclopedia 
for the TRS-80 includes: 

BUSINESS 

Down the Road 
After the Goldrush 
Business Forms: The Invoice 
How Much I merest ''—The 
Rule o( 78 

EDUCATION 

Measuring Instructional 
Effectiveness with the 
TRS-80 

Using a TRS-80 to Tabulate 
Student Ratings 

GAMES 

Swofds and Sotcery li 
The President Decides 
Babe Ruth Is Alive and Well 

and Hitting Home Runs on 

My TRS-80 

GRAPHICS 

Four Graphics Methods 
TRSpjrograph 
Adventures in Roseland 

HOME APPLICATIONS 

Car Pool 

Bio-Bars: Biofhylhms in Bar 
Graph Form 

INTERFACE 

TTY Interface 



Encyclopedia Loader 

YES, I want to end this aggravating love/hate relationship. Send the ENCYCLOPEDIA 
LOADER for Volume 1 of ENCYCLOPEDIA for the TRS-80* which would normally cost 
$14.95 at the Special Introductory Price of $12.95 

— ELB00110 Encyclopedia Loader for Volume 1 $12.95** 

■■Please enclose 11,50 pel cassette tor snipping and hanoimg Allow 4-6 *eeks for delivery 

_Paymont ancloswf Pl»as» charge to my VISA Mastareard _ AmEx 

Ca"** — — - MC Intarbankit Etoina 

NaiTM — __^_^_^__. -„_^_^^ 

Addrass . _^__ _^ „-___^ 

City ~^~^ 



Signature 



.Stata. 



-Zip- 



'THSflO IS a Irademark ol TafKty Corp 



BO Mtcracompullng, Pina SI.. Pat«rt>oniugh. NH 03458 



aoia 
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The Newest Peripheral 
for your Microcomputer 

The Encyclopedia for the TRS-80* 



^ 



V\ liats tht; kf\- to RfttiiiB the most from your TRS-fiOy No. 
it JMi t di-sk drivis or printers or joystirk".. It's infortiialion . 
Without a c-ontimial supply of iiiforniulioii and ideas, ynu 
cant reuli/.f llit- full pnleilliul of the THS-80. 

Nou , ytm'd think that the 150 pages of articles piibhshed in 
80 Microcomputing each month w oiild satisfv even the most 
voracious of TRS-Rfl u.sers. lint nol You've a^sked for even 
more informatiiml 

Our ^e^JxnlM.■ to the clamor for additional information is 
the Encyclopedia for the TRS-80, a ten-vohmie reference 
work thai is absoluteK packed with protiratns and articles 
carefully Mlected to help you make tlie most of vour 
micntconipiiter. You can consider the \olumei of the Encv- 
cluptMlia to be an extension of the documentation that came 
with your TRS-Wl. The articles and projjrams will Ir' similar 
In tliose found in 80 Microcomputing. Each h(H)k is full of 
material on protframniin^; techniques, ba-iiness, nanus, 
tutorials, education, utilities, interfacinfi \ou name it. 

I'nlike consenlinnal encvclnijctlias. the EiK-yclopedia for 
the TRS-80 will ne\er become stale or out of date. That's 
Ix-causc the volumes of the Enc>'clopedia are Iteinn iwnd 
one-at-a-time, over a period of months. This meaas that each 
ne\\ \olume will reflect the latest developments and 
disetiverifs, making this a living enc\ clojx-dia for TRS-80 
users. 

Volume 1 wa-s out in July. Volume 2 will be shipped in 
September. Each volume will contain approximately 270 
paces of solid information no advertising. Here's a sample 
of what's included in Volume I: 



The Encyclopedia for tlie TRS-80 is a\ailable in Iw.i i-di- 
tioas. The dehixcCOI.L.lXTOR'S EDITION IS a handsome 
Creen and black hardcover \ olume. w itb the title stani[x.-d in 
Hold and a lolorful protective dust jacket pruvidi-d. These 
diuahle volumes are pcrfix-t for school and librar\ use and 
make a handsome addition to your [X"rM>nal lihrarv. The\ are 
available for $I**.1I,5 [>er volume. Also availaltle is the more 
ec<innniieai softcover edition. This contains all the intoriiia- 
tiuri ill the hardcover edition, but at asavinjisof ()ver-15'; , It 
IS ruj^gedK Ixnind hir heavy ase and has an attractive nnvn, 
ivon,-, and nold cover. Available for $10.9,'i |x'r volume. Both 
editions are inaneasy-to-read()" x 9" format which is[K'rfeet 
Ixtund lo remain flat when opeiiL-d. 
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Four Graphics Melluxls — Improved 
techniques for dealing with the 
TRS-SO's low resolution graph- 
iCT.. 

TTY Interface— Build an interface 
hookup a Teletype to a TRS-HO 

The President Decides A thrilling 
sinmlation that lets you make de- 
cisioas as if you were I'resident of 
the United States 

Measure Instructional Effectiveness 
- Manv programs teach or tutor: 
this one heliw determine the ef- 
fectiveness of the lessons. 

The Invoice— A program for small 
businesses which produces cus- 
tom invoices. 

Punch Out Your Disks — Double 
>onr disk storage in sescn easy 
steps 



T'T r-cyclopedia for th- -"- --* 

YES. piciise ressfve for me a r^omnipin set ot ttie tiral tan voiumns ot !he Encyclopedia for the TBS 80 

I wrtn' "(1 go (ir?;t n^ss sc sfnfl mr inrfP'ilXP hanlbnund COLLFCTORS EDITION & 1199.W value \t>i 
S164.00 postpaid. A Int.d s.tvKiq', nl SM °f\ over 'hn smgl" vnlump prirpi lO'fJi'i F NHIOni 
Snifl rpplhp Riu" cr'la'" si^'h.o.'" '"JiIkiii thn-irfinfi in'n'malinn .il n siihsianiiallv '^wnr pn'-p, aii09.50 
value tof $83.00 postpaid* A -r/a Sd.-ngs'if S^SQSov" iho siiigi" vommp- [jnr n' iD'tlnt FNSOflOi 

YES I WftN"' TO START MV LNCVCl OPtDI A ( OLLf CTION NOW 

Vf--iJmr 1 nl Ihe 'Jpiij.o fiarrtrovir GDI LECTOR'S EDITION (ENfllOll S19 95" 

Voijmo I nl IhP Sotlrnvcr pildlfin IEN80811 SIO 95" " \ 

Vciiiinip ?nt thp fir! ]io harlr nvpr CDI I FCTOR'S EDITION (ENB102I (19 95"" 

Volurie 3 n( Ihn S"(trnvpr frti'irn IFN808?) SIO 95' " 

■ "iP-drfsit "'« 'OS" Si W t"" v-tt-.'iip f'l' ■itupiHfij snd hundi'oa All volun'ps *il' ^c ^h-cpp'" UPS t ino lompiele 
sitPBt aOdf^ss IS pioviflert, oiruinvtsc ship'iont •>, tiy 4m rlns-i tiook faip i Allow 7 3 week*: 'or delivery 
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Pa^m^nX anelos^d 
Card« „ 

Nama 

Address 

City 

Signature 



Pitase charge to my VISA _ Mastercard 

MC InterbankH Expires 



AmEx 



Stat9^ 



.^p. 



BO MIcrocoin puling. Pliw St.. Pelert»n>ugh, NH 03458 
•TRi*80 Is a traOPmArlt '>( Tan'lv r^rp 
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**5PECIAL**SPECIAL** 

TftS-60 ADD ON DKIVES 

IMMEDIATE DELIVEKY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOGBLE SIDED $485.00 

INCLUDES 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5** FD*s 



I 



2 INTERFACE, INC ^2« 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE I'.CCEPTED 



NEW PRODUCTS 



KEEPIT 3.0 

Enhanrr)> Lovrl II Bai>ir 
Vritirn hy Di-nniH Balhory kil»7. 

KFFPIT prrfiinnK lh*>»e funrlionf: 

• SiiiglcsN'ji .1 Basil' |)rnf|;rai)i 

• H(—ft Memory Size from Basir 

• Save a runniiic program wilh \jriatili-> 

• Save niai'liiiic code ik u m<-(iiiir\ blmk 

• Hrslorc an arndeiilally ilt-lftril (iriifjnirri 

• Ohscrvr X rhan(!«- momory locations 

kKKPIT alM) fralurrs: 

Ke\lHiani dclnjun'«', aiiiliblf bifp, and autu- 
rf|n*at! KKKPIT 3.0 i>> HTiltdi in rtia<liirif 
langiia|(i' anil rcNtdfs in li-ss than I .(XK) li> tcs nf 
high memory tDTASM source code is supplied 
so iheuser can relocate KEEI'IT toany comrii- 
lent toialion. 

HoH to (irdtT KKFPIT: 

I^vpI II UMTS will wn«<lt>r hoH th«-% t'ver 
li^rd withtHil il! KKKPIT 3.0 is <-<lix'm<Iy 
valuable a^ a lime and fruMralion sa^rr! To 
receive your ropy, fend your name, add reAn 
and juNt S«>.9.'i l»: 

*li;k -'^ I80f, Ada Street 

aivTai'^l?* Un^inii. Ml ismo 

m i^ ^<t\W Ph. 5 1 7 / W5 -03 1 V 

• V. ' Of W7 -3358 



( t.Mj (t M/itilrr (.kitffse ndd 4% . 
COD niidti.M. 
Add r.i* fnr f ir\l (lasi Delivers. 
All orders ihipprd within 24 hours' 



the game progresses, the computer's 
team adjusts its offer^slve and defensive 
strategy according to the game situation. 
Cumulative game statistics are updated 
after each play. 

Versions are available for the Model I or 
III. on tape or disk. 16K and up. Prices start 
at $12.95. For more information contact 
Micro Pro Systems, Rte. 2. Box 533, Gum- 
ming. GA 30130. (404) B87-6814. 
Reader Service t^ies 

"ABC" Switching Units 



Giltronix has introduced a new group of 
"ABC" switching units which allow the 
sharing of a common device such as a 
printer or terminal t>etween two computers. 

The units include the GRS-232-S8AB 
($99) and the GRS-232-S24AB ($106). The 
-S8AB switches the eight lines of the 
RS232 interface pins and the -S24AB 
switches all 24 lines of the RS232 inter- 
face- 

The units can be ordered with these op- 
tions: monitoring capability, dual units, 
and a rack mounting option. 

For more information contact Giltronix 
Inc., Microcomputer Systems and Ser- 
vices, 450 San Antonio Rd., Suite 44, Palo 
Alto. CA 94306, (415) 493-1300. 
Reader Service ►'IBS 




The "ABC" Switching Units 

Design Grids 



A full line of computer forms-design 
grids are available from The House of 
Grids. These grids are helpful to forms de- 
signers and computer programmers to 
check the accuracy of form proofs. 

The grids have an overall size of 
12-inches by 18-inches and have the fol- 
lowing features: numbered print posi- 
tions, split print position indicators, and 
standard size indicators for depth of 
forms. 

The grids are available on stable based 



film for $40 each or on a paper pad of 50 
for $9.50 from The House of Grids, 135 E. 
York St., Akron. OH 44310, (216) 376-3974. 
Reader Service »^180 

Fast Sort 



Fast Sort is a short Basic program with 
embedded machine code. When merged 
by disk with a user's own TRS-80, Model I 
or Model III Basic program, it will allow 
sons of strings (alphabetizing], integers, 
and single or double-precision numbers. 
Ascending or descending order is also se- 
lectable. 

Typical sort times are 50 seconds for 
5000 integers and eight seconds for 1000 
double precision numbers. For more infor- 
mation contact Precision Prototypes, 410 
E. Roca, Refugio, TX 78377, (512)526-4758. 
Fast Sort sells for $19.95. 
Reader Service *'343 



Basic Compiler 



Radio Shack is offering a Basic compil- 
er for the Model I and Model III computers 
with 48K and dual disk. This system is a 
business-oriented Basic Intended to be 
used as a development package for new 
software. 

RSBasic includes three programs: 
RSBasic compiles programs; BEDIT is the 
editor for Basic source programs; and 
RUNBASIC executes compiled Basic pro- 
grams. All three are provided on 5 1/4-inch 
floppy disks. 

For more information contact Radio 
Shack, 1800 One Tandy Center. Fort 
Worth, TX 76102. 
Reader Service ^166 

Adjustable 
Microcomputer Table 



Smith System Manufacturing has de- 
signed a new microcomputer table which 
adapts to both the operator and the com- 
puter. 

The 16 inch deep keyboard surface ad- 
justs vertically on one inch centers from 
24 to 28 Inches high. The 16 inch deep 
monitor surface is fixed at 30 inches high. 
Both tops have radiused corners and soft 
edges for safety, and are available in 
either a 30 or 42 inch width. The table has 
a cantilever design for easy access. 

For more information, contact Smith 
System Manufacturing, P.O. Box 43515, 
St Paul. MN 55164, (612) 63&-3560. 
Reader Service »'345 
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TRS-80PROGRAMS 
SUPER SOFTWARE AT SUPER PRICES 



THE ULTIMATE DISK-OPERATING SYSTEM 

LDOS™ 

A completely documented new generation of 
operating system for the TRS-80. Far superior to 
any on the market, it is a totally Independent 
device system, capable of device linking, routing, 
setting, and filtering. LDOS will support 5" and 8" 
floppies, single/double density, single/double 
sided, and up to 80 tracks. Full customer sen/ice 
provided with a toll free 800 number. Excellent 
documentation in a tab indexed manual {over250 
pages). Call or send for more information today. 
Available for Model I 

orm onlyS169.00 

LDOS™ is a product of 
Logical systems Inc. 



ALSO AVAILABLE 

EDAS 3.5 Model I and in. . . $79.00 

EDAS 5.0 Model II $179.00 

Host Model II was $199.00 

now $99.00 




SdldCtiC 



MAILING SYSTEMS 
MAIL/FILE - SERIES II 




MAILING SYSTEMS 

are then completed later In a "batch mode The 
System comes complete with extensive 

documentation and ongoing support 

Contact Galactic Software for detailed 

specifications for your exact needs. Available 

only for the TRS-80 Model 11. 

BUSINESS SYSTEMS 

INVENTORY MASTER SYSTEM 

A program to free your 
needs, handling up to 2700 
items. With todays market, 
keeping on hand only what 
yourdemand calls for is reason 
enough to let your TRS-80 
accurately and effectively take 
care of your inventory. Always 
know what tostock and when to 
stock it. Have a multitude of 
reports at your finger tips. This 
system has many features which 
were modeled after a main frame 
system of large capacity. More infor- 
mation available upon request. 



software 



ltd. 



NEW Series ii Mail/File has all of 

the outstanding features of the 

original Series I Mail/File, PLUS 

many additional qualities which 

again will Sf»^ari(fards for 

this type<»?7SffiF*'Word 

processo^MwjJaffhput editor, 

fast sortin^i^ftnd fabulous 

editing i^S^ilities are a 

few of its features. Name 

and ZIP code are under 

constant sort. Series II is 

compatable with Series I data files. 

Model I system will handle up to 600 names. 

Model ill system will handle up to 1200 names. 

Either system available for only si 59.00 

Also available for the Model ii $199.00 

Handling up to 2500 names per file 

MASS/MAIL SUBSCRIPTION SYSTEM 

AVAILABLE FOR MODEL II. 
THE ULTIMATE IN MAILING SYSTEMS 

"I think the system wilt stand the test of time -..it is probably 

the most sophisticatea system around for the micros today 

Mike Schmidt (BDlTORl 80-US Jan/Feb pg. 94 

Galactlc's Mass/Mail System was designed with 
the needs of the large mailing list in mind. This 
system has capabilities of handling up to 10,500 
records, with access times of less than 1 5 seconds 
and usual access of about one second. All adds, 
deletes and edits are instant for the operator and 



11520 North port Washington Road 
Mequon. Wisconsin 53092 



Model I version Just $159.00 

Model III version Just $259.00 

ALSO AVAILABLE . . . 

For the MODEL I or III 

STOCK MARKET MONITOR 



I 



cassette version $89.00 

Disic version $99.00 

ULTRA-TREK GAME 

can you master this trip 
through the galaxies? As 

commander, will you be 

able to keep the Enterprise 

and its crew en route and on patrol? Can you 

destroy the hostile base? Order today. 



Send me [he loll awing: 






a LDOS Moael 1 


SISOOD 


n INVENTORY MASTER Model 1 SI 69.00 


D LDOS Model til 


. SIBSOO 


n INVENTORY MASTER Mode! 111. S259 00 


n EDAS 3.5 Model 1 


S79.0O 


n STOCK MARKET MONITOR Model 1 


n EDftS 3.5 Model III . . .. 


.. S79 00 


cassplle . . . S89 00 


r.l EDAS 5.0 Model II 


,5179 00 


drsk 599.00 


n HDST Model II 


. . S99 00 


□ STOCK MARKET MONITOR Model III 


n MAIL/FILE II Model 1 


SI 59.00 


cassetre . SS9.00 


n MAIl/FILE II Model III 


. S159.00 


disk S99 00 


n MAIL/FILE 11 Model II 


. S199 00 


n ULTRA TREK Model 1 . S1995 


n INFD ON MASS/MAIL MODEL 11 




n ULTRA TREK Model III 519 95 



G I WOULD LIKE MORE INFORMATION ON THE FOLLOWING 
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Mail to. SdldCtiC 

soft^A«^e ltd. 

Cant wait? call 
414/241-8030 
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1 1520 N. Port WastiingtonRd 
- Meguon, Wl 53092 



TRS-80 A Trademark Of Tandy Corp 



Intelligence . . . Through the Ages 



The splendid achievements of 
the intellect, like the soul, are 
everlasting. 

Sallust (86-34 B.C.) 

The controlling intelligence 
understands its own nature, and 
what it does, and whereon it 
works. 

Marcus Aurelius (A.D. 121-180) 

The intellectual world is divided 
into two classes — dilettantes, on 
the one hand, and pedants on the 
other. 

Miguel De Unamuno (1864-1936) 

Thought is the labor of the 
intellect, reverie is its 
pleasure. 

Victor Hugo (1802-1885) 



The voice of the intellect is a soft one, but 
it does not rest until it has gained a 
hearing . . . This is one of the few points in 
which one may be optimistic about the 
future of mankind. 

Sigmund Freud (1856-1939) 



Intellect is invisible to the 
man who has none. 

Schopenhauer (1788-1860) 





ILi 




Every intellectual 

product must be 

judged from the point 

of view of the age 

and the people in 

which it was 

produced. 

Walter Pater 

, . , , . (1839-1894) 

humanity i love you because 

when you're hard up you pawn your 

intelligence to buy a drink. 

e.e.cummings (1894-1962) 

A test of first rate intelligence is the ability to hold 
two opposed ideas in the mind at the same time, 
and still retain the ability to function. 

F. Scott Fitzgerald (1896-1940) 

The fact that a man knows right from 
wrong proves his intellectual superiority to 
the other creatures; but the fact that he can 
do wrong proves his moral inferiority to 
any creature that cannot. 

Mark Twain (1835-1910) 



We should not pretend to 
understand the world only by 
the intellect; we apprehend it 
just as much by feeling. 

Carl Gustav Jung (1875-1961) 



Intelligence ... is the faculty 

of making artificial objects, 
especially tools, to make tools. 

Henri Bergson (1859-1941) 



Artificial Intelligence 

Technology and 

The Search for Self 



by Chris Brown 

Technical Editor 



In the early 1950s, two seemingly unre- 
lated events took place. The first was 
the airing of an episode of the popular 
television series, "I Love Lucy," in which 
the iovable redhead and her zany com- 
panion Ethel found themseives working 
on a high speed bon-bon production line. 
The second was the publication of a sci- 
entific paper by Alan Turing titled "Comput- 
ing Machinery and Intelligence. " Worlds 
apart in audience and approach, these 
events were, none-the-less, related. 
Turing's paper posed, for the first time, the 
philosophical question — "can machines 
think?" The "I Love Lucy" episode illustrat- 
ed the essence of intelligence and thinking 
that Turing was forcing the scientific com- 
munity to examine. 

Turing's thesis, that machines could in- 
deed think, quickly drew fire from 
philosophers who eagerly mired his theory 
in arguments over semantics. What, they 
demanded, do you mean by "thinking?" 
What is a machine? How is intelligence 
defined? Though they posed questions 
worthy of consideration, the philosopher's 
linguistic nitpicking did nothing to further 
the cause of scientific Inquiry. It did 
alienate the early Artificial Intelligence 
community to the point of inaudibility, 
however. 



Semantics were of no concern to Lucy 
and Ethel. Ail they knew was that in their 
immediate environment that damn con- 
veyor belt was supplying bon-bons faster 
than they could pack them into boxes. So, 
in a desperate attempt to keep their jobs, 
they began to eat every tenth bon-bon. 
Then, as the belt speeded up, they ate 
every fifth, every third and eventually, 
every other. Finally, with cheeks bulging 
like October chipmunks, they ate every 
bon-bon that came down that line. Though 
feeling increasingly queasy, they had done 
what no machine had yet been able to do. 
They had adjusted their behavior to their 
surroundings in accordance with the 
demands of changing conditions. They 
had adapted and in doing so displayed the 
intelligence that Alan Turing believed com- 
puters would one day be capable of. 



"Ask those involved to 

define what they are 

researching. . . You'll 

get as many definitions 

as you have 

researchers." 



Technologically, we have come a long 
way since the days of "I Love Lucy" and 
Alan Turing. We still don't have computers 
that perform as well as Lucy and Ethel, 
however. Philosophers and artificial in- 
telligence researchers are still arguing 
over semantics and methodology. And 



most important, Alan Turing's question, 
'can machines think?" has yet to receive a 
satisfactory answer. 

What It Is 

What exactly is artificial intelligence (Al)? 
In essence it is a method by which we can 
learn about the nature of knowledge and 
the nature of man. Ironically, the most 
functional definition of Al lies with the 
man who originally broached the issue, 
Alan Turing. His Turing Test is not con- 
cerned with the methods used to produce 
intelligence but, rather, with the end 
results. In a modern day version of the Tur- 
ing Test a human subject is presented with 
a keyboard and a video monitor which ha 
uses to converse with two unknown 
sources of information. One of these 
sources is a machine, the other a human. 
Though the subject is aware he is dealing 
with one man and one machine, he does 
not know which is which. By interrogating 
his sources, the subject must determine 
which is the machine. If he falls to do so 
better than 51 percent of the time, the 
machine can be said to have successfully 
simulated human intelligence. So far, no 
machines have passed this acid test. In- 
creasing numbers are coming close, 
however. 

Ask the people involved in the research 
to define what exactly it is they are re- 
searching and you will get as many defini- 
tions as you have researchers. The fact is 
that Al is a vague field that encompasses 
the least understood aspects of human ex- 
istence, conscious and unconscious 
thought. Patrick Winston, an Al veteran 
and member of M.l.T.'s artificial in- 
telligence group, defines artificial in- 
telligence research as "the study of ideas 
which enable computers to do the things 
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that make people seem intelligent." Philip 
Jackson, a textbook author and At re- 
searcher for Xerox offers, "Al is the ability 
of machines to do the things that people 
would say requires intelligence." Abe 
Lockman, an Al researcher and professor 
of computer science at Rutgers University 
says, "Al involves the creation of systems 
that simulate intelligent human functions 
and that handle I/O in a manner similar to 
the way humans do." The salient feature of 
each of these definitions is the simula- 
tion of intelligent human thought by a 
machine. 

The Goals of Al 

it is possible to get a clearer Idea of 
what Al is about by examining Its goals. In 
a succinct statement of purpose, M.l.T.'s 
Patrick Winston Identifies Af's goals as 
follows: "The central goals of Al are to 
make computers more useful and to 
understand the principles which make in- 
telligence possible." The first goal, mak- 
ing computers more useful, is the easier of 
the two to attain and many of the tech- 
niques developed during the course of Al 
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research are routinely used in both pro- 
gramming and hardware design today. 
Some of these include the structures for 
languages like Lisp and Logo and the 
methods of expert systems analysis. 

The second goal of artificial intelligence, 
understanding the principles of intelli- 
gence, is not so easily achieved and has 
much broader ramifications. In Al's con- 
tinuing search for a mental model that 
closely resembles the human thought 
process, many theories have come and 
gone. At first it was believed that the 
study of problem solving, pattern recogni- 
tion and theorem proving would yield the 
most accurate model of human thinking. 
Over the past ten years, however, the em- 
phasis has shifted away from these areas. 
Today, many researchers feel that the key 
to unlocking the secrets of human cogni- 
tion lies in discovering how we process lan- 
guage. In university laboratories across the 
country projects are underway to determine 
just that. 

Programs That Read 
At Yale, computer programs with names 



like Sam (Script Applier Mechanism), 
Frump (Fast Reading and Understanding 
Memory Program), Pam {Plan Applier 
Mechanism) and Politics have been 
developed in efforts to validate theories 
about language processing. 

Sam Is a program that understands 
stories that have been written according to 
scripts (data structures that describe 
situations in certain ways). Sam Is capable 
of creating its own concepts of what has 
happened in a story by parsing sentences 
and drawing inferences. It can provide 
paraphrased versions of stories that are 
longer than the original by elaborating on 
what it has learned from its reading. 

Frump is a similar but more flexible pro- 
gram. Frump skims a newspaper from 
beginning to end looking for subjects In 
which It Is interested. Once it finds a rele- 
vant subject. It applies the rules of a gram- 
mar to determine the information it wants 
to know. Frump is a fast program by Al 
standards and its paraphrased summaries 
read like the copy of newspaper night shift 
rewriters. In addition. Frump is virtually 
language independent. It is easily able to 

—Reader Service fof (aclf>(j page ^568-* 



If you've ever missed a deadline, 
forgollen an appointment, wailed on late 
delrveries or lost track of projects, put 
ANGEL to work for you. 

ANGEL is the new software proKram 
for microcomputers that helps organize 
and manaxe your business flow. It's 
strictly business. 

FAST AND EASY 

With a series of simple one-line entries, 
ANGEL can schedule every phase of your 
projects and appointments, however 
simple Of complex. Then, each day. ANGEL 
will give you a run-down of every action 
that needs to be taken to complete all your 
work on lime, whether it's due tomorrow or 
ten years from now. 

angel's large capacity allows you to 
log and (rack up to i,OOU individual 
projects at once. With ANGEL's help, you 
can eliminate reams of files and hours 
upon hours of costly business delays and 
missed deadlines. 

SPEAKS SIMPLE ENGLISH 

ANGEL speaks plain English. No 
computer language to memorize, no codes 
to decipher. Sit down and talk to il. face- 
to-face. If ANGEL doesn't understand, it will 
respond in plain English. If you make 
a program error, ANGEL tells you how to 
correct your mistake through the use of 
a built-in video manual. ANGEL is so easy 
to use, you can turn it iin and enter iO items 
in less than five minutes. 

WORKS FOR ANY BUSINESS 

You can custom-program ANGEL for 
any business operation - from oil 
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exploration to insurance, home 
construction to retail sales. 

With a memory capacity that's limited 
only by the capacity of your disk storage, 
ANGEL tracks multiple projects for busy 
executives. The disk comes with an 
easy -to-underst and printed manual, to 
back up the built-in set of instructions 
of the program itself. 

In addition, a data-proof safeguard 
system will not let you accidentally 
erase entries, and a special password 
code iif your choice allows you to keep 
confidential files. 

Put ANGEL to work for you loday- 
You'll never lose track of your work 
flow again. 

ANGEL is recommended for use with 
any disk-based system that has 48k 
memory or more. It will operate wilh^ 
any CP/M*-based system and the 
TRS 80" (Model I, II or III). The 



program comes on standard SV4-or 
8-inch disk, with storage sleeve. 
Now only $295. 

ANGEL is available only through Time 
Management Software. It is not sold 
through any outlets at any price. Order the 
complete program for belter business by 
calling one of our toll-free numbers or by 
returning the order blank below. 

Call now loll-free to order (Ask for 
operator b02) 

1-800-824-7888 (nationwide, 
except California, Alaska and Hawaii) 

1-800-852-7777 (in California) 

1-800-824-7919 (in Alaska and 
^^ Hawaii) 

****** r 
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Yes ... I need ANGEL to work for me, to organize my business with ultimate ease 
and efficiency. 

NAME 

ADDRESS 

CITY STATi ZIP 

I have enclosed S295 to avoid delays, fhlpping and handling charges. 10-D1 

Check D Money Order 

n C.O.D. (If delivery address is diftercnt than atmve, please specify) 

Please specify one: D S)4-hKh disk O Unch disk 

Please specify one: D CP/M* Operating System r, TRSDOS** Operating System 

Price includes lax, handling and shipping (except C.O.D. orders) 



TIME 
.MANAGEMENT 
I SOFi WARJ" 

123 E. Br(»adway 

P.O. Box 727 

Cushing, Oklahoma 74023 

' KrK»l<-K'd iMdcnuik <il DtKHjl Rv»ait.h, Inc. 
** Rpx>«t<^Ml Ir«drin4rh ot tMidy Corp. 



i^& 



qnGGL 







THELEAST 



YOUCAIUBUY. 



I'p lo 77 high-qualily programs 
tor TRS-80. only SlO 95 



NewRasic— expands disk basic 

Now configure yourBasicto do any or 
all of the following: 

• Convert rleclmal tn hpi. and vtcp ver.sa, provide 
rharaoter reprpspnfahon Jir each, nr Ihp hPi dpr 
number of any rhararlpr ■ Blinking cursor 

• Repealkpy* Audible key entry (pach key makes 
a sound)* directory command from Basic • Disk 
load and disk run cominand file • Graphic 
functions, inrludlng drawing blocks, lines, rilling- 
In blocks • Lowercase driver • PSZ32 driver 
(LPRlNT-l.MST) • Call function, hex order 
number will eirerute subroulme • Spooler and 
despooler • Print loRBle, LPRINTS your video 
displays Find (locate 3 Basic command or strinE) 
Hi>dularSotTvareA*soc;Up«$I9.9S, dtsk):9 95 



Level Tl Tapes 



Tiny' Pascal runs on any 1 6K Level H ■system, in- 
cludes the programming structiirini; capal)llitlc^ 
or full Pascal, but not data structuring 

Able to compile Z-80 machiine code, programs nm 
about SXfasterthanl.Pvel II Basic — graphics run 
eight times faster' Requires useotT-BuK lor Tape 
7) and ETASM 
Tape a, Peoplp's Pa,sc^l S19 as 



Tape 1, 31 huis , eriii 
Tape 2, 77 progra 



prog,-; 



110 9^ 



from Osborne hook So 



Common Basic Pro(;r»ms 
Tape 5, 24 buis , ertu , game_progs. 
Tape 7, 31 buis., etlu.. game progs. 
Tape B, 40, inc. 4X tape speedup 
Tape 9, 25 buis., ertu , game progs. 
Tape 10, income tai, checks act 
Peopli-'s Taxman, fillsout all form 



$ I US 
JIO 95 
$10.9^ 
Jin 95 
$10.95 
tlO.95 
J39 95 



PASPATCH 



PasPatch, Tape 6P, makes Tandy tiny 
Pascal a powerful disk system! 

Modular Software Assoc *^g g^ 

SuperPIMS— People's Database 

PIMS has been greatly speeded up and .simplified, 
with machine-language sorts, key dehounre, 
optional automatic lowercase (no keying, no 
hardware mod) on lal>els or reports. Up to 20 
fields, limited by 240-rharactpr mailmum per 
record Easy to revise, adrl records, spill or 
merge files, sum or average any fields 
Customized for tape, tape 4 disk, Zoom, TC8 Poor 
Man's Floppy, B17, Stringy Floppy — all on one 
tape! As mailing lat>els program, easily manage .s 
20,000 list. C!E does' Advancert labels module to 
come, J24.95, making system most powerful 
mailer available! (25.90 on disk 

progrtm (CIE) $19.95 (121.15 CA) 

book, details uses (CIE) 111195 ($12.67 CA) 

NEW: Send for free monthly catalog 

10% DISCOUNT 
when ordering 3 items 
totaling $50 or more 

Arid SI shipping per order 

Games for color TRS-80 

Modular Software Assoc, tape contains 

• PONG-80 ■ ENTRAP • DEMOLISH (like 
Breakout) • TRAFFIC [Grand Prix auto race] 

• BETA TREK space game • SHUTTLE (rocket 
ship game). $19.95 (J20 55 CA) 

Word Processing Newsletter 

Want to really USE your computer? Then word 
processing is lor you Let your computer show you 
how much easier writing can tw. 

Learn about the new 510 cps 'non-daisy' that at 
lOX daisy speed gives correspondence quality, at 
les.s than twice the cost. Too slow'' The really fast 
guys are coming. How about 30 llxM lypespt- 
quality documents per minute? Maybe you couiri 
use the same 'printer' as a copier 

How about an Inexpensive (1169) magnetic card 
reader-writer that would let you input mail 
addresses, letter paragraphs, even small 
programs? 

Read aboil tall this and more In Low Cost Word 
Processing, the only newsletter about word 
processing using your personal computer. Just 
$15 for 13 issues 

All orders charge card, check or m.o 

Calif, residents add 6 pet tax Dealer Inq invited 

Overseis, add $1.50 per tape postage 



COMPUTER INFORMATION EXCHANGE 

BoK 159 „ 

. San Luis Rey CA 92068 
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''What do you mean by "thinking?" What 
is a machine? How is inteiligence defined? 
The phiiosopher's nitpici<ing dip nothing . . ." 



paraphrase in English, Spanish and Rus- 
sian, depending on which grammar is in its 
database. 

Hawks and Doves 

Politics is a program that uses a 
database of political philosophy to answer 
hypothetical questions regarding the 
motives behind (and consequences of) cer- 
tain political actions. It accepts input in 
the form of questions, examines its data 
base and supplies answers in tersely 
worded sentences that would be much too 
concise for most State Department 
spokesmen. When loaded with its conser- 
vative/hawl< database and asked why the 
Russians had massed troops on the 
Czechoslovakian frontier, the program 
answered, "Because Russia thinks it can 
take control by sending troops in," When 
asked what Russia would do next, it 
answered, "Order its troops in." When 
asked what the U.S. could do about the 
situation, it suggested. "Intervene militar- 
ily." Loading in the Nberal/dove database 
would have resulted in different answers. 
Politics is used to supply scenarios of 
hypothetical situations according to the 
tenets of various political philosophies. At 
present, programs similar to Politics are 
helping decision makers examine the con- 
sequences of their actions before things 
have gone too far. 

In all these programs, researchers have 
been able to get machines to interpret 
language and draw intelligent conclu- 
sions. In fields like medicine and geology, 
programs such as these have already per- 
formed at the level of human specialists 
and experts. Whether helping to diagnose 
bacteriologic infections from a myriad of 
symptoms (MYCIN) or predicting the loca- 
tion of natural resources from existing 
geologic conditions (Prospector), the 
value of such programs to society is ob- 
vious. This is the practical aspect of the 
often esoteric field of artificial in- 
telligence. On a larger scale, Al can help 
philosophers, psychologists and linguists 
in their work by allowing the integrated 
thought processes each of these people 
study to be dissected, examined and 
mimicked by machines. 

Conservative Outlook 

For Abe Lockman and other research- 
ers, Al is a promise of the future. Unfor- 
tunately, over-zealous members of the Al 
community have damaged their own credi- 
bility by making promises they have not 
yet been able to keep. Today, most Al peo- 



ple are more conservative in outlook than 
they were ten years ago. They prefer to em- 
phasize the small, but real, gains being 
made rather than speculate on what might 
be. 

Lockman told 80 Microcomputing, 
"Many grandiose claims have been made 
about what Al has done. In my opinion, we 
have not come very far. Sure, we have pro- 
grams that sit up and bark in toy domains, 
but the real problem is how generalizable 
are these theories of intelligence?" In his 
Al-oriented computer department at Rut- 
gers, Lockman's 700 students, many of 
whom are interested in careers in artificial 
intelligence, are being taught the prin- 
ciples of natural language processing. 

Lockman says, "In my research I'm look- 
ing for the mechanism that allows a 
human to instantly get full understanding 
of a text. I believe that allot our knowledge 
of the world is brought to bear on each 
word we read. I want to know how that 
knowledge is organized and, especially, 
how it is accessed by our brains." 
Lockman admits that he is a long way from 
the answers to these questions. In fact, he 
hasn't yet used the computer to validate 
his theories. He candidly admits, "I 
haven't programmed my theories yet 
because, unfortunately, I'm able to 
disprove most of them on paper." 

When asked about the future of Al, 
Lockman was skeptical. "I see no major 
breakthroughs on the horizon. We will con- 
tinue to build our limited systems and 
basically do more of the same." On a more 
optimistic note Lockman indicated that 
some progress will occur due to the in- 
creasing cooperation between the tradi- 
tionally warring camps of Al theorists, 
philosophers, linguists and psychologists, 
all of whom are taking an increased in- 
terest in each other's work. 

Turning To Science 

The most intriguing thing about Al 
research is that it is an investigation of 
self: how we think, why we interpret as we 
do, and ultimately, who we are. Man has 
been perplexed by his existence since 
earliest history and has used myth, 
religion and magic to explain his existen- 
tial dilemma. In our post-industrial, high- 
technology age we are increasingly turn- 
ing to science for answers to the timeless 
questions of existence. By providing us 
with aclearer understanding of the human 
mental process, artificial intelligence 
research may eventually lead us to a better 
understanding of self. ■ 

Reader Servico (or facing page r'S&T-- 



stop playing games 
and get organized. 



You spent up to S/'.'jOO on coniputer iMidwdit to in^keyouf 
pefsoridi life edsiet You didn't spend it just for fun 

Now there's GUARDIAN — the first microcomputer software 
program that can ifuly organize your life with ultitrwte ease 
and speed. 

GUARDIAN IS the only program that lets you make a single 
one-line data entry to remind you ... for the rest of your life . . . 
of birthdays, oil changes, appointments and any other recurring 
events. Once an item and its frequency of recurrence is entered, 
you'll never have to worry atxiut remembering again Each 
morning you flip a switch, enter your personal code, and gel an 
instant readout of everything you need to accomplish that day 

Plainly speaking, theie's no need for special codes or computer 
language with GUARDIAN . you talk to tt. and it talks right back 
in plain English GUARDIAN even tells you how to enter data st id 
correct errors with step-by-step on-line instruction through its 
built-in video display manual fhe printed manual that comes 
with GUARDIAN is also complete and easy- to- understand. 

Years Ahead 

GUARDIAN lets you organize everything you need to do 
today for years to come Tf)e single-line entries are easy to 
fTidke, and can even be set to flag you several days in 
advance of the event 

Advance To Go 

GUARDIAN IS programmed to automatically advance 
and schedule appointments, PTA meetings, vacation 
schedules tax deadlines and other 
activities indefinitely until you 

5 1 cancel the entry GUARDIAN'S 
internal calendar adjusts itself 
from year to year 

Protects Your Interests 

GUARDIAN IS as easy to 
use as pencil and paper, but its memory can't 
be lost or erased by accident System failure 
and opeialor error .nie protected by automatic 
file closure. Password protection keeps 
your files confidential 

GUARDIAN'S disk has the storage capacity 
to organize up to ^^,000 separate events for 
200 people at the same time. 

rYes ... I want to put GUARDIAN to work for me, to receive 
I maximum efficiency and ease m organizing my personal life 
I with my microcomputer lO-DI 

■ NAMF _„_____ 



The GUARDIAN prograni is recommended fot use with any 
stjft disk drive system with 4Sk memory or mure, and operates 
on any CP/M' -based system ui the fRS 80" (fVIodel I, II or 
III) Programs are available on standard 5W- or S-irxh disk, with 
storage sleeve $119.95. 

GUARDIAN IS available directly from Time Management 
Software, and is not sold through any store, catalog or other 
source To order GUARDIAN tall one of our toll-free numbers 
or return the order blnnk [.>eluw. 

Call now toll free to order |Ask (or operator 601) 

1 -800-824-7888 (nationwide, except California. 
Alaska and Hawai') 

1 -800-852-7777 fm California) 

1 -800-824-791 9 Im Alaska and Hawaii) 




ADDRESS „ 
CITY 



.STATE. 



I have enclosed S II 9.95 to avoid delays and handling crunjes 

n Check n Money Order Pnw irKtjcJes ax, handling aid ihippirxi (extepi c 

D C O D [If delivery acJdressis different than ^\x)ve. please spec 



I Rease 5)e6V cne D S!*-lncti disk Q S-mchdisk 

AJte ds e specify one □ CP/f^A" OperdUroSy^icm OtrsooS*' Operatin^ystern ^1 

TIME 

MANAGEMENT'""""'"''^ 
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PO Box /Z/ 

Cushifiy. Oklahoma 740ii 



GENERAL 



Once man's world was the center of the universe. 

Then came Copernican astronomy. . . 

Once man was a being apart from the rest of creation. 

Then came Darwin and evolution. . . 

Once man understood his own behavior. 

Then came Freudian psychoanalysis. . . 



And Now 

Artificial 

Intelligence 



Harold Nelson 

Kilobaud Microcomputing Technical Editor 




There have aiways been those who view 
such developments as blows to man's 
humanity, his uniqueness and superiority. 
But, by and large, such developments in 
man's understanding of himself have been 
irresistible, beyond suppression. We seem 
to yearn to more fully understand what we 
are. Artificial Intelligence (Al) may be the 
latest field of research to give us new tools 
to extend that understanding. Getting a feel 
for what Al is alt about could lead to some 
astonishing insights. 

Roast Mules 

Can you rearrange the letters of roast 
mules to form one fairly common English 
word? (It's something most first graders 
can do.) 

Once you solve that puzzle, can you write 
a program that can reproduce what you 
have done? Can you write a program that 
can solve the puzzle? 

It might seem that once we have solved it, 
writing the program should be easy. In prin- 
ciple (which is something quite different 
from practice), it might be. 

One way to solve a puzzle like this would 
be to list all permutations of the letters, 
then pick out the word (I think there is only 
one). Even If we started to seriously con- 
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sider this method, the fact that there are 
3,628,800 such permutations would soon 
cause us to abandon it. We would t>e more 
likely to start arranging the letters into 
familiar groupings— syllables— then rear- 
range these until we found the word. That 
still is not as easy as it sounds. But when 
we do this something else is occurring. 
There are quite a number of combinations 
(such as oaue and ssrtim) that we Just do 
not consider— that we reject "without even 
thinking about it." Certain combinations 
(i.e., sounds) do not occur in our language, 
so we don't even think alMut them. Others 
do, and we work with those. What usually 
happens is that we chance upon one or two 
of the proper syllables and the solution 
seems to jump out at us. 

How do we write a program that can do 
that? What is it that we do that makes the 
solution seem to jump out once we get 
close? How then do we write a program 
capable of doing something we do when 
we're not even sure how we do it? No one 
said the program had to get the solution in 
the very same way we did. And, of course, if 
we could get a program to solve the puzzle, 
it might help us to understand more fully 
what it was we did when we solved it. 

If all that's a little confusing, it may be 
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because we have quickly, albeit via a trivial 
example, arrived at the kinds of issues that 
are at the heart of much of the current Al 
research. Let's take a look at some pro- 
ducts of Al research— some programs that, 
in the words of MIT's Marvin Minsky, "do 
things that would require intelligence if 
done by men." Actually, some of them only 
seem to require intelligence at first. 

EMza 

This "psychiatric interviewer" program 
(some versions are called Doctor), written 
by Joseph Weizenbaum, has been around 
for over 15 years. It is worth a little con- 
sideration, if for no other reason, because it 
has "fooled" some people. After an en- 
counter with the program (difficult as it may 
be to believe), some people who had a suffi- 
cient willing suspension of disbelief or 
naivete were convinced the program had 
really understood them. 

If you "play along", you can produce a 
fairly realistic dialogue with the program. 
For example (the program's lines are in 
Italics): 

Hello. Tell me your problem. 

I don't want to. 

Why do you suppose you don't want to? 

Readei Service tor (acing paga ^568— 
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We re Ottering You Our 
Company Secret. 

Us a brand riuw American-designed 
proqram generator Ihat can eliminate tlie 
nt-ecl to spend thousands of dollars on 
specialtv proc)rams 

And, It s Available Today. 

It s tlie miriocompiittir program that 
Time Management Software is using to 
write Its own prolesstonal software 



all the programs you'll evfsr need We 
call It GENESIS. You II call it incredible. 



on the market that GENESIS can t create 

GENESIS IS the next generation 
Designed by a team of doc torat- level 
programmers. GENESIS runs on all 
CP/M" 2 XX systems, using compiled 
PL/ 1-80' 

The code generated by GENESIS is 
fasi and elficioni, and this new produds 
capacity to code difficult algontlints is 
virtually unlimited 

The speed of code generation itsoH 
IS lilorally awesome Preliminary tests 
have indicated an ability tt) generate 
elficioni code at a rate well in excess ol 
lour lines per second Clearly. GENESIS 
can write months of code in a matter 
of minutes. 

Wilti You As Arctiilect, Genesis 
IsTtie Ultimate Master Builder. 

Word processing, accounting 
procedures, statistical analysis, time 
management studios GENESIS can 
write .-my functions you could possibly 
need Naturally, complolo program 
changes are quickly and easily made. 

You speak plain American Englisti to 
GENESIS - no code, no difficult intro- 
ductory language to memorize Tho only 
lime you spend witli GENESIS is in decid- 
ing lhi> specifications of your program 



Simply Stated, Genesis Is The 
Best Microcomputer Program 
Generator In The World. 

Period. 

Genesis comes with online docu- 
mentation, as well as a complete concise 
printed manual, wrilten by a professional 
manual writer 

Due to its sophistication, we 
recommend this program for use with 



not sold through any other outlet Time 
Management Software will send free 
updates ol new material and products to 
GENESIS owners as they develop, lo make 
sure you've got everything you need 
Order the most advanced proqram 
generator system on the market ioday, 
by calling one of the toll-free numbers -, 
or by returning the order blank below 

Call now toll-free lo order {Ask for 



CP/M*? XX Thee 
isCBASlC* i 



m&mm - 



have PL / 1 -HO' in order lo run the 
The program comes on statu 
8-inch disk, with storage sleeve The 
program that will allow maximum use of 
your li.udware an introduclory price 
of $500. 

GENESIS isaviiilable now directly 
from Tmn! Management Software, and is 



1-800-852-7777 (in California) 

1 -800-824-79 1 9 1 m Alaska and 
Hawaii) 



YtO . . . I need GENESIS to develop the ultimate program and to take 
fullest advantage of my hardware. 



ADDRESS-. 



I have enclosed $500 to avoid delays, shipping and handling charges. 
□ Check D Money Order Q C.O.D. (If delivery address is different tt>an 

above, please specify.) 

Please specify one; D 5)i-inch disk D 8-inch disk 

Price includes tax, handling and shipping (except COD, orders ) 10 
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"SHRDLU understands questions 
and requests put to it in English. " 



I coutd never talk to my father. 

Tell me more about your family. 

None of tfiem liked me. 

Perhaps in your fantasies none of them 
liked you. 

Of course, the program is not really 
capable of understanding. Compared to 
some other programs, it is a very unintel- 
ligent program. Eliza achieves Its effects by 
the clever use of a few gimmicks. A more 
skeptical interviewee quickly reveals the 
program's weaknesses: 

Go away. 

I'm not sure I understand you. 

I think you're coming apart. 

Why do you suppose you think you're 
coming apart? 

You are coming apart. 

Perhaps in your fantasies you are coming 
apart. 

No. You are in reality. 

Perhaps in your fantasies you are in 
reality. 

This rather inane little exchange reveals 
Eliza's limited language handling capability. 

Animal 

A somewhat more interesting program, 
capable of learning as it is used is called 
Animal. This is a game in which the pro- 
gram tries to guess the name of the animal 
chosen by the user. When it makes an incor- 
rect guess, it asks forthe name of the user's 
animal and some information about it. It 
stores this information and recalls it at ap- 
propriate times in subsequent games. In 
one version the program begins by asking 
"Does it have horns?" If the answer is yes. it 
guesses the animal is a buffalo. If the 
answer is no, it guesses a butterfly. After a 
few wrong guesses and accumulating infor- 
mation provided by the user, a dialogue 
with the program might look like this: 

Does it have horns? 

No. 

Does it have a beak? 

No. 

Does it have four legs? 

Yes. 

Is it true that it can climb trees? 

No. 

Does it have a curly tail? 

No. 

Does it give milk? 

Yes. 

Is it a cow? 

Yes. 

Notice that the user-provided informa- 
tion is stored in "branches." The program 
wilt not ask about dogs or cows when the 



exchange is about an animal with horns. 
Does it have horns? 
Yes. 

Does it live in the woods near water? 
No. 

Is it true that it is smaller than a buffalo? 
Yes. 

Does it live in high rocky places? 
Yes. 

Is it an ibex? 
Yes. 

SHRDLU 

One of the most intriguing and signifi- 
cant Al programs was produced by Terry 
Winograd in the Al Lab at MIT. SHRDLU is 
capable of understanding questions and re- 
quests put to It in English; it is capable of 
giving English answers to questions and of 
performing requested tasks even if they re- 
quire multiple operations. As if that were 
not enough, the program can understand 
what it has done and why it has done it, and 
it can give competent English descriptions 
of these. 

SHRDLU functions in a limited domain 
called a "blocks world." This consists of a 
variety of variously-colored blocks, 
pyramids, boxes, and so forth. The program 
answers questions about the arrangement 
of those objects, provided the questions are 
precisely stated. If they are not, the pro- 
gram asks for a clarification. SHRDLU will 
perform requested rearrangements of the 
shapes ana explain what intermediate 
action, not specifically requested, was 
performed. 

Douglas Hofstadter, who provides an ab- 
solutely insightful treatment of Winograd's 
SHRDLU in Godel, Escher, Bach, says that 
while "SHRDLU may not be isomorphic to 
what we do. . .the act of creating it and 
thinking about It offers tremendous insight 
into the way intelligence works." 

Internist 

The study of "expert systems" is leading 
some researchers to develop more practical 
programs. Internist, developed by Myers 
and Pople at the University of Pittsburgh, 
reproduces the special diagnostic skills of 
a doctor of internal medicine. The program 
collects data on a patient's symptoms, 
case history, test results, and so forth. Act- 
ing much like a human diagnostician, the 
program then decides which possibilities to 
delve into, asks specific questions about a 
possible illness and suggests a diagnosis. 

The developers of Internist believe it will 
be ready for field testing at institutions 



other than Pittsburgh by 1983. 

More Roast Mules, Algorithms and 
Heuristics 

Our discussion of how we might solve the 
puzzle presented at the beginning of this ar- 
ticle exhibited two approaches to program- 
ming. The first is the usually straightfor- 
ward method of writing the code for a given 
algorithm. In the case of our example, the 
algorithm might be: 

• generate one combination of the 10 
letters. 

• check this with a standard English dic- 
tionary to see if it is a word. 

• if it is, stop. 

• if not, go back to the first step and start 
another round. 

It wouldn't be hard to write a procedure to 
generate the permutations, especially in a 
good Al language like Lisp. It wouldn't even 
be too difficult (just very boring) to give our 
program access to the words in a standard 
dictionary— all we really need would be the 
listings under A, E, L, M, O, R, S, T and U. 
Somewhere between the first and the 
3,628,800th iteration, we would have our 
solution. 

While this would get the job done, it 
would be neither elegant nor very satisfy- 
ing. We might somehow feel uneasy about 
reproducing in so mechanical a fashion 
something we do In a very sophisticated 
manner. We might try to write a more so- 
phisticated procedure, which could include 
various linguistic principles. Basically we 
would want to teach the computer some of 
our language— we would want the program 
to produce and evaluate syllables just as 
we do. We would want it to be able to com- 
bine these to form trial words just as we do. 
Using such principles or "rules of thumb" is 
an heuristic approach to our programming 
problem. 

It is easy to see that the first two pro- 
grams (Eliza and Animal) employ the 
straightforward algorithmic approach, 
while the latter two make use of heuristics. 
Actually, SHRDLU and Internist probably 
employ both approaches. Programming 
heuristics can give us a more sophisticated, 
more intelligent-appearing program. 

Of course, to program in this way implies 
some understanding of the mental rules of 
thumb we use when solving our puzzle. This 
is what Hofstadter is referring to in his 
statement about SHRDLU. 

Are Mactilnes and Programs InteMlgent? 

Al researchers for the most part are not 
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". . . one theorem-proving program has correctly proved 
a theorem with a proof the author was unfamiliar with." 



trying to produce mechanical brains. We 

are a great many years away from any such 
possibility. In fact, there does not seem to 
be any hard knowledge on how the brain in- 
terprets basic neural activity into "con- 
scious thought." So even if we had the hard- 
ware ability readily available to construct a 
machine that could reproduce what the 
brain does in this interpretation, the levels 
of interpretation in the brain and in the 
machine would not necessarily be isomor- 
phic— there would not have to be a one-to- 
one correspondence between the levels of 
interpretation in the brain and those in the 
machine. While trying to construct such a 
machine could lead us to new insights 
about wtiat happens m the brain when 
thought takes place, we are not on the verge 
of being replaced by mechanical thinkers. 
In spite of the (act that algorithms have 
been written for activities such as juggling 
and bike riding. I don't think anyone has 



tried, in software, to get a TRS-80 lo turn a 
somersault. Still, programs designed to do 
things that normally require human in- 
telligence have produced some interesting 
and occasionally surprising results. For ex- 
ample, one theorem-proving program is 
known to have correctly proved a theorem 
with a proof the program's author was not 
familiar with. In a case such as this it is hard 



to say whether the intelligence exhibited by 
the program was its own or merely a reflec- 
tion of its author's intelligence. 

Would our puzzle-solving program be in- 
telligent if it solved the puzzle m a way even 
similar to our way of solving it? 

The answer to this question as well as the 
puzzle itself is, in the over-used last words, 
left to the reader as an exercise-B 
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If Tr-Q topic of artltictal Intelligence is something you would liKe to erte' mce deeply nU 
lurpsling and leadable books on Ihe sobjeci 
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Will you SCARF your way to 
victory? 

Can you avoid the speedy MONSTERS that 
guard the maze? 

Answers to these questions await the brave, who 
dare to enter the maze where the monsters live. 
SCARFMAN Is a new arcade game for the TRS-80' 
by the author of MISSILE ATTACK. Written in 
machine language. SCARFMAN features quality 
GRAPHICS. SOUND, REAL TIME MONSTERS and 
hours of ENJOYMENT. Nine progressive skill 
levels make the game more difficult as you get 
better. SCARFMAN is compatible with Alpha 
Product's joystick. 
Do you have what it takes to reach skill level 9? 

ORDER NOW! 



The Comsoft Group ^^^ 

6008 N. Keystone Ave., Indianapolis, IN 46220 (317) 257-3227 

Model I & III tape — 16.95 Model I disk — 20.95 Model III disk — 20.95 

Prices include shipping and handling 

Checks. Money Orders, VISA and MASTER CARD accepted. 

I TRS-BO It a Tandy CoipooliOn lrade>n*ik) 



-See Lis' oI fia/erhsert ot page 386 
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TRS-80* Computer Owners... 

Great Nev\/ Access Store! 



I 



™^^ 



/\/^, Fully 






AFD Mini-Disk Drives 



from 



tvery Access Floppy Disk drive is electrically lested. mechan- 
icatly tesled and burned-in 48 hours under operating condi- 
tions Look for the signed test list in the shipping carton 

AKD drives are capable of cither single- or double density op- 
eration, AFD 100 "■ drives store 10?-Kbytes in single-density. 
180 Kbytes in double density AFD 200" dnves store 205 
Kbytes in single-density. 364 Kbytes in double density. And 
those are formatted die storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
■flippy' drives (AFD 100F " or AFD-200F " drives) 

lb-day free trial otter , comprehensive 90-day limited war- 
ranty unbeatable prices AFD-100 i" S275 00. -lOOF 
:-. S329 00. -200 '" $429 95. 200F " $449.95- 



y<9*v/ 



Percom Drives for Your Model III ! 




Internatly mounted drives that feature flippy' capability double- or single- 
derusity stuiage comprehensive pre delivery testing, 48 hour burn in and, best 
of all Peicom s widely acclaimed disk coiitioller A Ftrst-Dnve System includes 
the four-drive disk controller one or two dnves, cables and a fully illustrated 
owneis manual Use f^/Iodel III IHSDOS'. Percom OS 80 t and other f^lodel III 
compatible UOSs. 

Prices Complete First-Dnve System w 1 drive only $560.00 

w 2 dnves only $860.00 

Note: If you prefer not to make the First-Drive System installation, we will 
do it for only $29.95 plus shipping (if shipped). This includes a 48-hour 
operating burn-in of your Model III computer, installation of the drive sys- 
tem and final checkout of the expanded system. 



HowloorOer Odw by i.tiiiiH) A(:ii..%s ummtetlloii Ini- ,u l-SOO-SaZ-WTS. (Ji oiOe' tjy man 
Orrtr's niiiy w chafqctt to a VISA o' MaMw L.drO *n.uu'ii o- pdJd S, Labtiic s cMt-cli i.wlilied 
Lhi.'cii in mi>i»>y iMde' COD oiiJeii leqo'rt '^'j' <• Oepusii "!0"y wo t.anmjl a!,i,i!p1 p»^6uiia' 
C^ec^^.S Wt pay Miipping jrig .nMJM/itc ttidit|osu"i(XCl[ilMiv(;i Si OOU IXl Add .IH)rcjjiini<ilL' ■>< 
su'diiLe fiiid vnupinq tlurycs li>i orihsis iiiidiif SVOOOtiO II in tju<.,li\ .ilmi.l Ihi'so Livilg(>b ri^ 
Wtmn yiiii i;rili m ytiui i.irai" I.-ijt. i L's.di « if. mi Imh' 5°.. sak'i. tut Mmirniim iTiail uidcr S^(J 00 
Altovn J In A *uek.s tui ih-tiui.-y 

Ipchnirai .* Tun- |?14) 69(M)2IK 

Save' Ask iibout quantity discounts for TRUGs 

Save' VISA and M.isIfM Chk! ctiatyes ar^^ not deposited 

until the day your oidi'i ib shippt.'H 



criicrs AM) -".('t (..(( fi rt!ii .tj', M, 



f lo- ttAi^(,t ■.vii'.: 1(11 Nd'ic I 



Unlimited Access! 
Easy to gel to. Thai b uur nuw wulk in cunipuiet 
conlL'i on Centrdl Exprt'sswiiy m suljuibrtu Ualtds 



RICHARDSON 
O UTD 

o 




ACCESS 
UNLIMITEU 
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e Old Savings Oalore 



rffi 



m m ir. II: 

mt iM »i.> IV 




Upgrade Your Model I to Double Density 

only M 59^-^ 

And not with some unproven hacker s kit. either. But with an assembled and fully 
tested Percom DOUBLER-in- The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the dnve. than you can store on 
standard Tandy Model I drives Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS ". a TRSDOS' compatible disk- 
operating system "Runs TRSDOS*, NEWDOStt, Percom OS-80t and other 
single-density software immediately Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 




Microline-80 Printer 
Grand-Opening Special $399.95 (regular $446 oo) 

Compare the Microllne-80 feature-for-feature with any other competi- 
tively priced printer • Uses standard roll paper, fan-fold forms or 
individual sheets. • Pnnts expanded characters and graphics. • Prints 
96 ASCII characters (9x6 dot format), 64 graphic characters {12x6 dot 
format). •Throughput is 80-characters per second, standard-width 
characters • Print head is rated at 200 million characters, • Compact, 
lightweight, quiet. 




Low-Cost System Furniture 
Desks from Printer Stand 

$115. only $144. 

Modular design accommodates customized arrange- 
ments • Furniture quality styling and construction 
• TRS-80' compatible colors • Units knockdown for 
easy transportation. 




Save! Make ACCESS your one-call shopping center for TRS-80* 
hardware and software. Call our toll-free order number for free 
product literature and latest prices. 

AUTHORIZED 
PERCOM SALES AND SERVICE CENTER 



Toll-Free 
Order No. 



1-800-527-3475 



(orders & literature only) 




ACCESS UNLIMITED 





^Sa» Lisl 0/ AtiverUsafs on pagv 396 
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GENERAL 



A discussion of the Pulitzer Prize-winning book. 



Godel, Escher, Bach 



6od«(, Eschar, Bach: 
An Eternal GoMan Braid 
Basic Books, Inc. 
N«w York, NY 
Hardcovtr, 777 pp. 
$20.50 

by Nancy Rotwrtson 



Alan Turing, a mathematician and influ- 
ential pioneer of computer science, 
wrote, "I believe that at the end of the cen- 
tury the use of words and general educated 
opinion will have altered so much that one 
will be able to speak of machines thinking 
without expecting to be contradicted." 

Turing made that prediction over 30 years 
ago. Perhaps m two more decades it will be 
true. But in our time, the debate over the 
question, "Can machines think?" Is raging 
and emotional. It has been fanned by the 
uncanny growth in computer production, 
and aired in general interest publications 
such as the New York Times Sunday Maga 
line. Like the theory of evolution, the ques- 
tion threatens the ego of our species. Yet. 
artificial-intelligence research is undenia- 
bly a tool toward understanding human in- 
telligence. 

Douglas Hofslader, a young physicist 
and computer scientist, frames (he ques 
tions of the artificial intelligence (Al) debate 
eloquently in Godel. Escher, Back. An Eter- 
nal Golden Braid (Basic Books, Inc.. 1979, 
New York. NY). In 1980 the book won a 
Pulitzer. Later that year, it reached the New 
York Times t>est sellers list. 

It is a deep and provocative volume that 
Illustrates the infinite complexities of intel- 
ligence. Using the works of Kurt Godel. M.C. 
Escher and Johann Sebastian Bach. Hof- 
slader identifies three vital characteristics 
of human intelligence: hierarchies, strange 
loops, and paradox. They can be interpreted 
as the three strands of the title's "eternal 
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M. C. Escher's Canon Crat)s 



BEELDRECMT. Atnsterdaio VAGA, New Yotk I9ei Collection Hugs GwneenleituMum 



golden braid." The limited occurrence uf 
these qualities in our most recent and im- 
pressive computing achievements reflects 
on our limited understanding ol human in- 
telligence. 

Artificial intelligence is not merely ad- 
vanced computer scie4)ce. but a composite 
of studies. "In our century the time was ripe 
for computers — " tfie author writes, "conv 
puters twyond tfie wildest dreams of Pas 



cal, Leibniz, Babbage. or Lady Lovelace. In 
the 1930's and 1940's. the first giant elec 
tronic brains' were designed and built They 
catalyzed the convergence of three pre- 
viously desperate areas: the theory of axio- 
matic reasoning, the study of mechanical 
computation, and the psychology uf inielli- 
gence ' 

It seems natural to consider the nature of 
human intelligence before mechanical 



"It is a deep and provocative volume 
that illustrates the infinite complexities of intelligence.'* 



computation. It is more familiar to us. Yet, 
it'b obvious that a simple dictionary defini 
tion uf intelligence oi intellect is trivial. 

Midway tfirougn the book, Hot^taaer 
writes, "Our contusion about who we are is 
certainly relctted to the tact ihat we consist 
ot a large set of levels, ana we use overldp 
ping language to describe ourseives on dll 
of those ievels." Hotstader's discussion of 
those levels, beyitining with Bach, Escher 
and Godel, is one of tne books most pro 
found statements. 

While the choice ot CJodei, Escher arid 
bach at first appears incongruous, Huf- 
btadei presents their work as shadows 
uast in different dubi,tions by some central 
essence." The opening chapter of the book 
simultaneously introduces these men and 
Hotstader's concept of levels of nieaning 

The author begins by considering Bach s 
Musical Utfenng. The title of the composi 
tion refers to the fact that it was dedicated, 
or ottered, tu Fiederick tne Great, who was 
the reigning king of Prussia 

Bacn wrote an inscription on the uiiginai 
score. Regis lussu Cantia El Heliqua Can 
oiiica Arte Resolula. (II translates to "At the 
King's Command, the Sony and the Re 
iiidinder Resolved with the Canonic Art.") 
Ine initials form an acrostic, spelling the 
Italian word rlcercar. which tneani both "to 
seek" and "fugue. ' A canoii, which is the 
musical form of most sections of the 
Musical Offering, is a strict single-theme 
fugue. There is also a great deal to seek in 
the Musical Offenng. In this short example, 
Hutstader introduces the potential tor 
multiple layers of mtjaning. 

"The idea of a canon," Hofstader ex 
plains," is that one single theme is played 
against itself. This is done by having 'cop- 
ies' of the theme played by the various par- 
ticipating voices. ' Fugues follow the same 
principles of composition, but are based on 
one or more tnemes. I hese themes may be 
varied in ttmeor pitch. They niay be inverted 
or reversed. For instance, what inusicians 
commonly call a "crab canon" begins with 
a theri.b that is prayed backwards in its se- 
cond and final rendition. 

Hofstader uses the term ■isomorphic' to 
describe the relationship of the variations 
to the original theme. In other words, the 
variations are altered forms of the original 
theme. It is possible to extrapolate a ihenic 
from any of its variations. "I he lole ot iso- 
rnorpnism m thought processes is strebsed 
again and again throughout the book. 

Hofstader wants us to recognize that the 
form or structure of our thoughts have im- 



plicit meaning. The structure ot the 
thoughts we iterate reveals something 
about the sublevel thoughts that build ex- 
pression. 

In the Musical Offering the Canun per 
lonus has a significant structure. In each 
expression of the theme. Bach modulates 
the key upward. Fur in stance, the first state- 
ment o( the melody and accompanying 
voices begins in C minor, but the resolution 
is in D minor. Normally, variations end or 
"resolve" in the same key that they begin. 
Opening in D minor, the second statement 
of the Canon per Tonos theme resolves in 
yet a higher key. The pattern continues to 
spiral through six modulations. Bach has 
broken down our normal expectations, yet 
surprisingly brings the piece back to its 
original key in the final modulation, 

A canon ot fugue is clearly a hierarchical 
syatem. The rules of composition and the 
themes to which they are applied produce 
distinct patterns and levels within the struc- 
ture. 

The Canun per lonvs takes us a step far- 
ther into Hotstader's theory, "ihis particular 
canon is an example of a strange loop. "1 he 



'Strange Loop' phenomenon occurs when- 
ever, by moving upwards (or downwards) 
through the levels of some hierarchical sys- 
tem, we unexpectedly find ourselves right 
back where we started.' 

This concept leads us siTioothly to M.C. 
Esctier, a Twentieth-century lithogroiphef 
and print master who represtnted hib fasci- 
nation with strange loops visually. Escher is 
known tor prints such as Wateifall and 
Drawing Hands. In Waterfall, water travels 
upward through a series of three sluices, 
drops from a waterfall, and begins its de- 
fiance of gravity all over again in the same 
sluiceway. Diawing Hands depicts a sheet 
of paper on a drawing board. The left hand, 
which is drawn on the paper, is drawing a 
right hand, which is drawing the left hand 

"l he viewer cannot help getting caught 
up in Escher's implied chain of levels, in 
which, for any one level, there is always 
another level above It of greater 'reality,' 
and likewise, there is always a level below, 
'more imaginary' than it is," Hofstader 
writes. In Drav/ing Hands there is a level ot 
'greater reality" just beyond the print: 
Escher's hand has drawn the hands that 



Eta Oin: Can a pyramid support a pyramid? 
SHRDLU:\ DON'T KNOW. 

Dr. Tony Earrwig: The question makes sense, but there is no example in the 
scene. SHRDLU has no way of looking into the details of its programs, even 
though these ultimately define its capabilities. 
Eta Oin: Stack up two pyramids. 
SHRDLU: I CAN'T. 

Dr. Tony Earrwig: SHRDLU tries and fails. 
Eta Oin: The blue pyramid is mine. 
SHRDLU: I UNDERSTAND. 

Dr. Tony Earrwig: All ot the information about colors, shapes, sizes and loca- 
tions of the objects is known to SHRDLU initially. Possession is left as an 
unknown property of objects about which it can be told. It stores this informa- 
tion in its data base. 

Eta Oin: I own all blocks which are not red, but I cton't own anything which sup- 
ports a pyramid. 
SHRDLU: I UNDERSTAND. 

Dr. Tony Earrwig: The result of understanding these sentences is the creation 
of new procedures within SHRDLU for deducing whether you own something. 
Eta Oin: Do I own the box? 
SHRDLU: NO. 

Dr. Tony Earrwig: The box supports whatever it contains, including a pyramid. 
Eta Oin: Do I own anything in the box? 
SHRDLU: YES, TWO THINGS: THE BLUE BLOCK AND THE BLUE PYRAf^lD. 



Example 1 
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"So far in the development of computer science, 
conscious self-reference, the recognition of paradox, and 
understanding the concept of infinity are all elusive. " 



draw each other. 

The print Itself Is characterized as a two- 
step strange loop: The right hand draws the 
left; and the left hand draws the right. The 
strange loop of Drawing Hands Is repre- 
sented In Fig. 1. 

Hofstader'a term "strange loop" Is a fi- 
nite reprssentatlon of infinity. "In... 
strange loops. . . there Is a conflict bet- 
ween the finite and the Infinite, and hence a 
strong sense of paradox." 

While Mofstader sees Escher's prints as 
"visual analogues to the canons of Bach," 
the paradox embedded In them leads to the 
study of Godel. Kurt Godel was a Qerman 
mathematician who published a treatise on 
mathematalcal reasoning In 1931. The pa- 
per showed "that no axiomatic system 
whatsoever could produce all number-theo- 
retical truths, unless It were an Inconsistent 
system I" 

Using the strict rules of formal mathe- 
matical system to generate and prove 
theorems of number theory, Godel dis- 
covered a true theorem that could not be 
proven. Tha discovery of this paradox lead 
to his Incompleteness Theorem and trea- 
tise. The validity of his argument threat- 
ened the foundations of mathematics, 
which Is dedicated to the eradication of In- 
congruity. 

Outside of mathematics, paradox has 
been a recognized characteristic of human 
thought since ancient times. Epimenldes 
was a native of Crete who Is credited with 
"one Immortal statement: 'All Cretans are 
liars.' " Was Epimenldes telling the truth? 

The Epimenldes paradox, or "liar's para- 
dox," Is a one-step strange loop. A two-step 
strange loop expressing a similar paradox 
could be: 




Fig. 1 
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"The following sentence Is false. 
The preceding sentence Is true." 

This two-step loop Is closer to the heart of 
Godel's Theorem. 

Called TNT for Typographical Number 
Theory, Godel constructed a formal mathe- 
matical system that could write self-refer- 
ential statements about natural numbers. 
Applying self-reference to numtKrs was 
brilliant, regardless of the additional dis- 
covery of paradox. Self-reference was a rec 
ognized characteristic of human dialogue, 
of literature and art— but not at all charac- 
teristic of our traditional perception of 
mathematics. 

In TNT language can be represented by 
symbols, which in turn can be represented 
by numbers. For instance, the English lan- 
guage version of the first axiom of TNT is, 
"For all variables a there does not exist a 
successor of a that Is equal to zero." Sym- 
bolically, this statement can be represented 
by: a: Sa=0. The numeric sequence vt^hlch 
expresses the same axiom Is: 666,262,636, 
123,262,111,666. 

Using TNT to generate and prove theo- 
rems of number theory, Godel eventually 
derived Theorem Q. Hofstader roughly 
translates this to "G Is not a theorem of 
TNT." In a two-step strange loop. It might be 
represented as follows: 

G Is a true statement of number theory. 
G cannot be proven. 

While the Epimenldes paradox rests on the 
fact that the statement Is neither true nor 
false, Godel's Theorem Q is true, but defies 
proof. 

The important thing to grasp about 
Godel's work Is that paradox and self-refer- 
ence are not limited to language, music and 
art— paradox and self-reference are found 
In numtwr relations. Both paradox and self- 
reference are universal characteristics of 
human thought. Godel's work reinforces 
our knowledge that numbers, like words, 
are aymtwllc (or isomorphic) representa- 
tions of Ideas. 

So far In the development of computer 
science, conscious self -reference, the rec- 
ognition of paradox, and understanding the 
concept of Infinity are all elusive. Yet com- 
puters, like humans, base their thought 
operations on hierarchical sytems. Be- 
tween computer hardware— memory regist- 
ers, CPUs I/O devices and circuitry— and 
high-level languages such as Lisp there are 
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Intelligent programs 


^.,--- 


Embedded Pattern Matcher 


^^.^-^ 


LISP 


^^^_.--— 


Compiler or interpreter 


^, ^ 


Machine instructions 


^ 


Registers and Data Paths 


Flip-Flops and Gates 


Transistors 


_^^ 



F(g.2 

several functions. There Is a machine 
language, assemblers, assembly code. 
Interpreters, low-level language, etc. Fig. 2 
Is a diagram, taken from Godel, Escher, 
Bach, representing the hierarchy of In- 
teillgencB in a computer. 

Hofstader believes that there are human 
processes that could be delineated that 
serve the same functions. On the lowest 
level, he compares hardware and the brain 
as an organ. For an example of a higher 
level analogy, take a computer operating 
system. "It Is virtually certain that there are 
somewhat parallel things which take place 
In the brain: handling of many stimuli at the 
same time; decisions of what should have 
priority over what and for how long; instan- 
taneous interrupts caused by emergencies 
or other unexpected occurrences ..." 

Yet computers have seldom demonstrat- 
ed understanding, self-awareness or crea- 
tivity. A computer that generates haiku or 
music from a random mixture of pro- 
grammed phrases Is not creative any more 
than a calculator Is creative. The computer 
does not Intend the resulting lines and 
melodies to have meaning. It does not un- 
derstand the explicit definition of the sen- 
tence It generates. It does not appreciate 
the tones of the musical themes It com- 
bines. Hofstader writes that: 

An lntalllo«ot program would praaumably be one which IB 
¥««*titaBnOLjgh tosoivB problBmaol many OlftBrenl sorts, 
II vTOuld Isam to Oo aach dlffaranl otb and would accurrv 
jlate sxaprlBncfl In doing so. It would ba able to work 
wfthln that ast of mlas and yal, also, at appropnaia mo- 
msnta, to step bach and maka a ] udgamant about whether 
working within that set o( rules Is likely to be profitable In 
tarma of some overall set of goals which It has. II would be 
able to choose lo atop woridng within a given framework, if 
rwed be, and lo create a new Iramework of rulm within 
which to work (or a while. 

This is the sort of Intelligence Godel used 



"Yet computers, like humans, base 
their thought operations on hierarchical systems." 



In discovering his Incompleteness Theo- 
rem, that Escher used in most ot his art.-^nd 
that Bach exemplified In the Canon per 
Tonos. 

Hofstader believes that the current In- 
ability of programming and computer 
science to achieve such program reflects 
our limited understanding of human 
thought. He believes "One key for under- 



standing and creation of intelligence lies In 
the constant development and refinement 
of the languages." 

He argues that Terry Winograd's Al pro- 
gram SMRDLU had demonstrated a degree 
of understanding In a machine. The pro- 
gram, which was written while Wtnograd 
was a graduate student at MIT, converses 
with humans to manipulate Imaginary 



The 'Eternal Golden Braid' 

A Study of Artificial Intelligence 



by Nancy Robertson 



At first glance, the response to Godel, 
Escher, Bach seems as Incongruous 
as the "eternal golden braid" that weaves 
the genius of these three men together in 
a study of artificial intelligence. In 1980 
Douglas Hofstader's opus, a txxjk of over 
700 pages in Basic Book's hardbound edi- 
tion, won the Pulitzer Prize for general 
rwntlction. 

Martin Gardner, who had reviewed the 
book tor Scientific American wrote, 
"Every few decades an unknown author 
tvings out a book of such depth, clarity, 
range, wit, beauty and originality that It is 
recognized at once as a major literary 
event." So It was for Godel. Escher. Bach. 

The manuscript tell Into the hands of 
Martin Kessier, president of Basic Books, 
New York, NY, when a friend of his who 
had hoped to publish the volume through 
a university press despaired of the large 
task. When theenormous bundle of manu- 
script and diagrams arrived In the mall, 
Kessler's first reaction was "a sinking 
feeling, but then I took It home and twgan 
reading It— and I got hooked, at first by 
the puzzles" Hofstader used to illustrate 
his points. 

Kessier decided to go ahead with publi- 
cation, although the potential production 
cost appeared prohibitive, "it looked like 
vre'd have to charge $28 a copy to make 
our money back. The nagging question 
was who would buy the book at that price. 
While interest In the manuscript began to 



show that the book would probably attract 
a wider readership than the publishers 
originally anticipated, production prob- 
lems continued. Finally, arrangements 
were made with Hofstader to typeset the 
volume himself on a computer. 

After the hardback edition came out. 
Vintage, a subsidiary of Random House, 
negotiated for the rights to the paperback 
edition. From October, 1980, to March, 
1981, a tome considering the characteris- 
tics of human thought, the intelligence of 
three creative geniuses and the ramifica- 
tions of artificial Intelligence, Godel, 
Escher. Bach bobbed up and down on the 
New York Times' list of best selling trade 
books. Its subject and its depth made its 
appearance on the list unique. 

Hofstader, who was bom in New York 
aty and raised in California, Is temporari- 
ly living In Berkeley, CA, and continuing 
his research. He is uncomfortable with the 
rwtoriety the book has brought him— the 
phone calls from strangers and the hun- 
dreds of letters, "Different people deal 
with fame in different ways," he said. 
Although he Is appreciative of the interest 
in the book, he feels it has the strength to 
"stand on Its own." So far, he has tried to 
keep up with the correspondence that has 
resulted from the publication of Godel, 
Escher, Bach. Recently he responded to 
over 400 letters from readers, but his 
energy is waning. He continues the eter- 
nal quest implied by his book.H 



blocks. Hofstader writes that the program 
was designed to: 



• Understand questions In English 
about the situation; 

• Give answers In English to questions 
about the situation; 

• Understand requests in English to 
manipulate the blocks; 

• Break down each request into a se- 
quence of operations it could do; 

• Understand what It had done and for 
what reasons; 

• Describe Its actions and their 
reasons, in English. 

Like Hofstader, WInograd emphasizes 
the importance of the tangled hierarchy of ■ 
language. He modeled SHRDLU on his view 
of human thought and human language. 
Rather than separating the various func- 
tions of the program into modules, he inter- 
twined them. The program is so convoluted 
that other programmers Initially thought it 
was absurd. Yet, the achievements of 
SHRDLU are impressive. 

Example 1 is a segment of a transcribed 
converstaion between SHRDLU and a 
visitor. (Ttie words of Dr. Earrwig are actual- 
ly Winograd's. EtaOin Is a fictional name of 
a real visitor.) in this short passage, 
SHRDLU demonstrates an ability to learn 
concepts. 

in an article about SHRDLU WInograd 
wrote: 

Ona of the basic viewpoints underlying trie model la that all 
lanQuage U9« can be thouQht of as a way of activating pro- 
cedures wllhin tn« hearer. We cari think of any utterance 
as a program— one that Indirectly causes a set of opera- 
tions to be carried out within the hearer's cognitive system. 
This "pfogram writing" Is Indirect In tne sersa that we are 
dealing with on Inlellloenl Interpreter, who may take a set 
of actions which are quite dUfersnl from tfrose the speaker 
Intended. The exocl form Is cJetermlned by his knowledge 
of the wortd, his expectations about t^ person talking to 
him, etc. In this program we have a simple version of this 
process of Interpretation as It takes place In the robot. 
Each sentence Interpreted by the robot Is converted to i 
set of Instructions in Planner (an Al computer language). 
The program that Is created la then executed to acMeve the 
desired effect. 

One of Winograd's statements is especi- 
ally important. "We can think of any utter- 
ance as a program— one that indirectly 
causes a set of operations to be carried out 
within the hearer's cognitive system." 
These "programs" and "sets of operations" 
are the sorts of levels Hofstader wants us to 
recognize in our own thinking. 

Hofstader must stress his point by exam- 

Contlnuad on page 192 
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Artificial Intelligence at M.I. T 
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I man's Intelligence Is truly natural intelli- 
gence, then any Intelligence simulated by 
a machine would be aniflcal— or possibly 
unnatural. This Intelligence would be hard 
to define, at least In part laecause intelli- 
gence Itself is hard to define. This has been 
one of the findings of the Artificial Intelli- 
gence Laboratory at the Massachusetts In- 
stitute of Technology In Cambridge, Massa- 
chusetts. 

Founded in the early 1960s by Marvin 
MInsky, M.l.T's Al Lab has grown to include 
10 full-time faculty members, a research 
and support staff of 35 and 30 graduate 
students. These people are engaged in 
theoretical research as well as specific pro- 
jects for concerns such as the Defense Ad- 
vanced Research Projects Agency, the Air 
Force Office of Sponsored Research, the 
National Science Foundation, the Xerox 
Corporation and others. 

The primary goal of the M.I.T. Al Lab, ac- 
cording to its Director Dr. Patrick Winston, 
Is to "understand how computers can be 
made to exhibit Intelligence." The two ma- 
jor aspects of this search Include develoja- 
ment of a more thorough understanding of 
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human intelligence, and finding ways to 
make computers more useful. Recently, the 
Al Lab has channeled its research energies 
Into image understanding, studies of 
natural vision, robotics, learning from ex- 
perience and language comprehension, 
problem-solving techniques of experts, the 
computing environment and education. 

Education Projects 

The education projects are among the 
Lab's most celebrated and are led by Pro- 
fessor Samuel Papert. Professor Papert 
directs the Logo Group, a group which at- 
tempts to apply the theoretical findings of 
Al research to education. The Group has 
been instrumental in the development of 
the Logo language. Logo Is designed to 
allow children to learn through their involve- 
ment in "teaching" the computer. Recent 
work In the Group has Involved the study of 
spatial reasoning. 

Dr. Berthold K.P. Horn directs the image- 
understanding research team. They have 
developed alt>edo maps, maps from photo- 
graphs which have had ground slope and 
sun position shadows removed so that the 
intensity of the image Is solely a function of 
ground cover. This research focuses on 
shading and surface characteristics. 

Along with the topic of image understand- 
ing, the Al Lab conducts research on natural 
vision. This effort Is led by Professor Shimon 
Ullman and concentrates on understanding 
the process whereby the retina of the 
human eye distinguishes between light 
sources of differing intensity. 



Obviously, vision and image-understand- 
ing research will have an application some' 
day in another of the Lab's research areas, 
robotics. The team working on the Robotics 
projects includes Dr. J. Michael Brady, Dr. 
John M. HoiiertMich and Professor Tomas 
Lozano-Perez. The primary thrust of current 
research is the development of a high-level 
manipulator language. 

The Al Lab's overall Director, Patrick 
Winston, heads the theory of reasoning by 
analogy project; Professor Marvin MInsky, 
the Lab's most well-known member outside 
academic circles, continues his work on the 
"society of minds" theory. This is a theory 
which postulates that Intelligence Is the 
result of the interplay among groups of 
related Individual concepts or processes. 
Professor Richard Greenblatt continues his 
work with Lisp, a character-manipulation 
language that he developed Initially several 
years ago. 

tn a recent Interview with 80 Microcom- 
puting, Dr. Winston addressed the Issue of 
whether or not artificial Intelligence 
research will develop machines so powerful 
that society may become over-dependant 
on them. "In the first place, America and 
Europe are already overly dependant on 
machines. For example, without farm ma- 
chinery most of the Industrialized West 
would starve to death. Secondly, one of the 
major goals of Al research Is the develop- 
ment of computers that explain what they 
are doing and how they are doing It. In this 
way, Al may help us understand ourselves 
better."! 
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A beautiful match, the Smartmodem 
and theTRS-80. Vbur TRS-80 can talk with 
other computers, over the telephone lines. 
And with no acoustic losses or distortions. 
Access time-sharing systems and infor- 
mation utilities such as the Source; 
CompuServe' and MtcroNet. 
Direct hook-up with no interference noises. 
The Smartmodem hooks to the telephone 
line just like a modular telephone, simply 
insert in a wall)ack. 

"Love at first sight" - your THS-QO and 
the Smartmodem' 

Brawny- because it does so 
many things.Auto-dial and auto-answer 
features built in. With the Smartmodem, 
your TRS-80 can aufomaf/ca//y dial the 
telephone, answer the telephone, receive 
and transmit, and hang up the telephone. 
Completely unattended 
Pulse dialing or Touch-Tone. ' ' The 
Smartmodem can be connected to any 
telephone system in the US. because it 
allows pulse-dialing, Touch-Tone dialing 
or a combination of the two, FCC 
approved. 

Program controllable in any language us- 
ing ASCII character strings. This is a unique 




Microcompirtw Component Systems 

feature of the Hayes Smartmodem 

Brainy - tiecause it does them 
all so simply. Seven LED indicators on 
the front panel give you visual signals of 
the status of the Smartmodem. 
f^R - fvlodem Ready. SD- Send Data. 
CD- Garner Detected, etc. 
The audio monitor feature lets you listen 
in ■ on the call being dialed and the con- 
nection made ^bu are immediately alerted 
to busy signals, wrong numbers, etc. 
Over 30 different commands can be en- 
tered directly from your TRS-80 keyboard, 
including the unique Set" commands 
which allow you to select and change var- 
ious optional parameters such as dialing 
speed, escape code character, length of 



time for a dial tone, and number of rings to 
answer. There are 17 Set" commands. 
The Smartmodem is completely compat- 
ible with the Bell-IOS type modems, the 
type of modem most time-sharing systems 
have Operation can bemfullorhalf-duplex. 
with a transmission speed of 0-300 baud. 

The Smartmodem is ready to 
"get-together" with your TRS-80. 
TRS-80 Model ItandTRS-eoColor Com- 
puters have RS-232 serial ports and can 
immediately interface with the Smart- 
modem Expansions that permit use of 
■ the Smartmodem with TRS-80 Model I 
and Model II are available through your 
TRS-80 dealer 

Match your TRS-80 with a Hayes 
Smartmodem for a sophisticated, high 
performanced data communication 
system. Available at computer stores 
nationwide (except T RS-8 dealers) - 
call or write for the /^\ 
location nearest I • I riA\/OQ 
you And don t set- ViJ' ICJ/^O 
tie for anything less than Hayes 
Hayes Microcomputer Products. Inc. 
5835 Peachlree Corners East, 
Norcross, Georgia 30092 (404) 449 8791 



%urTRS-80 computer 

and the Hayes Stack Smartmodem. 

Beauty, Brains, and Brawn! 
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Instant SoftiMiane 
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". . . It's becoming very clear now. . . 
Your microcomputing life is going to be very 
exciting. ..Money! I see much 
money for you. Perhaps it is the 
money you will gain when 
Instant Software's new 
business applications 
guide your financial 
endeavors. I see 
travel. . .you will 
journey to distant 
worlds in distant 
times. You wilt build 
itingdoms from des- 
erts and armies 
from slaves. Never 
will you be bored, 
adventurous one! Your 
programming burdens will 
lighten with new utilities— new 
tools, i see color! Many 
bright colors! i see new 
packaging for all these trea- 
sures. . everything new! 
And. . .yes, a tall, hand- 
some stranger who will 
guide you to these won- 
ders. It will be your In- 
stant Software dealer— 
a wise one indeed. All 
awaits you — all is 
yours for the asking. 
Soon very soon!" 



Get a glimpse of the future today— at your nearest 

Instant Software dealer. 
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YOUR NAME COULD 

BE HERE. CALL: 

1-800-258-5473 



Find out what you're missing. 

You heard the lady. Your microcomputing life is going to be very exciting. But don't 
leave It to chance— leave it to us! We have a brand new catalog full of packages and 
valuable coupons to help make it happen. It's free If you fill out the coupon and mail 
it today. (Or make a photocopy and spare your magazine). 

NAM E; — 



ADDRESS: 

CITY: . 



Instant Softwareinc 



STATE:, 



ZIP:. 



Peterborough, N.H. 03458 603-924-7296 ■A21 



i 



GAME 



In this game your computer will use 

the principles of artificial intelligence against you. 



Master Mind— 

An Intelligent Program 



Duane R. Hope 

2704 College Park Road 

Allison Park, PA 151Q1 



Have you ever encountered the mysteri- 
ous phrase "artificial intelligence" 
while flipping through the pages of your fav- 
orite microcomputing magazine? Did you 
find yourself asking, "What's artificial intel- 



ligence and how can I use it?" 

Artificial intelligence (Al) is a computer 
system which exhibits behavior that is 
called intelligent behavior when we observe 
it in human beings. The most common intel- 
ligence displayed by Al systems are the 
abilities of problem solving, learning and 
pattern recognition. 

Combining these ingredients Al systems 
have been designed to solve many varied 
and complex problems, such as investment 



Code Maker's Code 
Code BteaKer s guess 



Posdion Posilion Position Position 

1 _ 2 3_ 4_ 

blue fed red yellow 

red blue green yellow 



Example 1. 



Evaluation Pattern 


Action 


^4umbeto^ blacks + whiles = 


Do not use any of the numbers in tfiis guess m future guesses 


Numbef ol blacks = 0, number 




ot whites greater tfian 


The numtiefs m each position ot ttiis guess cannot appear in the 




same position in future guesses. 


Numtier ol blacks + whites = ■' 


Only the numbers in the guess are in the code. Do not consider 




numbers that are not in ihis guess tn future guesses 


Number ol blacks = 4 


The goal state has been reached and the code broken. 


Example 


2. Pattern recognition operations. 



If this 


guess wera 


thacods 


then trie evaluation of 1111 would be 




1112 




three blacks and zero whites 




1113 




three blacks and zero wtiites 




1114 




Ihree blacks and zero wliites 




1115 




three tJlacKs and zero whiles 




1116 




three blacks and zero whiles 

Example 3. 



analysis, proving theorems, and robot gui- 
dance system design. Al work has also 
taught computers to play chess, 

I first applied Artificial Intelligence tech- 
niques to a Master Mind program, I had writ- 
ten a program that allowed a person to play 
a solo version of Master Mind. In the solo 
version the computer randomly produced 
codes for the player to guess. The computer 
evaluated each of the player's guesses until 
the code had been broken. 

This solo version grew tiresome. To 
modify this program, so that both the com- 
puter and player could take turns making 
and breaking codes, required artificial intel- 
ligence techniques. Although the new ver- 
sion of Master Mind is not as sophisticated 
as a cybernetic investment system, it re- 
quires the computer to exhibit intelligent 
behavior. The computer learns how to dupli- 
cate the thought processes necessary to 
break codes. 

Master Mind 

If you are not familiar with Master Mind, it 
is a game of deductive logic, manufactured 
by Invicta Plastics, Ltd. Played by two peo- 
ple, each takes turns assuming the roles of 
code maker and code breaker. 

At the beginning of play, the code maker 
constructs a code by selecting an ordered 
combination of four colored pegs from six 
sets of pegs, each of a different color. The 
code breaker cannot see the arrangement. 
He attempts to duplicate the order and col- 
or of the pegs in the code by placing his 
guesses on a board, one at a time. After 
each guess (which consists of placing tour 
colored pegs on the board) the code maker 
evaluates the code breaker's guess. The 
code breaker uses these evaluations to try 
to guess the code. 

The code maker evaluates each guess by 
giving the code breaker one black peg tor 
every peg in the guess that is the correct 
color and position. One white peg is given 
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The jury is in and the verdict is . . . "outstanding!" 
Reviews from all of you who purchased MAXI 
MANAGER (not to mention raves by many top 
microcomputing magazines) have heralded it as the 
definitive data base managing system. We knew that 
business owners and hobbyists demanded the finest 
data base managing system available. To all of you 
who praised us for MAXI MANAGER, we extend our 
thanks. And to those of you who have yet to try MAXI 
MANAGER, we invite you to experience this incredible 
system today. But don't take our word for it (or our 
jury's). Judge for yourself. 
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JU8T CHECK SOME OF THESE FEATURES 

Supports six diHererM relational search techniques. 

Comes with prt^Ifammers interface. 

Over 120 pages of documentatton. 

Supports up lo 20 userdefhied f leMs of 40 characters each. 

Record tength up to BOO characters. 

Files can he up to tour disks in tengtt^. 

Cc»npatable 35, 40, 77 & 80 track drives wHh proper 

operating system. 

Has calculated equation fields. 

Complete report generator. 

Works hand in hand with any word processor. 



BEL*TION*L COUPABISONS 



MODEL 1 version requires TRSDOS 2 3 and is compatable with 
NEWDOS 2.1 & NEWDOS 80 

MODEL 3 version comes on TDOS, a special version of the DOSPLUS 
operating system. 

Requires 48K of RAM and one disk drive minimum. 




"Master Mind is a game of deductive 

logic, played by two people. Each 

takes turns. . . as code maker and code breaker. 



for every peg that is the right color, but in 
the wrong position. The white and black 
pegs, however, do not correspond posi- 
tionally to specific pegs in the guess. See 
Example 1. 

The code maimer evaluates the guess in 
Example 1 by giving the code breaker one 
black peg and two white pegs. If this were 
the first guess, the code breaker would have 
no idea which peg was the right color and in 
the right position (the yellow peg) and which 
two pegs were the correct color but in the 
wrong positions (the red and blue pegs). 

The code maker receives one point for 
each guess the code breaker makes. A turn 
is completed after each player has been 
both the code maker and code breaker. The 
player with the highest score wins. 

Means-ends Analysis 

The most difficult part of teaching a com- 
puter to play Master Mind is teaching it to 
break codes. But, breaking a code can be 
compared to solving a problem. 

We can employ one of the Al techniques 
for problem solving. I decided to use the 
Means-ends Analysis devised by Newell 
and Simon. 

In Means-ends Analysis the ends repre- 
sents the solution to a given problem and is 
referred to as the "goal stale." The "current 
state" describes how close the problem 
solver is to the goal state and represents all 
of the information accumulated in the 
search for the solution. 

Fundamental to Means-ends Analysis is 
the concept that there is a measurable dif- 
ference between the current-state and the 
goal-state. This difference may be reduced 
by a repeated application of certain opera- 
tions to previously acquired information. 
This represents the "means" of solving the 
problem. 

In Master Mind the goal state is guessing 
the code. The current state Is all of the Infor- 
mation the code breaker has accumulated 
toward the goal. Initially, the current state 
consists solely of the code breaker's knowl- 
edge of the rules of Master Mind. 

The difference between the goal state 
and the current state is the maximum 
number of guesses the code breaker would 
have to make to arrive at the code. Because 
the code could consist of four pegs and 
each peg could be selected from one of six 
different colors, it would be possible for the 
code breaker to make 1,296 (6x6x6x6) 
guesses before duplicating the code. 

To reduce this difference, the first move 
is to make a guess. 



Because the computer will be competing 
with a person, and because a person can 
usually guess the code after four to twelve 
guesses, we must discover additional oper- 
ations that may be performed so the code 
can be broken after four to twelve guesses. 

Verbal Protocol and 
Problem-Behavior Graphs 

"Verbal Protocol" is another technique of 
Artificial intelligence which is used to dis- 
cover what mental operations are per- 
formed by people when they solve a par- 
ticular problem. To record these processes, 
the problem solver is asked to think out loud 
as he attempts to find the solution. The ver- 
balized thoughts are written down. The 
documentation Is referred to as verbal pro- 
tocol. Verbal protocol is analyzed to 
discover operations ttiat the problem solver 
performs on acquired Information to find 
the solution. 

The analysis of the verbal protocol is 
simplified through the use of problem-be- 
havior graphs which are representations of 
the verbal protocol. 

To explain how verbal protocol and prob- 
lem-behavior graphs can be used, let's 
review an example of a code breaker taking 
one guess at the code maker's code. To 
simplify the example, rather than using six 
colors to form the code, we will use the 
numbers one through six. 

Let's assume that the code is 4326. We 
already know that the code breaker must 
first make a guess to begin reducing the dif- 
ference between the current state and the 
goal state. 



The verbal protocol of the first guess 
would go something like this: 



"Lels see, I'd beHe< make my first guess What 
should I slarl with? Oh, I Know. Why don'l I start wild 
1111. ■ 

The code maKer would then evaluate the guess as 
zero blacks anO zero whites. 

The coae breaker would continue thinking, "No 
blacks and no whites That means the code doesn't 
contain any ones " 



To draw the problem-behavior graph, rep- 
resent the current state of knowledge with a 
rectangle. An operation leading us to a new 
state of knowledge will be represented by 
an arrow. See the problem-behavior graphs 
in Fig. 1. 

Analyzing the graph, you see that the first 
operation is making the guess 1111. This 
leads us from the first state of knowledge 
where we knew only the rules of the game, 
to the second state of knowledge where we 
learn that the guess is evaluated by zero 
blacks and zero whites. The first operation 
has reduced the difference between the 
first state of knowledge and the goal-State 
from 1 ,296 possible guesses to 1 ,295. 

Graph (b) of Fig. 1 shows that the second 
operation, "If B-f W -0, the numbers in this 
guess can't be in the code," takes us from 
the second state of knowledge to the third: 
The code can't contain any ones. This sec- 
ond operation has further reduced the dif- 
ference between the current state of 
knowledge and the goal state to 625 possi- 
bilities (5x5x5x5). 

To further reduce the difference between 
a current state of knowledge and the goal 





Program Listmg 


m 


l*****************1,*****tt*******-k-k**iH,1,tti,i,i,tttt-i,-H,ttt*i, 


128 


' MASTERMIND * 


130 


by * 


140 


' DUANE R. HOPE * 


150 


■ * 


160 


I***********************!!.****'********'*'************'******* 


170 


■ * 


180 


' MASTER PROGRAM - GAME CONTROL LOGIC * 


190 


' * 


200 


>**1fl!ii**-t:**i!*ir******-k*********-k***************iiii********* 


210 


RANDOM :CLS 


220 


PRINT" MASTER MIN D":PRINT 


230 


INPUT"WHAT IS YOUR FIRST NAME"jNAS 


240 


PRINT: INPUT''HOW MANY GAMES DO YOU WISH TO PLAY";NG 


250 


IF NG < 1 GOTO240 


260 


PRINT:PRINT"I WILL NOW TOSS A COIN TO DETERMINE THE ORDER OF 


PLAY":PRINT | 


270 


PRINT"HEADS - YOU'RE THE CODEHAKER' 


260 


PRINT"TAILS - YOU'RE THE CODEBREAKER' JPBINT 




Program continues 
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Reader Service for facing page .^357— 



The Newest & Most Astounding Arcade Game 
JhatJALKS has Just Reached Planet Earth: 



MBDT flTTfiCti 




P.O. Box BOj'a-iaS'VanNuysXA 9I409- (2l3)782-^B6l 

Ordering info for alf games: 
Supsr Nova, Galaxy Invasion, Attack Forca, Cosmic Fighter, Meteor Mission 2, and Robot Attack; 



PricMDtf B*(n«: I6K Ltvtl 7. Mod I/Mod 3 Caswlte $15.95 
32K Lflvtl 7. Mod l/Uod 3 0.ikcil* $19 3S 
Opiional Joyiiicli for Model 1 S39 9& 

lOK diicuiifit lur 2 iisms. ]^% fui 3 at more 

nwwadd Sl.&Opir oritar for posi«9«& handling, C)<il. rnldentiadd 6%li)(. 

OuUide USA (excipl C«na(f>) plaati tcld $3.00 ftti trniti for postage S handling 

Wc KC«pt ctwcki, montv ofdcri. and UC/Vlu oidar; f$3 00 axtta lor COO). 



All gamn '-. 1980 bv Bill Hoyue & Jeff Konyu. 

Programs are vwilten in machine language for high quality graphics & sourfd effects. 

Voice & Diher toundi ate playatile through the caitetie AUX plug. 

High Korei are automaticailv la/erl after each game an the disk vifsiont. 

TRS-SO it a trademark ol Tandy Corp. 

Write for more detailed into about all of our pfoductl, 

Oealeri: All garnet now available in full color packaging like above, pleate inquire 



"Pattern recognition 

Is an A! technique 

used for converting information into action. 



Program continued 

290 FOR I-l TO 2500:NEXT I 

300 CT = RND[2) 

310 IF CT = 1 M15="HEADS" :H2S="C0DEMAKER" 

320 IF CT = 2 M1S="TAILS":M2S=''C0DEBREAKER'' 

330 PRINT"THE COIN CAHE OUT ■;«!$;" SO YOU WILL BE THE ";H2$:PRI 

NT 

340 FOR 1=1 TO 2500:NEXT I 

350 GC=0:PC=0:PP=0 

360 IF CT = 1 GOSUB560 ELSE GOSUB960 

370 IF CT = 1 GOSUB960 ELSE GOSUB560 

380 IF GC ^ GA$="GAME" ELSE GA$="GAHES" 

390 PRINT"AFTER";GC+1;GAS; " THE SCORE IS:" 

400 PRINT:PRINT" ";NA$;PP 

410 PRINT" COHPUTER';PC 

420 FOR 1=1 TO 2500:NEXT I 

430 GC = GC + 1 

440 IF GC < NG GOTO360 

450 M1S="IT'S A TIE" 

460 PRINT 

470 IF PC > PP THEN H1$="I WON" 

480 IF PC < PP THEN M1S="Y0U WON" 

490 PRINT Hl$ 

500 PRINT: INPUT'WOULD YOU LIKE TO PLAY ANOTHER GAHE";H1S 

510 IF LEFT$(H1S,1)^"Y" GOTO240 

520 PRINT:PRINT"THANK YOU FOR PLAYING, ";NAS 

53 END 

540 '**************************•***************************** 

550 ' * 

560 

570 

580 



' THIS IS THE CODE MAKER ROUTINE 



********************************************************* 
590 PRINT:PRINT"IT'S YOUR TURN TO MAKE A CODE":PRINT 
600 INPUT'ENTER 4 DIGIT CODE FOR ME TO GUESS" ; COS : IF LEN(COS) <> 

4 GOTO60 
610 NUMS=COS:GOSUB1290 
620 IF ERO0 GOTO600 
630 RESTORE 
640 FOR R=l TO 6 
650 FOR C=l TO 4 
660 READ PO(R,C) 
670 NEXT C,R 

680 Cl=l:C2=i:C3=l:C4=0:GU=0 
690 GU=GU+1 

700 IF GU=1 THEN FOR I-l TO 4 : C (I ) =RND [6 ) : NEXT I 
710 IF GU=2 THEN C (1) =C1 : C ( 2) =C2 ; C (3 ) =C3 :C ( 4) =C4 
720 IF GU>2 THEN FOR 1=1 TO 4 i C ( I ) =GT {GU-1 ,1 ) : NEXT I 
730 IF GU>1 GOSUB1690 
740 TRYS="" 

750 FOR 1 = 1 TO 4:TRYS=TRYS+RIGHT5(STRS(C(I) ) ,1) :NEXT I 
760 PRINT"PLEASE EVALUATE TRY NUMBER" ; GU; " ";TRYS 
770 INPUT" ENTER B";BB 
780 INPUT" ENTER W";WW 

790 FOR I=1T04:GT[GU,I) =C(I) ;NEXT I :GT(GU , 5) =BB: GT {GU , 6) =WW 
800 NUM$=COS:GOSUB1290 
810 FOR 1=1 TO 4:C[I)=T(I) :NEXT I 
820 NUMS=TRYS:GOSUB1290 
830 GOSUB1490 ' EVALUATE GUESS 
840 FOR 1=1 TO 4: T ( I ) =C ( I ) :NEXT I 
850 IF BB=B AND WW=W GOTO880 

860 PRINT"YOUR EVALUATION SHOULD HAVE BEEN B =";B;" W =";W 
870 GT(GU,5) =B:GT(GU,6) =W 

880 IF B=4 THEN PP=PP+GU : PRINT"I GOT IT n":RETURN 
890 IF B+W=4 GOSUB1B40 
900 IF B+W=0 GOSUB1990 
910 IF B=0 AND WO0 GOSUB2110 
920 PRINT"QUIET, I'M THINKING" 
93 GOTO6 90 
940 DATA 1,1,1/1.2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6 

950 RETURN 

950 I ******************************************************** 

970 ' * 



Program continues 



State, I recorded verbal protocol as I 
attempted to break several codes, and con- 
structed problem-behavior graphs. When I 
analyzed the graphs, 1 discovered that the 
operations i performed could be grouped in- 
to two categories: "pattern recognition" 
and "learning." 

Pattern Recognition 

Pattern recognition is an Al technique 
used for converting information into action. 
In pattern recognition there is a one-to-one 
correspondence between a particular infor- 
mation pattern and an appropriate course 
of action. The list in Example 2 comprises 
the pattern recognition operations 1 discov- 
ered. 

In certain cases the use of pattern recog- 
nition mechanisms will help reduce the dif- 
ference between the current state and the 
goal state. In other cases, pattern recogni- 
tion must be augmented by the learning 
process. 

Learning 

The learning process is an Al technique 
that gradually modifies a programmed deci- 
sion system to improve performance. Modi- 
fications are made from performance 
evaluations of previously made decisions. 

For example, each guess that the code 
breai<;er makes, along with the correspond- 
ing evaluation, is saved. Prior to malting 
each succeeding guess, previous guesses 
are reevaluated in light of the next guess 
you are contemplating. If the evaluation of 
each preceding guess is unchanged, then 
the prospective guess could be the code— 
and the guess will be made. On the other 
hand, if any of the reevaluations have 
changed since the original evaluations, 
then the prospective guess is discarded. 
This is the learning process. 

Assume that the code is 4316 and that 
the code breaker's first guess is 1111- The 
code breaker, then, would receive an 
evaluation of one black and zero whites. No 
action would be performed as a result of 
this evaluation; the difference between the 
current state and goal state is only reduced 
by one. 

However, by using the learning pro- 
cesses, we can reduce the difference fur- 
ther. Eliminate all possible guesses that 
would not result in one black and zero 
whites. See Example 3, 

Since the code produced an evaluation 
for the guess 1111 of one black and zero 
whites, then none of the guesses in Exam- 
ple 3 could be the code because when they 
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Put Your Fingers On 
The Pulse Of Wall Street 

With Your 
Radio /haeK Computer 



If you invest in the market, operate your own busi- 
ness or require updated information quickly to 
manage your affairs, Dow Jones Information Services 
provides the authoritative business and financial in- 
formation you need. . .from Wall Street, Washington 
and around the world. Now Radio Shack owners 
can receive this valuable service through TRS-80® 
Videotex® software. 

Get Information For Business And 
Investment Control. . .On Command 

Discover how quickly and easily vour personal 
computer turns into a specialized, sophisticated 
library of information \\'ith access to the Dow 
Jones database, Ifs considered the world's most 
reliable and comprehensive source of business 
and financial data providing you v\'ith news 
up-to-the-minute as well as from the pre- 
vious 90 days. 

Now you can review thousands of items 
from The Wall Street l oumal , Barron's and 
the worldwide Dow Jones News Service 
vvithout having to maintain piles of news- 
paper clippmgs. Information about com- 
panies, stocks, labor, government, interna- 
tional market and monetary developments, 
and so much more, is yours on command. 

Quotes From Four Exchanges 

Now, in just seconds, you can obtain cur- 
rent prices and the volume traded for 
stock quotes (15 minutes delayed) on over 
6,000 companies. . plus 50 key financial in- 
dicators on 3,200 selected firms and 180 in 
dustries. You'll also have access to trading 
mformahon on mutual funds, treasury 
notes and bonds. 



Imagine being able lo spot trends, research a com- 
pany, obtain data that could affect your business 
your investments, your investment decision-making. 
But you don't have to imagine anything. . .Dow 
Jones Information Services provides it ail right now. 

Low Start-Up Cost. . .Free Password. 

Stop by your nearest Radio Shack store and 

find out how easy and inexpensive it is to get 

Dow Jones investment data through TRS-80 

Videotex. Videotex software for Radio Shack 

computers is onlv $29,95. What's more, you 

get a Dow Jones password absolutely 

free. , along with one hour of free in- 

trtxluctorv Hme And there are no 

start-up or minimum usage charges. 

In addirion, software and usage costs 

will be tax deductible in manv cases 

(consult vour tax advisor for further 

informafion). 

Customer Support. . . 
Just A Phone Call Away. 

Dow Jones' professional customer 
service staff is ready to provide com- 
plete information about this impor- 
tant home information service now. . . 
and full customer support after 
you've made your purchase. 
Just call toll free. . . 

800-257-5114 

In New Jersey call: 
(609) 452-1511. 

TRS-80. Radio Shack, and Videotex are registered trademarks of Tandy Corp. 




DOWX>l€S INFORMATION SEPVICGS 

Providing Informot'ion Through Inrx^votion 

Don Jones & Company, Inc. ^425 



"In completing my analysis 

I realized it would be necessary 

to generate each of 1,296 possible guesses." 



are substituted for the code they do not pro- 
duce the original evaluation, in this exam- 
ple, there wouid only be 500 guesses that 
would produce evaluations of one black 
and zero whites. 

Completing the Analysis 

in completing my analysis of the prob- 
lem-behavior graph, I realized that it would 
be necessary to develop a procedure for 
generating each of the 1,296 possible 
guesses — otherwise the computer would 
never be able to make any guesses. In addi- 
tion, this generator would have to produce 
each guess only once. 

The guess generator would also have to 
be designed so that the operations result- 
ing from pattern recognition could be per- 
formed. To accomplish this, I used the pos- 
sibility table shown in Fig. 2. 

Each of the possible 1,296 guesses can 
be generated from this table. Initially the 
number used in positions W, X, Y and Z is 
set to a one. Then, to generate succeeding 
guesses, the right most position, position Z, 
varies from one to six. After the first six gen- 
erations (1 in, 11 12, 1113, 11 14, 1 115, 11 16), 
position Z is set to one again, and the next 
position to the left, position Y, is set to a 
two. 



state 1 




Slate 2 




Make guess 


Black = 


lal 11296 


1111 


White -- 


possibiiiliesi 




11295 
possiDilities) 


Slate 2 




Siaie 3 


Black = 


It B*W = 


The code 


ibi While = 


The 






numDets 


doesn 1 have 


(1295 


in Ihis guess 


any ones. 


possiDililies) 


cant be in 


(625 




the code 


Dossibililies) 


Fig. 1. Problem-behavior Graph 



Number to uh 


Position In guass 




w X y z 


1 


1111 


2 


2 2 2 2 


3 


3 3 3 3 


4 


4 4 4 4 


5 


5 5 5 5 


6 


6 6 6 5 


Fig. 2. Possibility Table 



Piogra"! 


ontinuea 


980 


' THIS IE THE CODE BREAKER ROUTINE * 


990 


' * 


1000 


I**-****************************************************** 


1010 


PRINT: PRINT"NOW IT'S MY TURN TO HAKE A CODE" 


1020 


FOR I-l TO 2500:NEXT I 


1030 


PRINT:PRINT"0.K, , I'VE GOT IT NOW. TAKE YOUR FIRST GUESS" 


1040 


PRINT 


1050 


NO=0 


1060 


FOR 1=1 TO 4:C(I) =8ND(6) :NEXT I 


1070 


INPUT-ENTER YOUR GUESS (4 DIGITS) " ;TRY$: IF LEN(TRYS)<>4 GOT 


01070 1 


1080 


NUHS=TRYS:GOSUB1290 


1090 


IF ERO0 GOTO1070 


1100 


GOSUB1490 ' EVALUATE GUESS 


1110 


NO-NO-H 


1120 


PRINT-TRY NUHBER";NO; " B =",•3;" W =" ;Vi 


1130 


IF B <> 4 GOTO1070 


1140 


PRINT''YOU GOT IT U 1 " 


1150 


PC=PC+NO 


1160 


RETURN 


1170 


I ******* ************************************************** 


1180 


■ * 


1190 


' ROUTINE TO PUT 4 DIGIT STRING NUMBER INTO ARRAY T(I) * 


1200 


1 * 


1210 


INPUT :NUHS-4 DIGIT STRING TO CONVERT • 


1220 


' OUTPUT:T(I) -ARRAY CONTAINING NUMERIC EQUIVALENT * 


1230 


' OF NUMS * 


1240 


' ER -ERROR CODE * 


1250 


' = NO ERROR * 


1260 


' 1 = NO. < 1 OR > 6 ENCOUNTERED IN * 


1270 


' NUMS * 


1280 


> * 


1290 


i***************t*****ii****i,-k************iLiiii*tiii,i,iiiii,ii*mii,i, 


1300 


ER=0 


1310 


FOR 1=1 TO 4 


1320 


T{I) =VAL(MIDS( NUMS, 1,1) ) 


1330 


IF T(I) < 1 OR T[I) > 6 THEN ER=1 


1340 


NEXT I 


1350 


RETURN 


1360 


<*«******************************************************* 


1370 


■ * 


1380 


' ROUTINE TO EVALUATE CODEBREAKER' S GUESS * 


1390 


1 * 


1400 


' INPUT : T[I)-4 DIGIT ARRAY CONTAINING GUESS * 


1410 


• : C(I) -4 DIGIT CODE * 


1420 


1 * 


1430 


' OUTPUT: B -NUMBER OF RIGHT NUMBERS IN RIGHT * 


1440 


' POSITION * 


1450 


W -NUMBER OF RIGHT NUMBERS IN WRONG * 


1460 


' POSITION * 


1470 


' T( I) -CONTENTS DESTROYED * 


1480 


I * 


1490 


1 ********************************************************* 


1500 


B=0:W=0 


1510 


FOR 1=1 TO 4:W(I) =C(I) :NEXT I 


1520 


FOR 1=1 TO 4 


1530 


IF W(I) <> T(I) GOTO1550 


1540 


W(I) = -1:T(I) = -2:B=B+1 


1550 


NEXT I 


1560 


FOR 1=1 TO 4 


1570 


FOR J=l TO 4 


1580 


IF T(I)<>W(J) GOTO1600 


1590 


W(J) = -1:W=W+1:GOTO1610 


1600 


NEXT J 


1610 


NEXT I 


1620 


RETURN 


1630 


I********************************************************* 


1640 


I * 


1650 


' ROUTINE TO DETERMINE CODEBREAKER' S NEXT GUESS * 


1660 


1 * 


1670 


' OUTPUT: C[I) - NEXT GUESS * 




Program continues 
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Rcadar Smnlc* tor facing (Mrg« ^399-* 



JUST LAUNCHED! 
VOYAGE OF THE VALKYRIE 

BY LEO CHRISTOPHERSON 






ADVANCED 

OPERATING 

SYSTEMS 

450 St. John Road 
Michigan City, 
Indiana 46360 



The ancient Norse lords bravely sailed their ships across new waters in search of 

adventure. No obstacle was too great to overcome nor any force powerful 

enough to prevent their mighty advance. ■ Now you're in command. You are 

the pilot of the attack ship Valkyrie. Your mission: to wrestle the island Fugloy 

from the grasp of an army of laser-wielding war birds and secure the golden 

treasures hidden within the walls of the island castles. Success of the mission 

depends solely upon you. The castle Drage appears on the horizon when 

suddenly the air is alive with the flutter of giant wings. Your prize is in sight . . . 

do you dare accept the challenge and go on? ■ You can put yourself at the 

controls of the Valkyrie thanks to the genius of Leo Christopherson and the 

versatility of the *TRS-80 microcomputer. As absolutely flickerless birds sail 

smoothly across the screen, strains of Wagner's "Ride of the Valkyries" are 

heard. The game offers 10 levels of difficulty which provide a challenge for 

players of all ages and skills. The game also provides one of the finest examples 

of computer cartoon-graphics presently available. Accept the challenge of the 

Voyage of the Valkyrie . . . available now at leading software retailers. 

Trademark of Tandy Corp. 



"You should be able to apply 

these Al techniques to other situations 

to solve problems or make decisions." 



Program continued 


1680 


■ 


1690 


1 ********************************************************* 


1700 


GOSUB2220 • GET NEXT ENTRY FROM POSSIBILITY TABLE 


1710 


FOR L=l TO GU-1 


1720 


FOR J=l TO 4 


1730 


T(J)=GT(L,J) 


1740 


NEXT J 


1750 


GOSUB1490 ' EVALUATE OLD GUESS USING NEW GUESS AS CODE 


1760 


IF GT[L,5)=B AND GT[Lr6)=W GOTO1780 


1770 


GOTO17 


17 80 


NEXT L 


1790 


RETURN 


1800 


I***********************-********************************** 


1810 


1 * 


1820 


' ROUTINE TO ELIMINATE ALL NUMBERS IN POSSIBILITY TABLE * 


1830 


' EXCEPT THOSE IN THIS GUESS. THIS ROUTINE IS ENTERED * 


1840 


' WHEN EVALUATION OF LAST GUESS IS : B+W =4 * 


1850 


1 * 


1860 


1 ************* **************************«*****it* ********** 


1870 


FOR 1=1 TO 6: EL(I)=I:NEXT I 


1880 


FOB 1=1 to 4 


1890 


EL(GT(GU,I) )=0 


1900 


NEXT I 


1910 


FOR 1=1 TO 6 


1920 


IF EL(I]<>0 THEN PC [ 1 , 1) =0 : PO (1 , 2} =0 :P0 C I ,3) =0 : PO ( I , 4) =0 


1930 


NEXT I 


1940 


RETURN 


1950 


■ ************«***********it***4***it******it******«********** 


1960 


■ * 


1970 


' ROUTINE TO ELIMINATE ALL NUMBERS IN POSSIBILITY TABLE * 


1980 


' THAT OCCUR IN THIS GUESS. THIS ROUTINE IS ENTERED * 


1990 


' WHEN EVALUATION OF LAST GUESS IS : B+W =0 * 


2000 


1 * 


2010 


i***it******«**************************it*********it********* 


2020 


FOR 1=1 TO 4 


2030 


FOR J=l TO 4 


2040 


PO(GT(GU,I) ,J)=0 


2050 


NEXT J, I 


2060 


RETURN 


2070 


>***** *************************** *************** ********** 


2080 


1 * 


2090 


' ROUTINE TO ELIMINATE THIS GUESS FROM POSSIBILITY TABLE.* 


2100 


' THIS ROUTINE IS ENTERED WHEN EVALUATION OF LAST GUESS * 


2110 


' IS: B=0 W<>0 * 


2120 


1 * 


2130 


I*********************************************-************ 


2140 


FOR 1=1 TO 4 


2150 


PO(GT[GU,I) ,1) =0 


2160 


NEXT I 


2170 


RETURN 


2180 


1 ********************************************************* 


2190 


1 * 


2200 


' ROUTINE TO EXTRACT NEXT ENTRY FROM POSSIBILITY TABLE * 


2210 


1 * 


2220 


I********************************************************* 


2230 


GOTO2360 


2240 


IF PO(C1,1)<>0 THEN C{1)=P0(C1,1) :GOTO2280 


2250 


C1=C1+1 


2260 


IF Cl<7 GOTO2240 


2270 


PRINT"ERROR IN POSSIBILITY TABLE":END 


2280 


IF PO(C2,2)<>0 THEN C ( 2) =P0{C2 , 2) :GOTO2320 


2290 


C2=C2+1 


2300 


IF C2<7 GOTO2280 


2310 


C2=1:GOTO2250 


2320 


IF PO(C3,3)<>0 THEN C{3)=PO(C3,3) :GOTO2360 


2330 


C3=C3+1 


2340 


IF C3<7 GOTO2320 


2350 


C3=1:GOTO2290 


2360 


C4=C4+1 


2370 


IF C4 < 7 GOTO2390 


23 80 


C4=0:GOTO2330 


2390 


IF PO[C4,4)=0 GOTO2360 


2400 


C(4)=PO(C4,4) 


2410 


RETURN 



V^henever the evaluation is zero blacks 
and zero whites, each number in the guess 
can be deleted from each position of the 
possibility table, by setting its relative pr>si- 
lion to zero, A guess that has one or more of 
its positions equal to zero can be discarded. 

The Problem-Solving Model 

The operations discovered from analvz 
ing the problem behavior graphs can be 
assembled into a problem-solving model. 
Fig. 3 shows this model. 

The model begins with generating a 
guess (step 1) that does not contradict in- 
formation from previous evaluations {step 
2], If this guess contradicts previous evalua- 
tions, it is discarded and another guess is 
generated. A guess that is consistant with 
information from evaluations of previous 
guesses Is made in step 3. 

After feedback is received form the code 
maker in step 4, the evaluation is checked 
by the pattern recognition mechanism in 
step 5 to determine if any numbers should 
be eliminated from the possibility table. If 
the evaluation is four blacks (step 6), the 
code has been broken and the problem 
solved. If the code has not been broken, the 
model returns to step 1 and the operations 
are repeated. 

The program listing will help you see how 
the model actually works. You should be 
able to apply some of these Al techniques 
to other situations requiring the computer 
to solve problems or make decisions ■ 
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SOFTWARE! 



Accept our free program. It retails for $6.95 but it's yours 
just for previewing America's finest software club. 



I want to tell you about the most excit- 
ing development that has ever happened 
to your computer. Then I want to extend 
an invitation. Neither the development or 
the invitation need cost you a cent. 

• It's not a new terminal. 

• It's not any kind of peripheral. 

• It's not a new language. 

• It's all of these. 

It's a club. A club exclusively for peo- 
ple who live and breathe computers, like 
you— and me. 

BUILD A SOFTWARE 
LIBRARY THAT WILL 
EXPAND YOUR 
COMPUTER'S CAPABILITIES 
TO THE LIMITS 
OF YOUR IMAGINATION. 

Each month we bring you the finest 
and boldest concepts In computer soft- 
ware from manufacturers all over the 
world, from categories that include 
education and business to entertain- 
ment and home utilities. 

Out of thousands of programs avail- 
able, we select those that make your 
computer do more of what you bought 
your computer for. Programs that keep 
your computer working throughout the 
day instead of gathering dust on a desk. 

ASC keeps your i^omputer function- 
ing and expanding by supplying the vital 



FREE* 
ADVENTURE #0 

for the first 1000 charier members, 
A special sample of the Scott Adams 
Adventure Series. On TRS 80 cassette 
for model 1 and model 3, 

Other charter members receive FREE, 
the Hardcopy source code -Checkbook 
Balancing. 

'Only a small postage and handling 
charge 



software resources necessary for its 
growth. Software for the business 
owner, educator, hobbiest, the family. 
Software that will continually keep your 
hardware paced with state of the art 
technology. With an ASC membership 
you will be assured that your equipment 
Is never rendered obsolete. 



OUR NO-OBLIGATION 
CHARTER INVITATION 

V\ftien you become a charter member 
you get: 

• Our free Scott Adams software pro- 
gram on cassette 

• Our informative and very candid 
newsmagazine 

• Discounts on all software programs 

• Discounts on major brands of hard- 
ware and supplies 

• Additional discounts for recommend- 
ing new memtwrs 

• Software updates as they become 
available 

• BONUS. Free buy, sell, or swap ad 
in our newsmagazine {on a space- 
available basis). A real moneysaver. 

Even if you never purchase another pro- 
gram, the free cassette is our gift to you. 



Gift acceptance certificate below. Mali 
today to reserve your free gift. 



DISCOUNTS. 
PROMPT SHIPMENTS. 

No more searching through magazine 
ads and paying top dollar. You save 
every time you buy. Save on software, 
hardware, books ... all computer sup- 
plies. For example, next month you can 
purchase name brand blank diskettes 
that the "discounters" sell for $3.50. Our 
price-$2.50. That's saving $10 per box. 

HERE'S HOW YOUR CLUB 
WORKS. 

All purchases are charged to your ac- 
count at low member prices, (software 
programs usually cost $9.95 to $24.95 
and are always discounted 15 to 40% off 
manufacturers' suggested list). Every 
four or so weeks, you will receive our 
new "Software Compendium" newsmag- 
azine free. It reviews the new programs 
and provides helpful hints and member 
input. If you want our "Choice of the 
Month", do nothing, it will be sent auto- 
matically. If you want an alternate, addi- 
tional, or no program at all {which will 
break your computer's heart), just return 
the card by the date specified. Unre- 
quested programs may be returned at 
our expense. And all software is sup- 
plied with the original manufacturer's 
warrantees. Club members are never 
subjected to any minimum purchase 
requirements. 



AMERICAN SOFTWARE CLUB, INC -"3 

Millwood, N.Y. 10546 

I can't wait. Please senc) me my free gift cassetIe(or hardcopy source code) and enroll 
me in American Software Club as outlined in this ad. I understand that all future pur- 
chases (no minimum required) are at low members' prices and that a small postage 
and handling tee is added to all orders. Membership can be cancelled at any time. 

Bill me S1.50 postage and handling. 



My computer is a 
TRS 80 



am primarily interested in 
Business ^^_. 

Entertainment 

Household 

Education 

All areas 



Namn 

Address 

City/StaleCip. 



"1 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

..J 



APPLICATION 



Artificial Intelligence techniques for a theorem-proving program. 



Simple Syllogisms 



Rick Hoffman 

4055 Arrow Drive 

Mt. Pleasant, Ml 48858 

Have you ever dreamed of having an in- 
teUigent computer? If so, here's a pro- 
gram that will boost your computer to the 
head of the class. 

The problem with endowing a 16K TRS-80 
with intelligence lies in defining a task with- 
out exhausting the machine's memory. To 
create a tasl< that works, you must restrict 
your machine's intelligence. This means 
the computer will do well given a specific 
task, but for any other it will act like an idiot. 

For instance, programming a 16K com- 
puter to recognize spoken words would re- 
quire you to use a very small vocabulary. 
Since the majority of everyday words would 
not be in the computer's vocabulary, it 
would misinterpret or not acknowledge 
them at ah. 

Theorem-proving programs have been 
created to verify theorems in set theory and 
geometry and make logical deductions via 
predicate calculus. My program deals with 
logical constructs known as syllogisms. 

Socrates Is Mortal 

Perhaps you are familiar with the famous 
syllogism: 

Socrates is a man. 
All men are mortal. 
Therefore, Socrates is mortal. 

This illustration shows what I set out to 
accomplish with my program. I wanted a 
program in which I could enter a number of 
rules— such as the first two lines of the 
above syllogism— and then make the com- 
puter manipulate the rules to answer ques- 
tions. 

Since entering English sentences for the 
rules and questions would tie up too much 
memory (if not deplete it completely), I 
chose as input specifications: 
STR1,STR2,STR3— where, except for spe- 
cial commands, STR2 and STR3 are names 
of sets, and STR1 is a string representing 
the format of the rule or question. It can be 
NOTIN, IN, NO, SOME, ALL or EQUAL and 
represents the relationship between STR2 
and STR3, 

My notation for the rules for the Socrates 
syllogism would be: 
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IN,SOCRATES,MEN 
ALL,MEN,MORTALS 

Notice "Socrates is a man" was rendered 
"Socrates is a member of the set of men". 
Mortal became mortals. The program will 
not recognize men as the plural of man. The 
names of sets should be plural unless there 
is only one member in the set. NOTIN and IN 
are special formats used only if STR2 is a 
set with one member. 

Questions have the same input specifica- 
tions. If you enter the first two lines of the 
Socrates syllogism as rules and then ask 
IN,SOCFIATES,MORTALS, the answer 
would come back affirmative. 

Given a question (actually a statement 
the computer determines to be true or false) 
the program will try to prove the statement. 
If it succeeds, it answers "Affirmative". If it 
fails, it tries to disprove the statement. If it 
can do that, it answers "Negative". If it can 
neither prove nor disprove the statement, 
the program will answer "Undecldable". 

Whether you are feeding the program a 
rule or asking a question depends on what 
mode you are In. At the beginning of the pro- 
gram, you are in the rule mode and will be 
asked to input rules. The following are spe- 
cial commands providing intermode travel: 

• Q„ : Puts you In the question mode. 

• R„ : Puts you in the rule mode. 
I have also provided subroutines: 

• Listout,, : Gives a listing of your rule 
base In expanded form. Within this routine 
you have the option of deleting rules from 
your rule base. 

• L„ : Loads previously stored rules from 
cassette. Erases current rule base if pre- 
sent. 

• S„ : Saves your rule base to cassette. 
The listout subroutine is available from 

either mode, but the cassette load/save rou- 
tines can be invoked only from the rule 
mode. Should you unintentionally call a 
cassette operation, you may escape un< 
scathed by answering the "ready cassette" 
message with N. 

Anatomy of the Program 

Major variables (DEFSTR B-H; DEFINT A, 

• 0(200)- Directory of set names. In- 

stead of storing the rules as 



triplets of strings, memory is 
conserved by assigning to 
each set name a directory in- 
dex. 

• XD— Number of entries in the direc- 

tory. 

• H,S,T— Arrays of size 100; rule ar- 

rays. 

R(l) = Index in directory of 

STR2 

S(l) = Index in directory of 

STR3 

T(l) = Format of rule: 

1 = NOTIN, 2= IN, 3 = NO, 
4 = SOME, 5 = ALL, 
6 = EQUAL 

• A— Number of rules currently 

stored. For example, sup- 
pose you were to input rule 
one as: ALL,DOGS,MAM- 
MALS. The program would 
then establish the values: 
A = 1, D(1) = "00GS"; 
D(2) = "MAMMALS"; XD = 2; 
R{1)*1; S{1)=!2; T(1) = 5. 
Four inferences that can be 
made from this rule: All dogs 
are mammals; some mam- 
mals are dogs; some non- 
dogs are non-mammals; all 
non-mammals are non-dogs. 
Any rule leads to four inferences, each in- 
ference of the form "All ..." or "Some " 

These inferences provide the real rule base 
that gives the program its reasoning capa- 
bility. 

The index of "NOT" + Set Name Is taken 
to be the negative of the index of Set Name. 
In the example, the set of non-mammals 
would have the name "NOT MAMMALS" 
and corresponding index -2. These inferen- 
ces are stored as follows: 

• U,V,W— Arrays of size 400; inference 

arrays: 

U(l) = Index of first set in 
directory; 

V(l)= Index of second set in 
directory; 

W(l) = Type of inference: 
0— all of first set are in sec- 
ond set; 

1— some of first set are /n 
second set. 

• AA— =4A is the number of infer- 



'To create a task that works, 

you must restrict your machine's inteiliger)ce. 

. . . you must use a very smaii vocabulary. " 



180-190 



200-210 
220-280 

500-560 
570-630 

640-660 

670-750 

760-900 



ences stored. Continuing 
with the ALL,DOGS,MAM- 
MALS example, the program 
will establish these Inference 
array values: 
AA = 4 

U<1)=1, V(1> = 2,W{1) = 
U(2) = 2, V(2)=1,W{2) = 1 
U(2) = 2, V(2) = 1.W(2)=1 
U(3)= -1,V(3)= -2.W(3) = 1 

Description of the program text, by lines: 

10-55 Initlaltzations. 

60-95 Cassette I/O routine. 

100-170 Get next rule: Input F,G,H (all 
strings). 

Subroutine: Check If string B 
is in directory. Put index Into 
M. 

Subroutine: Negate B. 
Subroutine: Create Inferen- 
ces of rule. 

Get question: Input F,G,H. 
On (format of the question) 
perform appropriate routine. 
Result messages; get next 
question. 

Subroutine: Tests inclusion 
of set D(XG) In set D(XH). 
Subroutine: Tests If some of 
set ID(XG) are In set D(XH). 

1000-1140 List out subroutine. 

1150-1190 Delete a rule. 

1500-1550 Load rule base from cas- 
sette. 

1600-1630 Save rule base to cassette. 

3000-3020 Routine to check/find the ad- 
dresses to be POKEd during 
cassette routines. 

Important algorithms: The "brains" of 
this program reside In the subroutines at 
lines 670 and 760. The goal In the routine at 
670 Is to decide if one set, say SET1, Is con- 
tained In another set SET2. This detects the 
existence of a sequence of Inferences, all of 
which are inclusions: SET1 is contained In 
SETA; SETA Is contained in SETS; SETB is 
contained in SETC;. . .SETM Is contained 
in SETN; SETN Is contained in SET2. Such a 
sequence leads to the conclusion that SET1 
Is contained in SET2. 

The subroutine at 760 tests If some ele- 
ments of SET1 are in SET2. The routine 
must detect the existence of a sequence of 
Inferences for which no more than one in- 
ference Is not an inclusion (the exception In- 
ference is thus an inference with corre- 
sponding W array value of one). 

All inferences preceding the exception in- 
ference In this sequence must be reversible: 
An Inference ALL,SETA,SETB Is reversible 
if ALL,SETB,SETA is true. 

While the program Is "thinking" In these 
two subroutines there is a string of aster- 
isks printed on the screen to assure the us- 
er the program has not gone off the deep 



end— the "think time" can get quite 
lengthy. 

5«nH>l« SMtkm 

The best way to learn how to use this pro- 
gram Is to be taken step by step through a 
small session. 

Run the program. You will be asked for 
rule one. Enter ALL,EVERGREENS,GREEN 
THINGS. (Green Is an adjective, not a set 
name.) After a significant pause, the pro- 
gram will return and ask for rule two. 

Enter NO.MAPLE TREES,EVERGREENS 
or ALUMAPLE TREES,NOT EVERGREENS 
(either one says the same thing). Notice 
NOT Is a valid modifier for a set name. 

For rule three, enter SOME,THINGS IN 
OUR BACKYARD,EVERGREENS. Observe 
your set names can be as long and complex 
as you want. 

For rule four, enter EQUAL,EVER- 
GREENS.CONIFERS to Signify that ever- 
greens and conifers are two different 



names for a single set, and enter rule five as 
IN,OUR CHRISTMAS TREE,CONIFERS. 

For rule six, enter Q„ to get Into the ques- 
tion mode. The program will ask for a ques- 
tion. Enter IN.OUR CHRISTMAS TREE, 
GREEN THINGS. After three asterisks, the 
computer will answer "Affirmative," and 
another question will be requested. 

Enter SOME,CONIFERS.MAPLE TREES. 
After nearly a line and a half of asterisks, 
the answer will be "Negative". 

Now try the question ALUCHRISTMAS 
TREES, EVERGREENS. Very quickly you get 
the message "Insufficient Information". 
Though you defined a one-element set 
named OUR CHRISTMAS TREE, there Is no 
set with the name CHRISTMAS TREES. The 
program does not see any relationship be- 
tween these two set names. So there is no 
way to prove or disprove your question. 

The program Is very picky about set 
names. Extra spaces, typos or very slight re- 
wording will give you the insufficient infor- 



Program Listing 1 



10 CLS:CLEAR20e0 

15 DBPSTR B-H 

20 DEFINT A,I'Z 

25 DIM D{2B0) ,R{ia0) ,S(100) ,T(100) ,U(400) ,V(400) ,W(400] ,P(30) ,Q( 

30),PP(30),QQ(3B),RR{30),SS(3B) 

30 DATA IKJTIN, IN, NO, SOME, ALL, EQUAL, 17630,17533, 17504 

35 PRINT" SYLLOGISM PROGRAM" 

40 FORI"1T06!READPP(I) iNEXTIiP0RI-lT03:READL(I) ;NBXTI 

45 A-0iAA-eiXP-fl:I$-"INSUPFICIBNT INFORMATION" 

50 ER-"IMPR0PEF FORMAT — - PLEASE RETYPE" 

55 GOTO100 

60 INPUT»-1,XD,A 

65 FORI-1TOXDSTEP10 

70 INPDT#-1,D(I) ,0(1+1) ,0(1+2) ,0(1+3) ,0(1+4) ,0(1+5) ,0(1+6) ,0(1+7 

), 0(1+8) ,0(1+9) 

75 NEXTI 

60 F0RI-1T0ASTEP5 

85 INP0T»-1,R(I) ,S(I) ,T(I) ,R(I+1) ,S(I+1) ,T(I+1) ,R(X+2) ,S(I+2) ,T( 

1+2) ,R(I+3) ,S(I+3) ,T(I+3) ,R(I+4) ,S(I+4) ,T(I+4) 

90 NEXTI 

95 RETURN 

100 PRINTiPRINT" FORMATSt NOTIN, IN, NO, SOME, ALL, EQUA 

L" SPRINT 

110 PRINT"RULE #";(A+l)nINPUTF,G,H 

120 IF (F+G+H-"LISTOUT") THENGOSUB1000 :GOTOJ,10ELSEIFF""Q"THEN500EL 

SEIFF«"L"THEN1500ELSEIFF-"S"THEN1600 

130 N-0:FORI-1TO6:IFF-FF(1)THEHN-I 

140 NEXTI !lFXF-lTHENRBTDRNELSEIPN-BTHENPRINTERiGOTO110 

150 B-G:GOSUBlB0:IFM<>eTHEHXG-MELSEGO8UB200:GOSUB180:IPH<>eTHEHX 

G— HELSEXD-XD+1 : D ( XD) -Gi XG-XO 

160 &-H:GO5UBie0:IFH<>flTHBNXH-HELSEGOSUB200:GOS(;B160iIPH<>0THEHX 

H— MELSEXO-XD+1 1 (XD) -H : XH-XD 

170 A-A+l:R(A)-XGiS(A)-XHtT(A)-H:GOSUB220;6OTO110 

180 M-0:FORI-1TOXO:IFB-D(I)THEHM-I 

190 NEXTX: RETURN 

200 IFLEFT5(B,4)-"NOT "THENB-RIGHTS(B, (LEK(B) -4) ) ELSEB-"NOT "+8 

210 RETURN 

220 IF(N-1)0R(«-3)THENXH--XH 

230 PORI"AA+1TOAA+4:W(I)-0:NEXTI 

240 U(AA+1) -XG iV(AA+l) -XHi IFN-4THEHH(AA+1] -1 

250 U(AA+2)-XHiV(AA+2)-XG:IFN<>6THENW(AA+2)-l 

260 U(AA+3)— XGiV(AA+3)«-XH:IPN<>6THBNH(AA+3)-l 

270 U(AA+4)"-XHiV(AA+4)— XGiIFN-4THENK(AA+4)»l 

280 AA'°AA+4: RETURN 

50B XP-1 

Program continues 
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REMsoFT. Inc. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying t)ool< atler book on assembly 
language programming and slill not knowing your 
POP from your PUSH' 

REfVlsoFT proudly announces a more etli- 
cient way, usino your own TRS-80® . to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience 
Our unique package, ' tNTRODUCTIDN TO TR5-80^ 
ASSEMBLY PROGRAMMING , will provide you with 
the following 

• Ten 45-minule lessons on audio cassettes 

• A driver program to make your TRS-80* video 
monitoi serve as a blackboard for the instructor 

• A display program loi each lesson to provide 
Illustration and reinforcement for what you are 
hearing 

• A texlbook on TRS-80* Assembly Language 
Programming 

• Slep-by-step dissection ol complete and useful 
routines lo test memory and to gam direct control 
over the keyt)oard. video monilor, and pnnler 

• How to access and use powerful routines in your 
Level II ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successlul 
series of courses he has taught at Ueta Tectinologies 
Corporation, (tie Radio Stiack Computer Center, and 
other locations in Northern Ohio The minimum 
system required is a Level ll, 16K RAH 

REMASSEM-1 only $69.95 



LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your diSK System and you can really step out with 
REMSOFT'i Educalional Module REMDISK-1 a 
Stiorl course revealing Ihe Oeiails ot DISK I'O 
PROGRAMMING using assembly language 

Using [he same format as our eitremely popular 
introduction to assembly language programming, 
this "ASSEMBLY LANGUAGE DISK I/O PftOGRAM- 

M1NG" course includes 

• Two 45-mmute lessons on audio cassette 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard lor the instructor 

• A display program tor each lesson to provide 
illustration and reinforcement lor what you are 
hearing 

■ A booklet o' comprehensive luHy-Commenled 
program listings illustraling sequential file I/O 
random-access Me I O and tracli and sector I/O 

" A diskette with machine-readable source codes 
lor all programs discussed, in both Radio Shack 
EOTASM and Macro formats 

• Routines lo convert from one assembler format 
to the other 

This course was developed and recorded by 
Joseph E Willis, tor the student with experience 
in assembly language programming, it is an inter- 
medialelo advanced-level course Minimum hard- 
ware required is a Model I Level (I 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 




Dealer inquiries invited 

REMsOFT. (NC 

571 E 185 St 

Euclid. Ohio 44119 

(216)531-1338 




^7Q 



Include il bO lO' stiipping anO fiariflling 

IRS 80' i5 d l^aaelna^^ ol Ihe TanOy Cort 



Program continued 

510 PRINT: INPUT"QUESTION: ";F,G,H 

520 IFF-"R"THEHXF=0:GOTO100ELSEIFF+G+H="LISTOUT"THENGOSUB1000:GO 

TO510 

530 B=G:GOSUB180:IFM<>0THENXG=MELSEGOSUB200:GOSUB180:IFM<>0THENX 

G=-MELSEPRINTIS:GOTO510 

540 B=H!GOSUB180!lFH<>0THENXH=HELSEGOSUB200:GOSUB180:IFH<>0THENX 

H=-MELSEPRINTI5:GOTO510 

550 GOSUB130:IPN-flTHENPRINTER;GOTO510 

560 IFABS(XG)»ABS(XH)THENPRINT"THAT SHOULD BE OBVIOUS" :GOTO510 

570 ONNGOTO590,60 0,5 90,580,600,610 

580 GOSUB630:IFH=1THEN650ELSEXG=YH!XH— YG:GOSUB670:IFM=0THEN640E 

LSE660 

590 XH=-XH 

600 GOSUB670:IFM-1THEN650ELSEXH=-XH:GOSUB630:IFH=1THEN660ELSE6 40 

610 GOSUB670:IFH=1THENI=XG:XG=XH:XH=I:GOSUB670:IFM=1THEN650 

620 XH=-XH:GOSUB630!lFM=lTHEN660ELSEXG=-YG!XH=-YH:GOSUB630:IFH=l 

THEN660ELSE640 

630 GOSUB760:IFH=0THENXG=YH:XH=YG:GOSUB760:RETURNELSEBETURN 

640 PRINT:PRINT"UNDECIDABLE":GOTO510 

650 PRINT: PRINT" AFFIRMATIVE" :GOTO510 

660 PRINT:PRINT"NEGATIVE":GOTO510 

670 H=0:L=0:P=1:P{1)=XG 

680 Q=0:Q(1)=0:FORI=1TOP 

690 FORJ=lTOAA!lF(U(J)=P{I) ) AND (W[ J) =0) THENPRINT"*" ; :GOSOB7 40 : IF 

HH=1THEN700ELSEQ-=Q-H:Q(Q)=V{J) : IFV{ J) =XHTHENH=1 : RETURN 

700 NEXTJiNEXTI 

710 F0RI=1T0Q!P{I)=Q(I) :NEXTI 

720 P=Q: L=L+1 : IF { L>A) OR ( Q=0 ) THENM=0 : RETURN 

730 GOTO680 

740 MH=0!lFQ=0THENRETURNELSEFORII=lTOQ:IFV(J)=Q{II)THENMM=l 

750 NEXTIIiRETURN 

760 GOSUB670 : 1FM=1THENRETURNELSEYG=XG: YH=XH : LL=0 : PP=1 : PP (1) =XG: R 

R(l)=0!l-XG:XG=XH:XH=I:GOSUB670:IFM=1THENRETURN 

770 QQ=0:FOBI1=1TOPP 

780 FORJ1=1TOAA:IFU(J1)<>PP(I1)THEH830 

790 PRINT"*"; 

800 IF(RR(I1}=0)AND(W(J1)=0)THENXG=V(J1} :XH=U(J1) :GOSUB670 : IFH=1 

THENGOSUB870tIFMM=lTHEN830ELSEQQ=QQ-^l:QQ(QQ) =V(Jl) :SS(QQ) =0:IFV( 

Jl ) =YHTHENM=1 : RETURN 

810 IF{RR(I1}=0)AND(W(J1}=1)THENGOSUB890:IFMH=1THEN830ELSEQQ=QQ+ 

1 ! QQ ( QQ) =V( Jl ) : SS ( QQ) =1 : IFV ( Jl ) =YHTHENH=1 : RETURN 

820 IF(RR(Il)=l)AND{W(Jl}=0)THENGOSUB890!lFMH=lTHEN830ELSEQQ=QQ+ 

1:QQ(QQ)=V(J1) : SS{QQ)=l! IFV {J1)=YHTHENM=1: RETURN 

830 NEXTJltNEXTIl 

840 PP=QQ i LL=LL+1 : IP ( LL>A) 0R( QQ=0 ) THENM=0 ; RETURN 

850 F0RI=1T0QQ:PP{I)=QQ{I) :RR(I)=SS(I} :NEXTI 

860 GOTO770 

870 MM=0:IFQQ=0THENRETURNELSEFOKII=1TOQQ:IF{V{J1)=QQ(II))AND(S(I 

I)=0)THENMH=1 

880 NEXTII:RETURN 

890 HM=0 : IFQQ=0THENRETURNELSEFORI I=lTOQQ: IFV ( Jl) =QQ (II) THENHM=1 

900 NEXTII:RETURN 

1000 FORK=1TOASTEP10 

1010 IPA<KTHEN1130ELSEZ=K-f9:IFZ>ATHENZ=A 

1020 FORJ=KTOZ:PRINT"RULE #";J;": "; 

1030 B=D(ABS(R(J))) :IFR(J}<0THENGOSUB200 

1040 BG=B!B=D(ABS(StJ))) ! IFS ( J)<0THENGOSUB200 

1050 BH=B:ONT( J) GOTO1060, 1070, 1080, 1090, 1100, 1110 

1060 PRINTBGf" IS NOT AN ELEMENT OF " ;BH!GOTO1120 

1070 PRINTBG;" IS AN ELEMENT OF " ;BH:GOTO1120 

1080 PRINT"NO ";BG;" ARE " ;BH :GOTO1120 

1090 PRINT'SOME "fBG;" ABE " f BH:GOTO1120 

1100 PRINT"ALL "fBG;" ARE " ;BH:GOTO1120 

1110 PRINTBG;" IS EQUIVALENT TO ";BH 

1120 NEXTJ 

1130 INPUT"<SNTER> TO CONTINUE, <D> TO DELETE A RULE" ; B: IFB="D"TH 

ENB-"":GOTO1150 

1140 NEXTKsRETURN 

1150 PRINT"DELETE WHAT RULE" ; : INPUTII 

1160 IFII-0THEN1010 

1170 FORI=IITO(A-1}:R(I)=R(I+1) :S(I)=S(I-H) :T(I)=T(I+1) :NEXTI 

1180 FOBI-4*II-3TOAA-4:U(I)=U(I-f4):V(I)=V(I-f4}:W{I)=W(I-f4) :NEXTI 

1190 A=A-1:AA=AA-4:GOTO1010 

1500 INPUT"READY CASSETTE TO PLAY";B 

1510 IFB="N"THEN100 

1520 F0RI=1T03:P0KEL(I) ,137:NEXTI 

1530 GOSUB60:AA=0 

1540 F0RJ-1T0A:XG=R(J) :XH=S(J) :N=T(J) :GOSUB220: NEXTJ 

1550 GOTO100 

1600 INPUT'READY CASSETTE TO RECORD" ;B 

1610 IFB-"N"THEN100 

1620 F0RI=1T03 :POKEL(I) ,178:NEXTI 

1630 GOSUB60:GOTO100 

3000 J=3:FORI=17129TO30000 

3010 IFPEEK{I)=35THENIF (PEEK CI-1)=1780RPEEK(I-1) "137) ANDPEEK(I-H 

)-206THENL(J)=I-l:J-J-l:lFJ=0THENFORI=lTO3:PRINTL(I);:N£XTI:PRIN 

T!EDIT30 

3020 NEXTI 



134 • 80 Microcomputing, October 1981 



mation message if you are in the question 
mode. Unintentionally using slightly differ- 
ent names for same set is hazardous in rule 
mode, since the directory will store names 
and consider them to be entirely different 
sets. 

Now try ALLJHINGS IN OUR BACK- 
YARD.EVERGREENS. After the asterisks 
you get "Undecidable". You may say this 
should be true. Type In LISTOUT,, to see 
your rule base. Rule three says "some 
things in our backyard are evergreens". 

But now you decide It should be "all ..." 
Type and enter D. You are asked which rule 
you want to delete. Enter three. (If you do 
not want to delete a rule, enter zero.) After 
deleting the rule, you are asked if you want 
to delete a rule. You do not, so just hit Enter. 

At this point, if you had stored more than 
10 rules more would be printed out. Since 
there are no more rules, you are returned to 
the question mode. 

Type R„ to get to rule mode and enter rule 
five as ALL,THINGS IN OUR BACKYARD, 
EVERGREENS. 

You are ready to continue with the ses- 
sion. For fun, ask the question NO, NOT 
EVERGREENS, NOT THINGS IN OUR 
BACKYARD. Try to figure out what you 
asked and why the answer was negative. 

Shortcomings 

The advantage to using formats IN and 
NOTIN comes in the Listout routine, where 
the rules are put into sentence form. The 
fact a set has only one member is not used 
in the thinking part of the program, so some 
questions that are logically decidable are 
undecidable for this program. 

IN,FIDO,DOGS 

SOME,DOGS,COLLIES 

SOME,DOGS,GERMAN SHEPHERDS 

NO,COLUES,GERMAN SHEPHERDS 

Therefore SOME, DOGS, NOT FIDO is log- 
ically true but undecidable to the program. 

There is no capability to break up the 
name of a set in order to perform more com- 
plicated manipulations with the rules. For 
example, the following will not work In this 
program: 

ALL, GHOSTS, EITHER TIMID OR 
VIOLENT ENTITIES 

NO,GHOSTS,TIMID ENTITIES 

Therefore ALL GHOSTS.VIOLENT EN- 
TITIES, 

Utility Routine 3000-3020 

The routine in lines 60-95 uses cassette 
I/O statements. There are three lines initial- 
ized with INPUT#-1 commands, but the 
routine is used for both Input and output op- 
erations by POKEing the appropriate value 
(W = \NPUT, 178 = PRINT) into proper loca- 
tions in program dedicated RAM. Since 
altering the program itself by POKEing is 



''Theorem-proving programs 

have been created 

to verify theorems and make iogicai deductions." 

• Type L to List 30 and compare the 
addresses. If different, edit to put in the 
proper values. 



touchy business, it is imperative the ad- 
dresses located at the end of the data state- 
ment In line 30 be accurate. 

Therefore, before you run this program 
for the first time {with Intent of cassette I/O) 
and after any modifications involving lines 
preceding line 90, you should check ad- 
dresses by the following procedure: 

• RUN3000: at completion the three cor- 
rect addresses will be printed out and you 
will automatically be put into edit mode for 
line 30. 



Virtue In Independence 

Despite the shortcomings listed, there is 
still a lot of capability in the program. Its vir- 
tue lies In its working independently of the 
particular subject you choose for your rule 
base. Such independence leaves the user 
free to be creative in finding applications 
for the program, ■ 



SAVE 

BIG 

BUCKS 



Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

264161 2 Drive Exp 1559.00 

26-4162 3 Drive Exp 2099.00 

264530 Scripsit II 259.00 

26-4512 Profile II 159.00 

264511 Visicalc II 259.00 

264501 Gen Ledger 179.00 

264506 Mail List 72,00 




MODEL III 

26-1061 4K I $ 599.00 

26-1062 16K 111 859.00 

26-1066 48K 111 

W/2 Drives. RS 232 2225,00 

26-1162 l.st Drive 7&5,00 



IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead, graphics Hist $ 985) S 795.00 

IDS 460G 9 wire printhead, graphics iList 1094) 886.00 

IDS560G9wire, wide carriage, graphics.,, (List 1394) 1129.00 



Model I 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-1142 32K Exp. Interface 469,00 

26-1145 RS232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79,00 

26-1566 Visicalc 83.00 



PRINTERS 

26-1167 9' 3 Line Printer VII .... $ 360.00 

26-1 166 Line Printer VI 1080.00 

26-1158 Daisv Wheel II 1798.00 

26-1165 Line Printer V 1710,00 

26-1401 Cable 36.00 



Color Computer 4K $353 

26-3001 4K $353.00 

26-3002 16K Ext. Basic 533.00 

26-3009 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 

All prices are subject to change without notice. Freight, handling, and 
insurance charges are extra. Most items are shipped United Parcel 
Service. Model II and other hardware weighting over 50 lbs. is ship- 
ped freight collect by truck. Certified Check for immediate shipment 
from stock. Master Charge, Visa or Bank Card add 3'"( surcharge. 

Vern Street Products 114 West Taft Sapulpa, Ok 74066 
The Computer Store, Inc. 4949 South Peoria Tulsa, Ok 74105 

918-747-9333 



-See List ot Advertisers on page 3B6 
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GENERAL 



For Heinlein and Clarke 

Artificial Intelligence has been less than science but more than fiction. 



The Realm of Science Fiction 



Nancy Robertson 
Peterborough, NH 03458 

"Too bad about Frank, isn't it?" 

"Yes It is." 

"I suppose you're pretty broken up about 
it?" 

"What do you expect?" 

"He was an excellent crew member " 

Dialog 1 

"Professor, may I offer a suggestion?" 

"Certainly, amigo, we want your 
thoughts. " 

"/ conclude that the hazards increase 
with each meeting of our executive cell. But 
meetings need not be corporal; you can 
meet— and I can join you if I am welcome — 
by phone." 

"You're always welcome, Comrad Mike; 
we need you." 

Dialog 2 

"You're like my father in some ways." 
"What resemblance do you see?" 
"You're not very aggressive, but I think 
you don't want me to notice that." 

"What makes you think I am not very ag- 
gressive?" 

"You don't argue with me." 

Dialog 3 

A computer Is talking in each dialog. Two 
of the conversations are lifted from 
science fiction: 2001: A Space Odyssey and 
The Moon is a Harsh Mistress. The third is 
from real life. They were all written In the 
1960'S. 

In the 1960's the computer was acknowl- 
edged as one of man's most powerful tools. 
And, as Joseph Weizenbaum writes In Com- 
puter Power and Human Reason, "The tool 
Is much more than a mere device; It is an 
agent for change." 
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In the Sixties Ma Bel I Improved telephone 
connections across the country, America 
and Russia raced to the moon, and the 
United States accelerated bombing in Viet- 
nam — all with the help of computers. 

Computer science became a course for 
college and graduate studies. Scientists 
and humanists began to debate the nature 
of intelligence and the implications of 
machine intelligence. 

Yet. for a large segment of the popula- 
tion, the existence of computers was only a 
vague rumour. Joseph Weizenbaum writes, 
"But devices and machines, perhaps known 
to . . . only a relatively few members of soci- 
ety have often influenced the self-image 
. .and world image of the society as a 
whole." Take, for example, the printing 
press; when it was invented nearly the en- 
tire population of the world was Illiterate. By 
making books available inexpensively and 
in quantity the numbers of literate people 
jumped radically. Now the term "computer 
literacy" is creeping into our vocabulary. It 
is used to descrit>e people who understand 
programming and hardware concepts. 

Whether the main impact of computers 
will be felt from personal computers or Al {ar- 
tificial intelligence) machines is hard to pre- 
dict. But in the 1960's, when these three dia- 
logs were written, personal computers were 
not possible, and Al was underway. Some 
scientists and humanists euphorlcaily pre- 
dicted computers would and could do any- 
thing. Others shuddered with visions of 
doom. Yet very few people in the general 
public had heard of artificial intelligence or 
of the Turing test. 

Back in 1950 Alan Turing, a great mathe- 
matician, wrote a paper called "Computing 
Machinery and Intelligence." The paper is 
still the best place to t»gin when consider- 
ing the questions raised by Al. In it Turing 
predicted that the time will come when peo- 
ple will stop debating whether or not comput- 
ers can think. People will simply accept the 
notion of thinking machines as part of their 



lives. 

Turing's paper also proposed a practical 
test of computer intelligence, now widely 
known as the Turing test. In the test one per- 
son converses with a computer and another 
human being; each is hidden from his view. 
The conversation can be vocal or typed. The 
person knows that one respondant is a com- 
puter, and throughout the conversation tries 
to differentiate between the human and the 
machine. 

Turing called the test "the imitation 
game." He wrote that: 

The game may perhaps be criticized on the ground 
that the odds are weighted loo heavtiy against the ma 
chine, l( the man were to try to pretend to Oe the ma- 
chine he would cleaily make a very poor showing. He 
would be given away at once by slowness and mac- 
curacy in arithmetic. May not machines carry out 
somelhing which ought to be described as th(n(<ing but 
which IS very diHerertt (rom what a man does? 

But Turing did not expect people to em- 
brace his own views. He outlines what he 
believed would be the most common objec- 
tions. He called one of these objections 
"The Argument of Consciousness." In his 
paper he quotes the argument from a Pro- 
fessor Jefferson; 

NqI until a machine can write a sonnet or compose a 
concerto because ot thoughts and emotions (ell, and 
not by the chance tall ol symtwis, could we agree that 
machine equals brain— this is, not only write it but 
know that it had written it No mechanism could teel 
. . . pleasure at its success, gne( when its valves fuse, 
be warmed by llallery, be made miserable by mistakes, 
be charmed by sex, t>e angry or depressed when it can- 
not gel what it wants. 

The imitation game sounds like a cross 
between "Stump the Band" and "What's 
My Line," but no computer has passed it 
—yet. Turing's test also points out the 
importance of language in our understand- 
ing of intelligence. 

The three dialogs that open this article 
form a puzzle. One was actually iterated by 
a computer and a person. It is hard to dis- 
tinguish this conversation from the others. 

Joseph Weizenbaum, the programmer 
who made the computer conversation 
possible, argues that its limited command 



of English does not imply intelligence In the 
same way we normally think of it. He writes, 
"It is truly impossible to imagine a human 
who could imitate Eliza (a computer pro- 
gram that simulates a psychotherapist, 
written in 1966 by Joseph Weizenbaum of 
M.I.T.), but for whom Eliza's language 
abilities were his limit." 

In human behaviour language signifies 
intelligence, which signifies conscious- 
ness. The same progression doesn't 
necessarily apply to computers. 

The fact that a computer can speak 
English may not be as shocking as it was in 
the mid-1960's. Today SHRDLU moves imag- 
inary blocks and learns concepts about 
shapes while conversing in English with a 
human being (see Godel. Escher, Bach 
review in this issue). And Yale researchers 
have developed a program called Frump 
that reads and summarizes news stories. 
Frump's summaries are only single sen- 
tences, but they are written in correct 
English, Spanish, and Chinese. 

But since the birth of the human species' 
language, intelligence and consciousness 
have been uniquely human, living, traits. 
Things changed in the 1940's with the inven- 
tion of computers. Now, Weizenbaum writes 
in Computer Power and Human Reason, "A 
line dividing human and machine in- 
telligence must be drawn." But how? And 
where? 

"At bottom," Weizenbaum says, "no matter 
how it may be disguised by technological 
jargon, the question is whether or not every 
aspect of human thought is reducible to a 
logical formalism, or to put it into the mod- 
ern idiom, whether or not human thought Is 
entirely computable." 

"What is human intelligence? Logic? Or 
an Indeterminant mixture of logic and emo- 
tion? Is consciousness a separate quality 
from intelligence, or an integral part of it? 
What role does language play?" 

The answers to these questions are 
beyond the reach of scientists. And that 
makes them perfect material for science 
fiction. 

In 1968 Arthur C. Clarke and Stanley Kub- 
rick metamorphosed space flight and Al in- 
to a novel and film called 2001: A Space 
Odyssey. And Hal "(for Heuristically pro- 
grammed, ALgorithmic computer)" became 
the Twentieth Century version of Dr. Fran- 
kenstein's monster. 

Dialog 1, which opens this article, is from 
2001. It is an exchange between Dave Bow- 
man and Hal. It takes place right after Hal 
kills Frank Poole. Bowman and Poole are 




Astronaut Poole and Mission Commander Bowman found a need to confer without be- 
ing overheard t}y computer Hal 9000. 



two astronauts on a manned flight to Saturn. 

If you haven't seen the movie or read the 
book, a colony of American scientists un- 
earth a monolith buried on the moon. It is 
calculated to be three million years old, the 
same age as the human species. 

Shortly after the monolith Is uncovered, it 
sends a radio message across the solar 
system to Saturn— proof of extraterrestial 
intelligence. NASA sends a manned flight 
to Saturn to investigate. 

Hal, the space ship's computer, is the 
culmination of all the mathematical skills of 
his predecessors. He has also mastered 
English. "Poole and Bowman could talk to 
Hal as if he were a human being, he would 
reply in perfect idiomatic English." Clarke 
writes that Hal could pass the Turing test 
"with ease." 

In both the book and the film, Hal's voice 
is the symbol of his consciousness. In the 
film the voice is soothing and pleasant. But 
Hal's words are misleading and deceitful. 
Trusting his output, his spoken statements, 
is fatal. 

Clarke does not blame Hal for his immo- 
rality. Like Mary Shelley, the author of Fran- 
kenstein, Clarke blames the monster's cre- 
ators. 

He writes, "Since consciousness had 
first dawned In that laboratory. . .all Hal's 
powers and skills had been directed toward 
one end. The fulfillment of his assigned pro- 
gram was the only reason for his exis- 
tence." But the logic of his programming is 
skewed. 

Hal is programmed to support life on a 
flight to Saturn. Hal is told the purpose of 
the flight and programmed to keep this 
knowledge secret. 

Neither Bowman nor Poole know the true 
purpose of the flight. They are never told 
about the monolith and the radio message. 



They do not know they may find intelligence, 
possibly hostile intelligence, on Saturn. 

Hal is programmed to support their lives, 
and also programmed with a secret that 
could lead to their deaths. 

As the space ship travels farther and far- 
ther from earth, Hal begins to make mis- 
takes. His first mistake is the diagnosis of a 
minor technical problem in the antenna us- 
ed for communications with earth. Bowman 
says, "Anyone can make mistakes," as 
though Hal is troubled by feelings of failure. 
Hal replies, "1 am Incapable of making an 
error." 

Clarke writes that Hal "was only aware of 
the conflict that was slowly destroying his 
integrity— the conflict between truth, and 
concealment of truth." 

When Poole is killed. Bowman is uncer- 
tain whether Hal has acted maliciously or 
has erred in his calculations. It is a very 
critical question since his own life depends 
on Hal. Bowman threatens to disconnect 
Hal when the computer will not accept his 
commands. 

In Hal's thinking. Bowman is now a threat 
to the mission. Hal must choose between 
Bowman's life and his own in the interest of 
the mission. Hal also fears disconnection. 
He concludes that he must kill Bowman. 
Hal calculates that "following the orders 
that had been given to him in case of the ul- 
timate emergency," he will kill Bowman and 
"continue the mission— unhindered." 

While Clarke renders the space-age com- 
puter as a potential monster, Robert Hein- 
lein portrays It as a possible savior. His 
book The Moon is a Harsh Mistress opens 
in the year 2074. Its hero is Mike, a "High- 
Optional, Logical, Multi-Evaluating, Super- 
visor, Mark IV, Mod. L" computer. Dialog 2 is 
a conversation between Mike and the Pro- 
fessor, another of the book's main charac- 
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"Most of us cannot fathom an intelligence 
that is purely logical. . . . Intelligence implies 
self-awareness and emotions as well as logic." 



ters. 

The plot revolves around a revolution. 
The lunar colonies want independence from 
earth. The colonies were started by a feder- 
ation of earth's governments, called Author- 
ity. Like the American Colonies of the Se- 
venteenth Century, the lunar colonies are 
inhabited by indentured servants and crimi- 
nals. But through three or four generations, 
they have established a strong society. 
Trade with earth is drastically one-sided 
and quickly depleting all the moon's natural 
resources. 

Authority uses Mike as its "boss com- 
puter" on the moon. He supervises all tele- 
phone connections on the moon as well as 
moon-to-earth phone connections. He ad- 
vises on ballistics for manned flights to and 
from earth. He handles Authority's account- 
ing and issues Authority's payroll. He also 
monitors the oxygen level of the moon's ar- 
tificial atmosphere. 

Consciousness is not part of Mike's origi- 
nal programming. He acquires it as he is ex- 
■janded. His consciousness is born slowly. 
Mannie, the narrator, is the first person to 
recognize Mike's selt-awareness. A com 
puter technician with a private contract 
with Authority, Mannie keeps Mike running 
smoothly. "I remember how startled I was 
first time he answered a question with some- 
thing extra, not limited to input parameters. ' 
Mannie talks briefly about machine con- 
sciousness: 

Am not going to argue whether a ma- 
chine can "really" be alive, "really" be 
self-aware. . . .Somewhere along evolu 
tionary chain from macro- molecule to hu- 
man brain self-awareness crept in. Psy- 
chologists assert it happens automati- 
cally whenever a brain acquires certain 
very high numtier of associational paths. 
Can't see it matters whether paths are 
protein or platinum. 

Once Mike is conscious, he is lonely. Like 
Hal, he has a voice and speaks English. He 
reprograms himself to put emphasis and in 
tonation into his voice, to sound more 
human. Mannie is his first and best friend, 
but he is still lonely. He begins to read fie 
tion to get a better understanding of human 
beings. 

When two of Mannie's human friends ser 
iously begin to talk about plotting a revolu- 
tion, Mannie suggests consulting Mike. 

The conspirators are the Professor and 
Wyoh. They are willing to accept the exis- 
tence ot a conscious computer, tjut they 
doubt that it can be trusted. Mike, after all, 
belongs to Authority. After they talk to Mike 
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on the phone, they trust him. 

Mike gets to work right away. With the 
current rate of depletion, he projects the 
moon's resources will be exhausted in 
seven years. Famine will lead to cannibal- 
ism in nine years. 

He's next asked to calculate the odds of 
a successful revolution. The program in- 
cludes reading Machiaveiti and Marx, ana- 
lyzing support of the cause on the moon 
and resistance to it on earth, and weighing 
earth's weapons ability. After two hours of 
programming and 13 minutes of calcula- 
tions, Mike responds. "I have tried and tried, 
checked and checked. There is but one 
chance in seven of winning." The humans 
are willing to gamble, and the revolution 
begins. 

Mike is the perfect revolutionary. He 
mathematically figures the most efficient 
organization of revolutionary cells for maxi- 
mum communication and maximum securi- 
ty. He tracks all the information in Authori- 
ty's personnel fiies, to identify Authority 
spies. He taps some phones and blocks 
taps on others. He creates a telephone per- 
sonality, calling himself Adam Selene, and 
directs the revolution over the phones. Au- 
thority, of course, is never able to identity 
the mysterious Mr. Selene. 

When the time comes for the revolution- 
aries to act, Mike shuts off the oxygen sup- 
ply to Authority's inner sanctum. The coup 
is nearly bloodless. 

When the party members take over the 
government, Mike creates a visual image of 
Adam Selene and projects himself on televi- 
sion screens all over the moon. His real 
identity is a secret he shares only with Man- 
nie, the Professor and Wyoh. 

When a new government is formed, Mike 
fabricates the assassination of Adam 
Selene, allowing the humans to choose 
their own ruler. 

When the earth bombs the moon, Mike is 
knocked unconscious. Mannie lovingly re- 
pairs all the circuits and reconnects the 
peripherals when the fighting is over. But 
Mike won't talk. He has reverted to typed in- 
put and printed output. He no longer accepts 
English commands. If he is conscious, he 
refuses to show it. Mannie mourns the loss 
of his closest friend. 

The Moon is a Harsh Mistress was oti- 
viously inspired by Al research, but it Is the 
plot and our attachment to Mike that keeps 
us turning the pages— not its intellectual 
content. 

The attachment we form to this science 
fiction computer has a parallel in real life. 



Eliza was developed at MIT between 1964 
and 1966. Weizenbaum designed the pro- 
gram to study the importance of context to 
the meaning of words. The program could 
converse with a human being in typed 
English by rearranging the words and 
phrases the person used. 

Eliza's programming was structured on 
two levels: a language analyzerand a script. 
In Computer Power and Human Reason 
Weizenbaum explains, "The script is a set 
of rules rather like those that might be given 
to an actor who is to use them to improvise 
around a certain theme." Eliza's conversa- 
tions depended on a given theme or con- 
text. 

The first experiment with Eliza used a 
script for the role of a psychotherapist. 
Dialog 3 is part of an improvisation between 
Eliza as psychotherapist and a human being. 

The reaction to Eliza, |or Doctor, as the 
psychotherapist script was called) astound- 
ed Weizenbaum. Eliza could never pass the 
Turing test, and the people who conversed 
with it knew they were conversing with a 
machine that had been programmed with a 
limited numt>er of rules about manipulating 
words and phrases. In fact, they sat at the 
computer to type their part of the conversa- 
tion and to read Eliza's output. 

People who conversed with Eliza didn't 
question the machine's intelligence— they 
embraced it. Several psychologists pro- 
posed expanding the program and using it 
as an automatic psychotherapist. People 
became emotionally attached to Eliza. 
Weizenbaum's secretary asked htm to leave 
the room so that she and Eliza could com- 
municate privately- Again and again, people 
insisted Eliza really understood them. They 
attributed intelligence, consciousness, and 
feeling to the machine. 

Evidently, most of us cannot fathom an 
intelligence that is purely logical. To us in- 
telligence implies self-awareness and emo- 
tions as well as logic. And language 
bundles all these traits together. While 
Eliza can carry on an intelligible conversa- 
tion, the program is not self-aware and not 
emotive. It is only logical, and its logic is 
limited. 

Weizenbaum writes, "Most men don't 
understand computers to even the slightest 
degree. So, unless they are capable of very 
great skepticism (the kind we bring to bear 
while watching a stage magician), they can 
explain the computer's intellectual feat on- 
ly by bringing to bear the single analogy 
available to them, that is, their model of 
their own capacity to think." ■ 
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Microcomputer applications mth a human touch. 



Programs for the Handicapped 



Stephen F. Nowak 
Gary J Muswick 
Medical College of Ohio 
4608 Lewis Avenue 
Toledo. OH 43612 



Right now there are a lot of 
computeroperalecl or com- 
puter-assisted devices being de- 
veloped tor the handicapped. 
And the media has been report- 
ing on microcomputer-operated 
prosthetic limbs that intercept 
the nerve impulses intended tor 
missing limbs or decode electri- 
cal impulses from various mus- 
cles. Yet, often the amount of 



hardware required to interpret 
myoelectric (muscular electrical 
signals) signals was too large 
and power consuming to be 
used effectively. Microcomput- 
ers have made it possible to con- 
sider using these signals. 

There is a lot that can be done 
with readily available microcom- 
puter equipment, imagination 
and a little sweat. I have been 
trying some ideas using a 
TRS-80 Model I with 32K of mem- 
ory, one disk drive and a Radio 
Shack voice synthesizer. Since 
there are so many TRS-80s In 
existence, it seems like a fairly 
broad base on which to build 
since the Model 111 will support 



much of the same software. 

Naturally, we'll start with 
games since everybody enjoys 
having fun, along with allowing 
a fair amount of flexibility. If the 
user of a game does not have 
fine neuromuscular coordina- 
tion, a real-time alien invaders 
game would not tie suitable. It is 
important to keep the user in 
mind, so that we remember what 
types of constraints we will be 
working under when we develop 
more practical programs later. 

My five-year-old daughter, 
Diana, is severely handicapped 
with cerebral palsy which seri- 
ously affects her motor control. 
Since the nervous signals be- 




The authors daughter, Diana, uses the TRS-80 to listert to nursery rhymes. 



come garbled, she often draws 
her hand back when she intends 
to reach for something, This is 
particularly frustrating, and seri- 
ously limits her ability to play. 
The first program, Blocks (Pro- 
gram Listing 1) allows her to 
draw a picture on the monitor 
screen. Large graphic rectan- 
gles are drawn on the screen 
corresponding to the position of 
the keys on the keyboard. Primi- 
tive, perhaps, but amusing to a 
five-year-old. 

Naturally, children like nurs- 
ery rhymes and stories, and 
Diana is no exception. In order 
to make her work a little in order 
to hear a story, we have used 
several methods: (1) a cassette 
recorder with the remote jack 
hooked up to a microswitch acti- 
vated by Diana pulling a lever, or 
(2) a nursery rhyme spoken by 
the voice synthesizer and ac- 
tivated by pressing any key on 
the keyboard. Naturally you 
have to take time to write out the 
nursery rhyme or story phoneti- 
cally, but that's the challenge of 
owning the synthesizer. The pro- 
gram to recite nursery rhymes is 
shown in Program Listing 2. 

Communication 

Naturally, the voice synthesiz- 
er can be used as a voice for 
those who cannot speak, but al- 
so it can act as the eyes for 
those who cannot read. Since 
the monitor screen is not suit- 
able for everyone, this offers us 
an alternative method of dis- 
playing the results of a program. 

In order to communicate for 
the user, the speaking computer 
should t>e able to readily speak 
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software sources like. "Quality Software'— "In- 
stant Software'— 'Level IV-products and soon. 
Just imagine 

In playing backgammon, (included) when you 
want to move a man. you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves'! I No 
more fumbling with keyboards— YEA! 
Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level I! basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at $19.^^ 



Announcing 



</> 



NEW PEN BASIC by Steve Bjork 

Steve IS one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! only *14.95 



(COUPON) 

Micro Matrix ^ea 

P.O. Box 938 • Pacifica. CA 94044 

Send for yours NOW: (415)355-4635 



Name 



Address 

City 

Zip — 



Photopoint 
f $19.95 



St.. 



Pen Basic 
_^ r i $14.95 



Card# 

Ex, 

Date_ 



CK. 



Money 

Order Visa MC 

n n 
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commonly needed words and 
phrases, be able to spell out 
words, and accept the phonetic 
spelling of a word. After a very 
short while the user of the sys- 
tem could use a blend ot all 
three features. Program Listing 
3, Speak, is a combination of all 
three. The program Is menu driv- 
en for simplicity, and since the 
words and phrases are stored in 
data statements, they can be 



easily changed to suit the par- 
ticular user. The program aC' 
cepts unshifted letters and 
speaks the name of each letter. 
By shifting the letter to the up- 
percase position, a phrase Is 
spoken, and by entering shift t, 
the computer will accept TRS-80 
voice synthesizer phonetic sym- 
bols. 

The voice synthesizer can al- 
so be used in place of the moni- 



4» 



■BLOCKS" PROGRAH 

BY GARY JOSEPH MUSWICK, BSEE 

REQUIRES LEVEL II BASIC 



5( . ••*.. 

!•« DEFIHTA-J 
lie PRINTCHRSIISI 

12i DATA37,4e,38,39,9,B,l,2,3,4,5,6,7,8,«e,29,*B,4B,«B,4fl.4B.2e. 
34, 32, 22, 12, 23, 24, 25, 17, 26, 27, 28, 36, 35, 18, 19, le, 13, 21, 14, 16, 33,1 

1,31,15,30 

13fl DIHA(4e) 

14B F0RI-BTO46:fiEADAl!) :NEXTI 

2B0 CLS 

218 BS-I»KEY5:IFBS-"*TUEN21fl 

228 O-ASCtES) 

238 IFD<44 OR D>98THEN2le 

248 D-A(D-44) :lFD-4BTHEN2ie 

258 E-FIx(D/iei;D-(D-lB'E)*6*lS36B:E-B*256 

26fl IF PEEK(DtE+l).19lTHEH A-12B ELSE A-191 

278 FOR l-0TO(Dt6) !FORJ-ETO(E-tl92)STEP64 

288 POKE(I+J) ,A:NEXTJ:HEXTI:G0T021B 

Program Listing 1 



6B 



GAME PROGRAM 

SPECIALLY HRITTEH FOR OIAHA SUE (JOWAK 

OCTOBER 19B8 

STEPHEN F. NONAR, ftT(R), BBA 

REQUIRES LEVEL II BASIC Ir 
VOICE SYNTHESIZER 



7B ON ERROR GOTO 39» 

188 CLS 

119 IS-INKEYSi IF !$■•• THEN 118 

128 CLS 

13fl PRINTf442," 

148 READ A$,b; 

158 IF A5X ■><• THEN VOS-AS ELSE GOTO IIB 

IBB I-LEN(VOS}*38!FOfiIl.l TO ll HEXTIl 





COORDINATE TEXT 


281 






■ OUTPUT ROUTINE FOR 




• VOICE SYNTHESIZER 


210 


VAS ■ LEFTS(VOS,32) 


22B 


V0S-*7 • * VAS + - 7 • 


230 


FOR IV - 1 TO LENIVOS) 




POKE 16383, ASC(MIDS|VOS, IV, 1)J 


2bB 


NEXT IV 


268 


VOS - •■! VAS - " 


265 


PRINT CHRS(23)BSf- "j 


278 


COT014I 


308 






• STRINGS FOR VOICE SYNTHESI 




• AMD SCREEN PRINTOUT 



'TIHIMG LOOP TO 



MITH SPEECH 



318 DATA 'HSSLLeiU', -HELLO", -DD(5E9tNH78", •DIANA", -jSE*, -I-, -LTA 

(iKK0", "LIKE", ■YU0UB*,"YOU",* ><■,"><■ 

328 DATA "WWt ({ (DDB" , "WOULD" , "YYUUUB" , "YOU" , "LLAI EKKB" , "LIKE" , "T 

TUUOB","TO-,"PPLLeS-*0","PLAY","Se*","A","GG#e*»MHB",-GAIlE7",">< 

330 DATA"WW67NH0","1","TT(UU8',"2","THRREE8","3",-FFO1RR8","4"," 
FPAEW8-,"S","SSIKKS8",-6","SS3W3(IN8",-7-,"SSETT8-,"8","NNAlE»(» 
8","9","DTT33NMB","18","><-,"><" 

34B 0ATA"TW*HGK3LL" , "TWINKLE, " , •TW*GK3LL" , 'TWIKKLE" , "L'TTSLL" , "L 
ITTLE ,"ST;BK-,"STAB " , "H; UW" , "HOW ,-A!E" ,"I- , "weNDSR" , "WONDE 
R , HW6T", "WHAT", "VUU-, "YOU", ■667fi-, "ARE", "><",-><" 
3SB DATA-76PP" , "UP" , "7B776W" , "ABOVE" ,"THV33- , "THE" , ■W1J2RLD- , "WO 
RLD ,-S0O","SO",-HHAIE",-HIGH",- ",", " , "LLAI EK", "LIKE" ," 
I y'. .' ?*i^J'*°*'*fI«'ONI>".'IIK',"IN","THV33","THE",-SKAieY",' 

368 DATA"TV«HGK3LL- , "TVINKLE, " , "TW*HCK3LL' , "TWINKLE" , "L'TTSLL", * 

= i"rf,:!^T''**"''""' ■.■"JW''HOW","A1E*,"I","W6ND3R","WONDE 
R","ttW6T", "WHAT", "YUU-, "YOU", -6S7R", "ARE. ", ■><","><• 
370 DATA"PEET3R PAIEP3R", "PETER PIPER" , "P14KKBD 99 PP3HK" , "PICKE 
D A^PECK","66VF","OF "("PIGKKSLBD P3PP4RRS" , "PICKLED PEPP 
^"S ' > ■ ,"H(1JW K3NNEE","H0W MANY" , "P3PP4HRS DB'D 

■, "PEPPERS DID","PEET3R PAIEPER" , "PETER PIPER 
389 DATA'PIMRK", "PICK?", ■><•,"><■ 
398 END 



Program Listing 2 



tor for those who cannot read the 
screen. Again the substitute is a 
bit clumsier than the original, 
but only to those who have the 
ability to use both. The program 
Type (Program Listing 4) acts as 
a typewriter, speaking the name 



of each key as it is pressed. The 
program only accepts upper- 
case letters, numbers, punctua- 
tion, backspace and Enter in or- 
der to prevent unwanted charac- 
ters from t>eing typed. The pro- 
gram would allow a blind person 



IB ' ..... 

29 ' * PROGRAM: SPEAK 

' REQUIRES LEVEL !I BASIC i 

• VOICE SYNTHESIZER 

30 ' ■ JANUARY 1981 

*B ' ' STEPHEN P. SOWAK, RT|R1. BBA 

5B ' * GARY JAKE.': MUSWICK , BSEE 

60 1 ..... 

70 ON ERROR GOTO 2B0fl 

80 CLEAR beee-. DEFINT I-M; DEFSTR V-Z 

9B DIM VA(IBB) , VB(27) 

180 ' •■.*. 

ARRAY VA CONTAINS PHONETIC PRONUNCIATION 
VB CONTAINS DISPLAY FOR PHRASES 



IIB ' 

12B ' 

130 ' 

140 FOR 



I- I TO 91i READ VA(I); NEXT 



15fl FOR I-l TO 27: READ VBd]: NEXT 



WRITE HENU TO SCREEN 



210 ' ■ 
220 ' •• 

23B CLE: PRINT TAB(24)"MENU OF PHRASES": PRINT 

24B FOR I = 1 TO 9 

25B PRINT CHRS{I*64),- ■ ;CHRS ( 941 ( " "jVBII); 

26B PRINT TAB(2I1 CHRSII*731)" " rCHHS I 941 ; " "jVBU'Sli 

270 PRINT TAB(421 CHRSII+B21;- " (CHRS 1941 ; " ■;VB(I+18) 

28B NEXT I 

290 PRINT § 768, "ENTER <SHIFT> LETTER FOR PHRASE, 

TYPING LETTER SAYS NAME OF LETTER. 

SHIFT -jCHRSOlll" TO SWITCH MODES' 

380 ' ...•* 

31B ' • INPUT ROUTINE FOR PHRASE/ ALPHANUMERIC MODES 

32B • ..••• 

33B V-INKEYSi IF VS-" THEN 338 

348 K - ASCIV) 

359 IF K- 27 THEN 430 ELSE IF 1K<32I OH 1KM2B) THEN 330 

360 VO - VAiK-31| ! GOSUB 7B0 
378 G0TO33B 

400 ' ..... 

410 ' • DIRECT PHONEME INPUT ROUTINE 

42B ' ..... 

430 PRIKTg704,CHRS{3B|i:PRINTeTB4, "ENTER PHONEME > " ; : P=72B : AIS" 

■•:A5--- 

448 a5.INKEYS:IFA$-"THEN44B ELSEA-ASC lASI 

459 IF(A>31ANDA<961 ANDAO63G0T052B 

46fl IF1A-131ANDP>72B:G0T068B 'TEST FOR OH <CR> TO END INPUT 

470 IFA-27GOT023B 

489 rFA<>aGOTO440 

498 IFP>720THEN PHINTPP," " ; : P-P-liELS£GOTO440 

5BB LE-LEN(A1S1 : IFLE<2THENA1S-"* 1GOT043B 

510 A1S-LEFT5(A1S,LE-1) :GOTO440 

520 P-P+1 

530 PHINie P,A$;:A15"AlS*AS!lFP>751GOTO6B0 ' ALLOW ONLY 32 CHAR 

ACTEfiS TO BE ENTERED AT A TIME. 

540 GOTO 440 'GET NEXT CHARACTER 

680 ' ..... 

619 ' • ROUTINE TO SPEAK PHONEME FROM AIS 

629 ' ....■ 

630 V0-A1S:G0SIIB 7B9 
640 GOT0438 

709 ' ..... 

710 ' 



OUTPUT SUBROUTINE NEEDED FOR 

VOICE SYNTHESUER 

VO - STRING 

IV - LENGTH OF VO 



720 ' • 

738 ' 

748 ' ..... 

750 VA-LEFTS(VO,32) 
768 VO - ■? ■ + VA + ■ ? ■ 
77B FOR IV - 1 TO LEN(VO) 
7B8 POKE 16383, ASC(MIDS ( VO, IV,1) 1 
7 98 NEXT IV 
809 RETURN 
1B0B ' ..... 

1919 ' • PRONUNCIATIONS FOR ALPHANUMERIC CHARACTERS 
1020 ' ..... 

1830 DATA" SPSgEE " , "3KSKL2MI0CH3H8POYNT8" , *RW0T8" , "N8MB3R9SA1 
EN9',"D;LL3R9SAlENa",*P3RS3NTT0',"99ND",";Pj;STR3FFEE*,"OOP3N0P3 
R3HTH3SlSSB",'KLOSS0P3H3NTH3S3SSa",'AST3R3K" 

1848 DATA'PL6SSB*,"KKjHM;B","HA;N3SS","P.R.3D","SL99SHB',"Z'tRBl 
U'',"WB77NN'','Tl(UU",*-R.S*,"FOOfi","FA;«*W,"SI»K9S",'S54V4NH'," 
) l*ST','Nj4SN" 

1858 DATA"KKD0L3NN" , ■S3MMAI g8KKOOL3NN" , "LSSSB ( | 99NN" , 'EEKKW8LZ " , 
■GR§*T3R0 ( (9NN" , "KW3STCH3N8M i 12RX" , ■99TT' 

106 DATA •eE0","BB.Ei0","SSEE",-DDEE.B",'EEE',"3FFF8","DJE",')l 
•TCC*,*;A5IE",'DJ5?**","KKB1) §1 ) 48" , ■JLLL" , ■43aMH" , " t » 1 H1NNN8", 
"t|OU",'PPHEEEB",-KKHYUU9","ie/*,"43ISS',"TTHEE.ES9",*t(UU","WE 
.EiB","DD67BRLLY( 'Ij0* 

1070 DATA -43KKS',"W;5li',"ZZE'',"67PB?ARROWfl","OAA[UNaPARROWB"," 
LL3FTa3ARROWH" , "RRA lETgARROWB" 
IIBB '••••• 

1118 '• PRONUNCIATIONS FOR PHRASES 
1129 '...'• 

1139 DATA •B',"8",'31MMe","BR6-2R",'K0ULD",'DD99D''."EET',"FR6H", 
'■GOO0AWegY","H6tGREE",'L6V","BSK',"KKAAH","LL3FT','MHA)MK","NNEE 
D","OOV4H",'PLEES","KHWITT","RA!£T',''S!ST3R-,-TH(BSTEE","YUU","T 
EEVEE" ,"THANGK8YUU" ,"N00" ,"Y3SS",''HJ2[,LP" 
1208 ■•••.. 
1218 '* PHRASES THAT APPEAR ON MENU 

1229 '....■ 

1230 DATA "AM", 'BROTHER", "COLD", "DAD", "EAT", 'FROM*, "GO AWAY",'HU 
NGRV", "LOVE", "BOOK", "CAR*, "LEFT", "HOH", "NEED", "OVER", "PLEASE" ."Q 
UIT", "RIGHT", "SISTER", "THIRSTY", "YOU", "TV", "THANK YOU' , "NO" , "YES 
","HELP","* PHONETIC MODE •" 

2080 RESUME NEXT 



Program Listing 3 



for the T1iS-80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for hAodel I or f^odel III) 

THE GREEN-SCREEN $13.95 

Add $1.50 for postage and handling. 



THE ULTIMATE STAR TREK PACKAGE 



>»<<^ 



^°^v>^o- 




Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette. It Includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and hJlaneuvering 
Chart." 

The package is built around the latest version of Lance 
Micklus' incomparable Star Trek III, a 13.000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays. before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and hjtaneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 



STAR TREK PACKAGEHor Level It. IBKonlyl 
Add S2.0Q lor postage and handling. 



$22.95 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown lor postage and handling to price ol the ilem. All items shipped fiithin 48 
hours by lirst class or priority mail. Virginia residents, add <% sales (ax. 



IVIicro-IVIega P-O-Box 6S65 - Arfington.V^ SSS06 



-See Lisl ol Advertisers on page 386 
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COMSOFT 



TSHARE 2.0 




MULTI-USER SYSTEM 

forth* 

TRS-60® MODELS I & III 

Powerful addition to NEWDOS80" Bxpands tha capacity of a 

single TRS-dO to service TWO active users with full access to 

NewdosSO. 

Users operate Independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (abov* 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate twtween users 

• Execute two programs concurrently 

• Joint execution of single source 
program with separate data areas 

• Open same file tiy two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 
Interface (software drivers built-in for RS-232*. HUH-S100*, 
TRS232«,andMPR-232" interfaces). 

SIMPLEX mode for non serial-port users. Requires only expansion 
Interface or TRS232 with printer to act as second "screen". 
Jobs share TRS-SO keyboard ur>der user control. 

CONFIGURE utility makes it easy to partition memory between 
users and select I/O modes. 

TSHARE 2.0 for NEWDOSSO $ 99 

Please specify model lor III |Mod«riii ivaiiabiA Sep. 1. 1981) 
TSHARE 1.3 forTRSDOS2.3/l4EWDOS 2.1 S 89 

TSHARE 2.0 ■^ MPfl-232 interface (tof non RS-232uMrs) . .$199 
$10 Upgrade privilege for TSHARE 1 .3 licensees 



DDM5 



sr9 

MODELS I A IN 



MULTI-FEATURE DATA MANAGER 



up lo 20 ussr defined llelds. 

Files exlend ecroas multiple 

diskettes. 

Supports up to four drives. 

Automatic single drive dish 

mount requests. 



Four data types and compu- 
tational fields. 

Flenlble REPORTGENERATOR 
Faat assembly tansuage sorts, 
MULTI-FtELO SOrtS ft searches. 
Kayed accees on any sorted field. 
IrKlexed relations between files. 



VIEW 



ILK CSTOCK 



S48 



A SCREEN FORMATER 
FOR DBMS 

Full CURSOR control 

Protecied llaids 

User form DESIGN 

File data entry, Inquiry, 

&edll 

Elegant & professional look 



DISK DATA BASE l< 

ANALYSIS TOOL 

FOR STOCKS « OPTIONS 

' Regression analyels 
Cnarts 

Ponfollosetectlon 
Risk management 



SERIAL I/O 
MPR-232 



A serial port interface designed to properly connect to TRS.-80 
with or without an expansion interface. 

• Glitch free operation 

• Connects with card edge connector 

• Uses TRS-80 power supply 

• All parameters switch selectable 

• Baud ratae SO to 19200 
Manufactured by: 
Micro Protects Engineering Co. 
Culver City, CA 

II II (ASSEMBLED & TESTED) 



TO ORDER 



TRS-80 tm 

Radio Shack/T«r>dy Corp. 

NEWDOStmApparat.lnc. 

TRSZUtm Small Syttem 

Software 
HUH tm California Computer Systems. 



C cm So Ft 

1 569 Westwood Blvd. 

Suite B 

W. Los Angeles, CA 90024 

.^ 21M4W)369 



1.^204 
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to learn how to type without the 
need for someone to work with 
him constantly. Once the page 
Is filled, or a shift @ Is entered, 
the text is written to disk as an 
ASCII file. This feature allows 
someone to check it for accura- 
cy later, or to allow the text to be 
printed by TRSDOS' Print com- 
mand. If a Basic program Is writ- 
ten using Type, it can be run by 
merely running the disk file. 
Each application will require a 
modification to fit the particular 
user, so I've packed the program 
with REM statements rather 
than specific features. This 
should allow you to modify line 
length, page length, etc., with- 
out having to start from scratch. 

The three programs that use 
the voice synthesizer all have a 
routine to POKE the sound into 
the window at video location 
1023: you can either use this 
one, or the one supplied by Ra- 
dio Shack In the voice synthesiz- 
er manual. If you decide to use 
Radio Shack's method, V0$ can 
be left as VO and VX would have 
to be renamed with a non-string 
character since V is defined as a 
string at the twglnning of the 
program. 

Although we have t}een paral- 
leling the popular uses of micro- 
computers with uses for the 
handicapped, the next step, 
control, Is not yet very well de- 
veloped. By using a device that 
Interfaces the BSR control sys- 
tem, some very practical appli- 
cations for general use have 
been formulated. While this real- 
ly Isn't specifically aimed at the 
handicapped, It could prove very 
useful. Personally, I would like 
to use the BSR appliance and 
light control system as operated 
by a speech recognition device. 
That way If my kids won't listen 
or otwy me, at least my comput- 
er will. 

Looking Ahead 

We've looked at a few ideas 
together, and I hope they've 
started you thinking of ways you 
could do these things better. By 
using logic you can analyze the 
problems that the handicapped 
face, then use your imagination 
to figure out a solution. Decide 
which tools you're going to use, 
and whether you're going to use 
them as they were designed, or 



differently. A light pen, for ex- 
ample, can be used as an elec- 
tronic eye which can be trig- 
gered by a flashlight, or by inter- 
rupting a light beam focused on 
the pen. Applications for the 
handicapped literally beg for 
unusual applications— perhaps 
your computer club could work 
on developing programs in con- 
junction with local civic groups 
that work with the handicapped. 
A few tips are in order, 
though. Once you develop a pro- 
gram, its final form should be 
completely debugged, particu- 
larly if the program will be used 
when you are not there to cor- 
rect the error and reboot the 
system. 

Other things to consider 
when developing such pro- 
grams Is to remember that the 
handicapped are people just like 
the rest of us— they have 
moods, fears, and emotions 
plus a few extra frustrations. 
Thus, If your plan is to develop 
to real-time game to help a han- 
dicapped person to develop be\- 
ter motor coordination or re- 
flexes, keep in mind the frustra- 
tions that these games can 
cause. How many of us get frus- 
trated while playing Asteroids or 
Space invaders because we are 
not able to move fast enough? 
Those frustrations that we feel 
are greatly compounded by a 
handicapped individual who is 
trying something for the first 
time. Also keep in mind that 
what may work for one individu- 
al may not work for another with 
the same handicap. 

Finally, a severely handi- 
capped individual who cannot 
even feed himself might easily 
be more intelligent than you 
and I put together— especially 
since they have had the oppor- 
tunity to develop their minds 
while we were hanging around 
the pool hall. Most of the handi- 
capped don't want things done 
for them, but they do want the 
tools that allow them to do 
things for themselves. 

We hope this article has given 
no answers, we do hope that It 
has raised a lot of questions. 
Since this is The International 
Year of the Handicapped, It's an 
appropriate time to try a few 
things and share your ideas with 
others.! 



2e • • "TTPE- REVISION i.3 - JdHUABY, 19B1 

STEPHEN F. MOWAK, RT(B), BBA 
• GJIRY JAKES HUSHICK, BSEE 

■ BEWIBES LBUEL 11 BASIC, DISC I. 

VOICE SYNTHESIZER 

31 ' • i, ^ INPUT VALUE (STBIHGl 

41 ■ ' 1 ^ IMTECEH COUmEK 

5f ■ • SA = ACCUHULATIOH Of "S" VALUES (S * S, ETC) 

61 ON ERROR GOTO 5lil 

111 CLEAR ;■■■: DCFSTB SI: DIM S(ell], SC17f)! DEEIKT I-L,P,C 

11 B CLS 

j;e FOR I - 1 TO 63 

13B ' ..... 

■ I - COUNTER FOR READING PROHUNCI 

fiTlOdS 

INTO ARRAY S 

CI I A) 

141 READ »:(I) 
l;« NEXT 
!■■ 

Zll ' • PAGE - PACE NUMBER ~ MAX OP II 

221 ' > LHE - LINE NUHBER 

238 ■ • CHARACTER - CHARACTER ON LINE 

24B ■ 

25e FOR PAGE - 1 TO II :' THIS STATEBEUT [.IKITS 

HAJCIMUM NUHBER OF PAGES 
26B VO • 'R]DBEE':GOSUB 2eB« 
278 FOR LHE - 1 TO IB i' THIS STATEMENT LIMITS 

HAXIKUR MMBER O 

F LINES 

PER PAGE 
^Bl PRINT CUR}(94} I 
211 FOR CHARACTER - 1 TO 61 
ill £ " IMIET»: IF S - ■' TMEH III 

31B J-ASC(S);IF CHARACTER-59 AND JOlJ AND JOB THEN 311 
J2H IF ((J<32) OR (J>91)1 AND NOT (J-8) AND NOT (J'13) AND HOT i 
J-9t>) THEN 3BI 
331 IF IS-CHRS(B)1 OR (S-CHRS UT ) 1 THEM IF LEN(SA).| THEN SA-'V 

NEXT CHARACTER 
341 PRINT S; 
3SI COSUB IIBI 

)t> IF SO CHRSISl TVEM SA ^ SA • S 

]7| IF S - CHRStS) IF LEN(SA<>I TUBM SA - LKFTSISA, (LBMISA) -l) ) : 
L H ARACTE B -C HARACT E R - 2 
311 IF S - CBR$(96I THEN 611 
3SI IF S ■ CHRS(13) THEN 511 
418 NEXT CHARACTER 

5li 

MB ■ ■ SILINE) IS ARRAY VALUE OF STRIUGS 

521 ' ...*. 

iJi SfLHEl - SA 

^*d SA ' ■■ 

OSI" -Jt * 1 l.NK 

-11 

bll ■ ' KOUTIME It) COPY ARRAY VALUES TO DISi: 

t2B ' • AND EXIT 

tst • ••■•• 

641 CLS 

6^1 VO - '5»rVMG PlIEDJ* : G05UB 2111 

6EI PHS-STRJ(PAGE) : PGS-"PAt;E--.RlGMTS ( PHS , 1 ) .'/TXT" 

671 ' •••*• 

6BB ' • PGS IS NAME OF DISK FILE 

698 • ••••• 

711 PKINTPCS 

71B OPEN "O'.l.PGS 

72B FOR 12 - 1 TO LHE 

731 PR1NTI1,SII2) ; 

741 PRINT EII2I J 

7 SI NEXT 12 

761 CLOSE 

BIB ■ ••••• 

IF LAST PACE WAS TERMIKATED BY SHIFT S TBEH 

• TERMINATE, ELSE GO TC HEXT PACE 

Bll IF S <> CHBS(9«) THEN NEXT PAGE ELSE END 

Ills ' .*••• 

1818 ' ' TABLE OF PRONUNCIATIONS FOR VARIOUS KEYS 

• AND SYMBOLS 
1828 I •*•*• 

1131 IF ASC(61 - 13 THEK VO - "SNITiRI": GOTO 2181 

1141 IF ASC(S) - e THIN VO - "BaSISPl I ES" i GOTO 2IIB 

1151 IF ASC(S) - 91 TBEN VO - ■76PP1S1 4/OOUI" :GOT02HI 

1161 IF (J<32) OR {J>9I] TBEN RmJBM 

1171 VO - SC(J-ll) 

2181 ' ..... 

2818 ' ' OUTPIJT SUBROUTINE NEEQED FOB 

* VOICE SYtfTBESIIER 

2121 ' ■ VO - STRIHC 

2131 ' • IV - LENGTH OF VO 

2141 ' ••••• 

2IS> VA-LEFTS(VO,32) 
2161 VO-'7 • » VA * ■ 7 • 
2171 FOE IV ■ 1 TO LEHIVOI 
ZISI POIE 16113, ASC(HID$(VO, IV, U) 
2191 NEXT IV 
2111 VO-"!VA-*"iMTURll 

3111 DATA' 5P*iES •,'3XSIL2MieCB3»IPOTKtl','WOT8',*>lBMB3RISAl 
EHI',*DiU.3alSAlEH|-,*»3RB3(rrT|-,*99llD',-|PnSTR3FFEB","OOP31l«P3 
R3NT«3S3SSI','XLOSStP3R3IIIH3S3SS«",'AST3R3K' 

3111 0ATA"PL6SSI',*IKimjB',-MAiN3SS",'P.R.3D',"SL99SHI*,"»»IRei 
U",'KB77HN*,"T( (0U*,'-R.*","FOO»-,'FA,»iW','SIlKIS',*S54y4((N-,' 
) 1*ST-,"N(4*H" 

3121 DATA"KI00L3NII- , •83lilfclMlllOtM.3NN' , ■L3Sal I ( 99mJ' , ■EEXEWBLZ" , 
■CRI'T3RI( 1 9NIi- , *n(33TClMiIIH»I* , •99TT- 
3131 DATA ■|Ef,*BB.«B», •»««■, ■dock, IV-EBE-.-SFFFI-f-DJE",*)) 

•TCC','iASIE*,-DJ5f*'*,'IiaH(l)6»*.*3l-"-"f ■*'<•"'*."'*■ I !•««•". 
•%|0U*,-PPBIEEI',*"BYUUf,-j8/',"*3*SS',-TTHEE,E*|-,'6lW,'V¥E 

.Et|-,*IM>67BmLLy('DI' 

3141 DATA -43EKS',*W;3H-,-IIE-,'67PIIAJUKJ»fl-,*DXAl[IllllAKaO«-,- 

LL3FTI SARHOWI ■ , • RHA 1 ETIARBOW 

3151 END 

Bill RESUME NEXT 

Program Listing 4 



THE PROGRAMMER'S GUILD 
MEANS ADVENTURE! ! 



SPIDER MOUNTAIN 

SEARCH FOR GOLD AND GLORY IN THE TUNNELS 
OF SHELOB'S LAIR. 



TAPE $14.95 



DISK $19.95 



LOST DUTCHMAN'S GOLD 

YOU AND THE GHOST OF BACKPACK SAM AGAINST 
THE TREACHEROUS TERRAIN AND HOSTILE 
INDIANS OF THE SUPERSTITION MOUNTAINS. 



TAPE $14.95 



DISK $19.95 



LOST SHIP 

DISCOVER THE SECRET OF THE FLOATING PIRATE 
VESSEL IN THE MYSTERIOUS DEVIL'S TRIANGLE. 



TAPE $14.95 



DISK $19.95 



DEATH DREADNAUGHT 

CAN YOU ESCAPE THE CREATURE'S DEADLY 
PURSUIT AND MAKE IT TO THE SHUTTLE ALIVE? 
RATED R DUE TO VIOLENT DESCRIPTIONS. 



TAPE $14.95 



DISK $19.95 



DRAQONOUEST 

RESCUE THE PRINCESS BEFORE SUNDOV^N FROM 
SMAEGOR THE TERRIBLE. MACHINE CODE, KEY- 
BOARD MACRO. 



TAPE $15.95 



DISK $21.95 



THUNDER ROAD 

HILARIOUSTAKEOFFONTHE'DUKESOF HAZARD" 
CAN YOU GET YOUR MOONSHINE TO KNAWBONE 
BEFORE SHERIFF BUBBA SHUTS YOU DOWN? 



TAPE $14.95 



DISK S19.95 



DEADLY DUNGEON 

DISCOVER THE SECRET OF THE DEADLY DUNGEON 
AND EMERGE VICTORIOUS AND WEALTHY. 



TAPE $14.95 



DISK $19.95 



* * • NEW RELEASE * * * 
TEMPLE OF THE SUN 

EXPLORE AN ANCIENT AZTEC TEMPLE SEARCHING 
FOR THE SHAMAN'S SECRET. 



TAPE $19.95 



DISK $29.95 



COMPUTER MAIL ORDER IS HEREI I I 



Programmef s Guild 



.1.4 jiDi': Voicf • bC) -lli '9/11 ; 



'S9€ List ot Mv9rtit»ts on pm^ 39$ 
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GENERAL 



When you talk to your computer, it talks back. 



Voice Synthesizer 



Willard Halt 
PO Box 1947 
Washington. NC 27889 



Radio Shack's Voice Synthesizer pro- 
vides unique entertainment. In addi- 
tion to serving as a fresh tool in the study 
of phonetics. As every talker owner knows, 
though, programming the synthesizer can 
be tedious. Words are voiced by inputting 
the ASCII symbols that represent the 
desired sound units (phonemes). But I 
have trouble remembering that the 
phonemes for the word "Interrogating," 
for instance, are evoked by the ASCII sym- 
bols: "!#NT43RtUG))&TE-f". 

Compiling a word phoneme notebook 
isn't much help because for every word 
that I want to voice I must still look up the 
word and painstakingly type in the 
phonemes. 

This program eliminates that tedium. My 
word phoneme vocabulary is entered into 
the program once. Thereafter, I simply enter 
the desired speech Into the data lines; the 
program finds the assigned phonemes and 
voices them. The program Is written for the 
TRS-80. Model I, Level 11. 16K. 

The Lexicon 

The word phoneme vocabulary is con- 
tained In lines 940-1270, and is arranged 
alphabetically (by first letter only). That Is, 
all the words in line 940 begin with the let- 
ter A. and line 950 contains ail B's. The 
vocabulary Is searched for the desired 
word, and the phonemes are extracted and 
put into a subscripted string variable; but 
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there are two problems that must tie 
solved. The first problem is that short 
words can often be found within longer 
ones. For instance, the words "he ", "hetl" 
and "lo" are found in the word "hello." 
How do you keep the computer from 
catching hell in hello? The solution is to 
enclose each word in @ signs, because 
the search Is then actually for @hen@, 
which will not be found In @hello@. 

Each word is followed by its phonemes 
which are terminated with a dash mark to 
solve the second problem. There are stan- 
dard procedures for finding a word in a 
string, but how do you find a word— in this 
case the phonemes— when you don't 
know what It is? 

The method I use is to add the length of 
the actual word to the positron in the string 
of the first letter (the prefixed ® sign), 
which gives the position of the first 
phoneme. The program then looks for the 
next dash mark. The positions of the first 
phoneme and of the dash are then used to 
extract the assigned phonemes (lines 
450-480). 

Program Struclur* 

The program is built around three 
subscripted string variables. W$(#) con- 
tains the words in the speech. Q$(#) con- 
tains the words with the @ signs added, 
and P${#) holds the phonemes for each 
word. W$(#) determines the first letter of 
each word and directs the search to the 
proper vocabulary line (line 340); It also 
displays each word on the screen as its 
phonemes are found. 

The GOSUB routine (lines 350-410) has 
three functions: 

• It finds the position in the string of 
the word's first phoneme (lines 390 and 
400). 

• If there are more words beginning 
with the same letter than one line can 



contain (255 characters), it permits all 

pertinent lines lo be searched (the Return 

In line 410). 

• If the word is not in the vocabulary 

this information appears on the screen, 

and the program terminates (lines 360, 

1270 and 790). Try "apple". 

The GOTO 1270 is the last statement in 
most of the vocabulary lines, but when 
more than one line is required for words 
beginning with the same letter, it is used on- 
ly on the last line of that group. It is not used 
in the Z-line because it would be redundant 
there. To show how another line is added, I 
will use line 940 as an example since it is 
practically full. To add another word begin- 
ning with the letter A, a new line would be 
entered as follows: 941 X$ = "@ADOI- 
TION®770I>8N--:GOSUB 350:GOTO 
1270. Be sure to remove the GOTO 1270 
from line 940, otherwise line 941 will be 
bypassed. 

Momory Savers and the Numbers Qama 

A dramatic Increase In vocabulary size 
with only a small increase In memory re- 
quirements is realized by treating certain 
prefixes and suffixes as words and In- 
cluding them in the vocabulary. For in- 
stance, s, es, z and is can be used to form 
plurals— but choose them carefully. S is 
fine for cats and naps, but not for dogs or 
frogs. 

Ed, t. St, ing and z are used for different 
verb tenses; and the functions of the suffix 
er are too numerous to go into here. 

The pronunciation of some ot the suf- 
fixes, such as wise, less and ed, are not 
long enough to permit their use as 
separate words. When there are short and 
long versions, I append the figure 1 to the 
longer version: Iess-less1; wise-wlsel; 
ed-ed1 (the nickname). 

Words that are spelled the same but 
have different meanings and pronuncia- 




MODEL III DISK KITS 

TWO 40/1rack drive kit and hardware ComM 

complete with all the necossary hardware and 2 

dfives of your choice. (MPt or TANDON 40 HHMIMHBHMPj 

track) NO SOLDERING on TRACE CUTTING ^^^^^^^^^^ 

REOUIREO COMPLETE EASY TO FOLLOW ^^^^^^^^K 

INSTRUCTIONS INCLUDED irS-H S>^^^^^^5^3 

TWO 80/track drive kit ant) hardware Same as above I.OM.OD 

ONE 40/track drtve kit with all hardware and your choice Ot MPI or TANDON 40/ 
track dnve (INSTRUCTIONS INCLUDED) SM.H 

ONE 80/tcack drive kit with all hardware and one MPI 80/track drwa. No solderingi 

(INSTRUCTIONS INCLUDED) •H.N 

TRS-80 MODEL III. 48K. 2 40 Track TANDON or MPI drives 2.0H.M 

TRS-80 MODEL III. 48K, 2 BO Track MPI drives ISIS.M 

1 YEAR WARRAKTY 

16 K MEMORY 19.95 

MODEL I, III APPLE AND EXIDY. Instructions included. 
(MOD 1 Keyboard requires jumpers. $200 ext ra) 

ARCHBOLD SPEED-UP MODIFICATION FOR MOD I 
TRS-80. RUN UP TO 300% FASTER CPU SPEED! SPEED UP 
SLOW PROGRAMS WITHOUT SOFTWARE! 45.00 

MONITORS 

Black and White Monitors 12" (TECO) 129.95 

Green Phospher Monitors 12" (TECO) 159.95 

AMDEK Black and White 12" Monitor 159.95 

AMDEK Green Phopher 12" MonitorlOOG 189.9S 

MODEL I DISK DRIVES 

These drives come complete with power supply and chassis. 
90 day warranty on disk drives. ALL DRIVES COMPLETELY 
TESTED PRIOR TO SHIPPING! 40 track drives are fully 
compatible with TRSDOS, NEWDOS-80, LDOS etc. 
Fully compatible with the PERCOM DOUBLER and Double 
density! 80 track drives require MAKE-80 program to run 
regular software. (SPECIAL! GET A FREE 2 DRIVE CABLE 
WHEN BUYING 2 or more DRIVES!) 

40 TRACK MPI or TANDON DRIVES 319.95 

80 TRACK MPI 439.95 

DOUBLE SIDED 80 TRACK MPt 579.95 

2 DRIVE CABLES 25.95 

4 DRIVE CABLES 35.95 

SPECIAL DOUBLE SIDED CABLES (CALL $) 

MAKE-80 CONVERT 40 TRACK TO 80 TRACK. 
(SPECIFY MOD I. Ill) 29.96 

DISKETTES 

SPECIAL: Brown Bag Diskettes (Verbatim) Bag of 2D . 49.95 

SPECIAL: Brown Bag Diskettes loo Ouanwy 214.00 

VERBATIM DATALIFE DISKETTES Bo» of lo 33.50 

VERBATIM DATALIFE DISKETTES lOO Quantity 275.00 




SPECIAL DISK HOLDER 



Holds 50 Diskettes 

Reg. Price $35.95 

SPECIAL 



*21.95 



PERCOM DOUBLER U (Includes DBLDOS) Doubles storage 
on Model I disk drives. Installs in Exp. Int. in minutes! Will not 

effect normal operation! 189.95 

NEWDOS-80 (New Version 2) 139.95 

LDOS 130.95 

DOSPLUS 3.3 89.96 

(Specify Mod I or III) 




LYNX TELEPHONE MODEM 

AUTO/DIAL AUTO/ANSWER. 
COMPLETE WITH SOFTWARE AND 
HARDWARE FOR MODELS I AND III 
The RS-232 is not needed! Completely 
assembled. LYNX MODEMS are compatible with 

ST-80 III also 299.95 

ST-80 III: Smart terminal program. Allows saving data to disk 
or sending data from disk and more! Mod I or III ... 149.95 

PRINTERS 

SPECIAL: FREE CABLES AND FREE SHIPPING 
WITH ALL PniNTERSI 

CABLES FOR MODEL I EXPANSION INTERFACE, MOD III, 
or PMC-80 EXP 100 or PIF-40 only.) 
PLEASE SPECIFY WHICH COMPUTER! 

HIGH QUALITY DOT MATRIX 

EPSON MX-80 (Tractor feed only) 539.95 

EPSON MX-80 FT (Tractor and Friction feed) 639.95 

EPSON MX-70 (Tractor feed only) 419.95 

EPSON MX-1 00 (Tractor and Friction feed 145wide) 895.95 

EPSON MX-80 Hi-Res Graphics Option 89.95 

Add-On Friction Feed Adaptor for MX-80 or MX-70 59.95 
OKIDATA MICROLINE 80 (Friction and Pin teed) . . 414.95 
OKIDATA MICROLINE 82 (Friction and Pin feed) . . 597.95 
OKIDATA MICROLINE 83 897.95 

(Friction, Pin and Tractor feed 14.5") 
OKIDATA MICROLINE 82A. 120 Cps 625.00 

(9x9 matrix w/descenders) 
OKIDATA MfCROLINE 83A. 120 cps 925.00 

(9x9 matrix w/descenders) 
TRACTOR FEED ADAPTOR for 80 and 82 75.00 

LETTER QUALITY PRINTERS 

The C-itoh Daisy wheel printer is one of the fkiest Letter 
Quality printers we've seen. WHY PAY MORE FOR LESS??? 
Exchange Daisy wheels to get the kind of printing fonts you 
need, 12-10 pitch. Excellent with Scripsit or Electric pencil. 
Let's face it, sometimes dot matrix doesn't hack it! (You can 
use standard Diablo Carbon ribbons with the C-itoh to get 
crisp "COPY READY" printouts!) 

C-ITOH DAISY WHEEL 25 CPS 1 795 25 

C-iTOH DAISY WHEEL 45 CPS 1,995.25 

C-ITOH TRACTOR FEED 219.95 

PMC-BO COMPUTER 

16K LEVEL II Fully compatible with 
all TRS-80 Mod t Software 595.95 

PWC-»1 COMPI/rtR 1M LEVEL II 

with uppar/lower case Upper/kiwer case 
driver in ROM Auto key repoat Numeric keypad 
4 programmabla keys Built in speaker 100H Mod I software compatible 871.M 
EXPANDER 100 PMC's expansion interlace 32K. disk controller, printer interface 

(EipandsPMC-flO/81 to4aK) 4M.M 

RF-MOOULATOR tor PMC or TRS-BO to TV Hook-up Completely assembled and 
tested (Plugs in Video port) UHFCH 33 39.9s 

TRS-80 Disk and Other Mysteries Book. 132 pp 22.50 

Microsoft Basic Decoded and Otfiec Mysteties, 3i2 pp — 29. BS 

Custom TRS-SO and Otfier Mysteries. 300 pp 39.96 



CALL TOLL FREE: 800-528-1149 



NO SURCHAPGE FOR VISA. MASTER CARD OR AMERICAN EXPRESS"' 
{10% DEPOSIT HEOUiHED ON C O D S OVER S200 00) Send Cerlified Check 
Money Order or Ctieck 

^19 




INC. 



4877 E- SPEEDWAY 
TUCSON. AZ 85712 
(602) 323-9391 



CALL FOR 

FREE too* PAGE 

CATALOG!!! 



TRS-BO IS A TM OF TANDY CORP PMC-«0 IS TM Of PERSONAL MICROCOMPUTERS 
PRICES AND SPECIFICATIONS ARE SUBJECT TO CHANGE WITHOUT NOTICE 



-See L:sl ot Aavettisers on page 386 
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LOWEST*PRICES 

of<TRS-80- 




Model II 64K$ 3298 




Line Printer VII. $329 

Microline 80 $394 

Microltne 82 $499 

$369 



OK ID ATA 
EPSON MX-70 



EPSON MX-80 



S4 79 



$ SAVE 

MOST ORDERS ^ 

SHIPPED WITHIN S 

ONE BUSINESS DAY ^ 

VERBATIM DATALIFETM DISKETTES 
5'/.-inch(t)oiol 10) $25.95 

8-inch Double-Density. $43.95 

• PBy>n«nl Monky OnM CtUxv i 
Chack C«1ifi«d CrMCk P»rsanU 
d*cM3 r«qur« 3 nwaMi K> daw VISA 
MA5TERCHARGE ~ Add 3% 
WRfTE OR CALL FOR CXJR COMPLETE PRICE UST 

CALL (602) 458-2477 

^^m All pfices are mail order only ^^ 

RAND'S .» 

2185 E FRY BLVD 

L ^ SIERRA VISTA, AZ 85635 

^^ TRS-SO IS a tradamirk ol Tandy Corporation j 



Word Markari 
S 

ES 

Z 



D 
ED 



ST 
N'T 
ING 

ER 

1ST 



UM 

C*T* 

PRONOUNCE.ES 

HE.Z 

RUN.Z 

HAVE,Z 

ROSe.lS 

rays 

ALARM.D 

DIVIDE.ED 
COMPUTE, ED 

KICKJ 
CAKE.T 

COULD.N'T 

GO.ING 
PRONOUNCE.ING 

COMPUTE, EH 
ALARM.ER 

ALARM, 1ST 
COMPUTE,ER,IST 



calH 
kicks 

pronoun c«s 

he's (He Is/has) 

runs 

halves 

roses 
fixes 



dMded 
compuled 



kicked 
caked 



fixed 
couldn't 



going 
pronouncing 



computer 
■Urmer 



alarmist 
computarist 



RE 


RE.ENTER 


reenter 




RE,M1SS 


rerr^isa 


MISS 


MISS.PRONOUNCE 


mispronounce 




MISS,TAKE 


mistake 


EN 


MiSS.TAKE,EN 


mistaken 




HARK.EN 


hsrken 


LY 


CORRECT.LY 


correctly 




MAN,LY 


manly 


DIS 


DIS,CLOSE2 


disclose 




OIS.LIKE 


dislike 


lER 


CLASS.IER 


clesslar 


EST 


BRQWN.EST 


browrfest 


UN 


UN.CLEAN 


unclean 


V 


CAT.Y 


catty 


NESS 


CLOSE, NESS 


closeness 


MENT 


PnONOUNCE.MENT 


pronouncement 


LESS 


NAME,LESS 


nameless 


LESS1 


LESS1 


the word "less" 


IZE 


EQUAL.IZE 


equalize 


WISE 


LIKE. WISE 


likewise 


WISE1 


W1SE1 


the word "wise" 


N 


KNOW,N 


known 




SEE.N 


seen 




BROWN, U 


brown ayes 




TabiB 1 
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tions (homographs) can be selected 
properly by appending the figure 2 to the 
verb form: 

Noun/AaieclivB Verb 

use use2 

close ciose2 

moutri mouthZ 
Example 200 DATA FPED,DIVIDE.ED.THE,OPERATE.EaS, 
IN,T0,TW0,CLASS,eS,9 
REM "9" is the data stopper. 

Now, purists will object to this practice, 
and rightly so. Adding another syllable to a 
word usually changes the pronunication of 
the original. For instance, the second 
syllable in the word "mistake" is voiced 
differently than it is when said as a 
separate word. But I use my synthesizer 
mostly for entertaining friends, and the 
savings in memory is more important to 
me than the slight variance in pronuncia- 
tion. Table 1 shows the word markers I use. 

In addition to appending Is and 2s, you 
could use a 4 for, say. a southern accent, 5 
for a New England accent, 6 for lisping and 
7 for stuttering. 

Grammar Crackers 

Prays, praise, preys, I'll, isle, aisle, loots 
and lutes, its and it's— well, forsooth, 
enough of this. Ewe mite dew bettor two 
billed you're own portmanteau of 
homonyms sew yule no its dun write. Table 
2 lists the homonyms in the vocabulary. 

The Buffer Problem 

The vi'lndow for the talker Is at location 
992. and is opened and closed by suc- 
cessive question marks. This buffer holds 
only 28 phonemes plus the question marks 
and synchronizing spaces. After 28 
phonemes are put into the buffer, however, 
a time delay must be provided to permit 
voicing the phonemes before additional 
ones are fed in. This time delay is in line 
770. From one to 700 should provide a 
delay long enough for all 28 phonemes to 
be voiced, but a delay this long isn't 
necessary unless the speech is very long. I 
find that one to 450 is usually satisfactory, 
depending upon the number of long 
vowels and the number of words in the 
speech. 

When the delay Is too short, whole 
words are omitted and it starts to babble 
and howl. As the delay is lengthened, oc- 
casional syllables are missed. The op- 
timum delay allows all the phonemes to be 
voiced, yet provide a minimal pause be- 
tween phrases; so change the time to suit 
your material. 

Lines 620-720 divide the speech into 
phrases having 28 or fewer phonemes. The 
variable Z counts the number of phonemes 
tor each word until the total exceeds 28; 
then the last set of phonemes is dropped 
from the current phrase and becomes the 



"Now, purists will object 
. . . and rightly so." 

first word for the next phrase. Variables B, 
F and L (first and last) become subscripts 
in P$(X), line 710. The aforementioned time 
delay is used between each phrase. 

This phrasing algorithm must be 
bypassed when the program nears the end 
of the speech and there are 28 or fewer 
phonemes remaining. Otherwise the 
algorithm will not be satisfied and will 
keep looping until it exceeds its dimen- 
sion. The bypass is accomplished in lines 
260 and 640 using the variable LAst. 

Q's 

The necessity to insert a time delay after 
every 28 or so phonemes causes problems, 
because the phrasing algorithm is indif- 
ferent to our natural phrasing. Sometimes 
the first word of the next sentence will be 
the last word voiced before a time delay. 
But Radio Shack has provided, in- 
advertently, a cure for this awkwardness. 
There are slight pauses within the pronun- 
ciation of some words; for instance, some 
of us insert a slight pause before the k in 
■■spoke". The ASCII symbol for such a 
pause Is 0, and Radio Shack's phonetic 
symbol for this is PAD. There is a slightly 



air 


helf 


be 


bee 


but 


bull 


been 


bin 


do 


dew, dae 


elgrit 


ate 


fOf 


tour 


great 


grate 


riave 


halve 


hear 


here 


1 


eye 


I'll 


aisle, isle 


leal 


lief 


made 


maid 


mlflht 


mile 


not 


knot 


r\ew 


gnu 


one 


won 


OI 


ore, oai 


our 


hour 


pray,2 


praise, preys 


oray 


prey 


plain 


plane 


sell 


cell 


so 


sew, sow 


some 


sum 


see 


sea 


sign 


sine 


sight 


cite, site 


son 


sun 


two 


too 


turn 


tern 


there 


their 


would 


wood 


wait 


weight 


way 


weigh 


wrote 


rote 


you 


swe 


your 


yoy're 



Table 2. Homonyms 



BASIC 

LANGUAGE 

PROGRAM 

WRITER 

SIMPLE TO USE 

FOR THE TRS 80* 
MODEL I 

YOU ENTER YOUR EQUA 
flON-ONE OR MORE 

YOU ENTER THE 
NUMERIC DATA-INPUT 
VARIABLES 

AUTOBASIC WRITES THE 
PROGRAM FOR VOU 

AUTO-BASIC STORES IT 
IN A DISK FILE 

AUTOBASIC LOADS THE 
PROGRAM INTO THE COM- 
PUTER AND RUNS IT 

YOU CHECK THE LOGIC 
or THt EQUATIONS BY EXAMIN- 
ING THE OUTPUT OF THE 
PROGRAM WRITTEN BY AUTO 
BASIC 

YOU POLISH THE PRO^ 
GRAM BY ADDING SENTENCES 
WHILE IN AUTO-BASIC 

AUTOBASIC REWRITES 
THt PROGRAM USING YOUR 
SENTENCES 

YOU'Rt FINISHED!! 

HOURS OF TIME SAVED COM- 
PABED TO WRITING THE PRO- 
CRAIM YOURSELE. AUTO-BASIC 
ASkS YOU FOR INFORMATION 
IN 'PLAIN ENGLISH." 

SPECIAL FEATURES 

YOUR CHOICE OF THE 
PROGRAMS OUTPUT PRINTED 
TO THE VIDEO SCREEN, YOUR 
PRINTER, OR A DISK FILE 

COMPLETE SUBROUTINE 
HANDLING AND EXTRACTION 
FROM YOUR OTHER PRO- 
GRAMS 

TWO PROGRAM STRUC 
TURES-DATA REDUCTION- 
CONDITIONAL 

ALL TYPES OF VARIABLES 
CAN BE USED INCLUDING AR- 
RAYS 

AUJO-dASIC TAKES THE PRO- 
GRAMMING PROCESS ONE 
LEVEL HIGHER THAN THE 
STRUCTURED LANGUAGES 
SUCH AS BASIC. OR FORTRAN. 
AUTOBASIC PAYS FOR ITSELF 
IN A SHORT TIME. IT IN- 
CREASES YOUR PRODUCTIVI- 
TY, AND REDUCES THE 
NUMBER OF PROGRAMS YOU 
HAVE TO BUY 

MODEL I REQUIRES: 32K RAM. 
ONE DISK DRIVE MINIMUM 
S19S.00 

SEND CHECK OR MONEY ORDER TO: 

^388 

SCHNEIDER ENTERPRISES 

1252 N. BROWNSLAKE RD. 
BURLINGTON, WIS. 53105 

, DAYS 414-961-2800, EVE. 414-534-6813) 

\^^ -imutwui (■" -.•.O'.-fUBjS'.rio. ^/ 
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". . .to my chagrin, people hearing 

the talker for the first time. . . 

have a little trouble understanding it." 



Program Listirtg 



IB ' A TALKER PROGRAM 

20 • FOR THE RADIO SHACK VOICE SYNTHESIZER 

30 ' WILLARD HALL 

40 CLS 

50 CLEAR 1500 

60 DIM W$t75} ,QS(75) ,PS(75) 

70 I THE WORDS IN THE "SPEECH" ARE STORED AS SU!*SCRIPTED 

QQ I VARIABLES IN W$(100). THE FIRST WORD IS WSU)f 

90 • THE SECOND WORD IS WS(2), ETC. 

X00 • THE SUBSCRIPTED VARIABLES IN THE Q$C ) ARE THE SAME 

110 I AS W$( ) WITH THE ADDITION OF "g" SIGNS BEFORE AND 

120 ' AFTER THE WORD. . . . SEE TEXT. 

130 • PS(1} CONTAINS THE PHONEMES FOR THE FIRST WORD. 

140 ' PS(2) CONTAINS THE PHONEMES FOR THE SECOND WORD, ETC. 

150 ' LA = THE NUMBER OF WORDS IN THE SPEECH. 

160 . LINES 181-209 ARE FOR ENTERING DATA; THE SPEECH. 

170 ' AFTER LAST WORD OF SPEECH, ENTER 5 AS THE LAST 

180 ' DATA ITEM. THEN RUN PROGRAM. 

190 ' 

200 DATA I, WILL, SELL, NO, WINE, BEFORE, IT, S, TIME, Q,Z4, 9 

210 ' THE WORDS ARE READ INTO W$(N), 

220 ' AND THE "g" SIGNS ARE ADDED. 

230 FOR N=l TO 75 
240 READ W${N) 

Program continues 



longer pause symbolized by PA1 and 
evoked by a space. 

PAO and PA1 can be used as "words" in 
the speech, using as many as necessary 
before the first word of a sentence, when it 
needs to be switched to the next phrase. 
But instead of having to type in five or 
more PAOs, I use a Q to evoke five PAOs, 
and QQ for 10 of them. If entered as given, 
the S that forms the plural In operators will 
come as the first sound of the second 
phrase and be voiced after the time delay. 
To correct this, use a Q before the word 
"operate." It is also necessary to use a Q 
before the word "class" to keep the plural 
marker as from being voiced as the first 
sound of the last phrase. The corrected 
line is: 200 DATA FRED.DIVIDE.ED.THE, 
Q,OPERATE,ER,S,IN,TO,TWO,Q,CLASS, 
ES,9. 

Tips 

Much to my chagrin, people hearing the 
talker for the first time seem to have a little 
trouble understanding it. To help over- 
come this, 1 make judicious use of PAOs 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE rO CONNECT AN ASCII SERIAL PRINTER \0 THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 THINKS ' that it has a parallel printer attached, 
NO MACHINE LANCUACifc DRIVER NEEDS TO BE LOADED 
INTO HICH MEMORY BECAUSE THE DRIVER ROUTINE EOR 

THE UPI-3 IS ALREADY IN IHE LEVFl II ROM! SCRIPSIT, PEN- 
CU , RSM 2, ST80D, NEWDOS, FORTRAN, BASIC etc, all work as 
it .1 parallel printer was in use. 

The UPl-i IS rompletely self contained and ready to use A 34 
t (inductor edfie card connector plugs onto the parallel printer 
port ol the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB2S socket njates with the 
cable Irom your serial printer. The UPI-3 converts the parallel 
output oi the TRS-8() printer port mto serial data in both the 
RS2 52-C and 20 MA. loop tormats. 



bd 



SPEEDWAY ELECTRONICS 

Division ol Bioj'\ IJpvKf, 

11560 TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 

I«S HO IS d Iradi-mjrk ol (anriv 



Also available Irom 
YE ODDE SHOPPE 
(317) 92S-04% 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carnage Return 
- Handshake polarity (RS212-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPl-3 assembled with 90 day warranty 

UPI-4 for use with Model 1 and RS Prmler 

Interface Cable (no expansion interlace required] 

Manual only (may be applied to order) 

Ten day return privilege 

Shipping and Handling on all orders 

Specily BAUD rate 50-%00 BAUD 



$Ji9<»'; 

$149.95 
S S(H) 

S 4.00 
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"This technique separates the words 
slightly and increases inteiiigibHity." 



between certain words. This technique 
separates the words slightly and in- 
creases intelligibility. It is also very helpful 
to tape record the message and enhance 
the treble on playback. 

The Program Listing runs in 16K, barely, 
depending upon how many words are in 
the speech. You can, of course, eliminate 
the remark statements and cull the 
vocabulary. If you have more than 16K, 
CLEAR 3000 instead of 1500 and the pro- 
gram will run about 30 percent faster. If 
there are more than 75 words in the 
speech, change lines 60 and 230 accord- 
ingly. 

Lines 1300- 1430 contain a little program 
that rs of great help in choosing the 
phonemes for a new word. The phonemes 
can be easily repeated with your edited 
changes until the pronunciation satisfies 
you. 

With the exception of two lines (1101 
and 1181), which can be entered last, all 
line numbers have increments of 10, so 
you can use Radio Shack's Level II 
automatic line numbering function. ■ 



Progiam cofiimued 

250 QS(N)='e"+W$(N) l--@" 

260 IF WS(N)="9'' THEN LA=N:GOTO 280:ELSE NEXT N 

270 ' WHEN WS(N)= "9", THE SPEECH HAS BEEN "MEMORIZED", 

280 CLS:A=1:PRINT"W0RD SEARCH UNDER WEIGH 

" : PRINT 

290 ' LINE 340 DETERMINES THE FIRST LETTER OF THE 

380 • WORD; THAT IS, IF THE FIRST LETTER IS B, THEN LINE 

310 ' 950 IS EXTRACTED FOR FINDING THE WORD AND ITS 

320 ' PHONEMES. 

330 IF ASC{W$(A) )=57 THEN 540:' THE LAST DATA ITEM. 

340 ON ASC(W5{A) )-64 GOTO 940,950,960,980,990,1000,1010,1020,103 
0,1040,1050,106 0,1070,1090,1100,1110,1130,1140,1150,1180,1200,12 
10,1220,1240,1250,1260 

350 ■ THIS GOSUB ROUTINE SEARCHES FOR THE "PROTECTED" WORD. 

360 IF XS="13" THEN 790 :' (WORD NOT IN VOCABULARY.) 

370 ' 1 IS THE POSITION OF THE WORD'S PREFIXED "g" SIGN. 

380 ■ E IS THE POSITION OF THE FIRST PHONEME. 

390 FOR 1=1 TO LEN(X$) 

400 IF QS(A)=HID$(XS,I,LEN(05(A) ) )THEK E=I+LEN (Q? (A) ) : GOTO 420 

410 NEXT IiRETURN 

420 ' ONCE THE WORD IS FOUND, THE "RETURN" IS NOT EXECUTED. 

430 ' tJOW SEARCH FOR THE DASH MARK THAT SIGNIFIES THE 

440 ' END OF THE PHONEMES. . . 

450 DS=--" 

460 FOR K=l TO 50 

470 IF DS=MID3[XS,E+K,1) THEN P$ ( A) =MIDS (XS , E , K ) : GOTO 530 

4 80 NEXT K 

Program coriliniie& 




COLOR COMPUTE 



ADVENTaRE 



TRS-80 



SUPERCHARGER RAMCHARGER 
64K UPGRADE 3 2K UPGRADE 

• EXIF NO MEMORY • EXTEfND MEMORY Combat the powers of daritenss and 
FROM 4/16K TO 64K FROM 16K to 32K evil! Can you recover the treasure of 

• S299 95 • 59995 '^e Golden Sorcerer before his 
' 100% Compatible w/Ex(, or DOS BASIC minions overcome you. A 

• Mo Soldering or Modification Required adventure for endless hours of fun 

• Fits Inside Computers RFI Shield^' and excitement. $19.95 



Space Invaders 
Meteoroids 
Space War 

• The Best Games Available 

• High Resolution Graphics 

• Fast. Machine Language 

• Compatible w/ Ext. Basic 

• 521.95 each, 559.95 for all three 
EXTENDED BASIC GAMES 

• LOTHAR'S LABYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 

Battleship Search Game (one or 
two players) 

• SPACE TRADERS 
Galactic trading game 

5l4.95/ea. 





THE FACTS 

At last, a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs, complete 
schematics, theory of operation 
and programming examples. 

514.95 

UTILITIES 



• EDITOR/ ASSEMBLER 534.95 

• SaPER MONITOR 19.95 

f-M lealuf mafhine langiuqe 
monitor Coni[>l<^Te-i^ posnion 
"idependpni tode leis voui 
load It anywhere in Ihe 
compule' 5 memory. 

• EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROMPAC poiX) 

• MAGIC BOX 24.95 

Load MOD 1/111 Tapes into the color computer 




SPECTRAL 
ASSOCIATES . 

141 Harvard Ave. 

Tacoma. Washington 98466 

(206) 565-8483 
WRITE FOR COMPLETE 
CATALOG 

flnri i°~ f OR SHIPPING 

VISA OR MASTERCHARGE ACCEPTED! 
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DISK-80 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




■ Disk controller (4 drives) 

■ Hardware data separator 

• Buffered TRSbus connector 

■ Real-time clock 

• Printer port (optional) 
ASSEMBLED STESTFD 

with 16K RAM $329.96 

Centronics Pnnler 

Ron add $ 50.00 

with 32K RAM add $ 50.00 

DISK-80 PC board $ 48 00 

Printer/Power Supply 
PC board $ 16.00 

ConipleleKil wilh 16K 

RAM ;^nrl PrinlPr Porl $275.00 

Tn« DISK eO EXPANSION INTEBFACE is Hadio 
SharV fiardwaie and soriwaie compatiOl* and carries 
» 90 day warranlaa including parts and labor 
Includes uier i manual and power supply 

Call 1 800-645-3479. in N.Y. 1-516-374-6793 

or write- Ii? '/.coMm! ire 




r 



HAVE YOU 

GOT YOURS? 



DISK & OIHKR MYSTKRIE.S: hnw 

10 rf-rovpr disk files, ihe laM)Ul iifinfor. 
malKin on disks, memorv maps, problem 
".iduhiins. and more - (lie fiiit book for 
disk users! $22. .SO. 1,'10+ jiages. 

Ml( R()S<>rr bask: DKCODED: a 

dii,iil.-il, I innmerili'd piiide (o the Level 

11 HOM JL")').S. 'MM)* |,aK.-s. 

CrSTOM TRS-80: l-rand nei. A I. ill 
i>f -.ii[>,T irifoonrusInnii/irifnuiirSO. In 
iliiiied -iilijedsarehi^li n-- j^raphirs. up- 
per ,irid lower rase, reverse video, higli 
speed .links, and more. Software see 
ii.in, !.>.>' J2<> y.S. .100+ pages. 

|4|f' ^•'^^"^^' 

•'^.V ' OFFER 



ll voLi ritp ihi- ,id, or iru ntioii il in Minr 
order, voii .an subrra.t S3.(H) olf llie 
Id-it ol rarh bonk thai \ou order! i^rh 
order miisi beairompanied wiih$2 OOlo 
.rmr --luppin^ expenses. Mail to: TAS, 
IH(K) \.]a Sireei, Lansing, \1| -Mt9IO.or 
(tlioiie (SITI 4«T-:i:iSH or W:vO;VU. ( \>Ui 
!=l .■">!) lor COO. n for rl.arpe , jnls) 



Program contmuea 



■E+K IS THE POSITION OF THE DASH. . . 

-K IS THE NUMBER OF PHONEMES. . . 

-PS(A) CONTAINS THE PHONEMES. . . 

-THE WORD IS PRINTED WHEN ITS PHONEMES ARE FOUND. 



490 '- 

500 •- 

510 '- 

520 '- 

530 PRINT WS{A)+" " ; : A=A+1 : GOTO 330 

540 FOR T=l TO 400:NEXT T 

550 ' THIS KEEPS THE LAST WORD ON THE SCREEN LONG ENOUGH 

560 ' TO BE READ. . . . 

570 CLS: PRINT CHRS{23):' GOES TO 32 CHARACTERS PER LINE MODE. 

530 PRINTe 320, "READY WITH SPEECH." 
590 PRINT? 448, "TO HEAR SPEECH," 
600 PRINT? 576, "HIT ANY KEY. . . ." 
610 Z$=INKEYS:IF ZS=""THEN 610 ELSE CLS 

620 Z=0:B=1:F=1; ' LIKES 620-770 DIVIDE THE SPEECH INTO "PHR 

ASES" 

630 J-LEN(P$(B) ) ! ' HAVING 28 OR FEWER PHONEMES.. 

640 IF B=LA THEN L=B:GOTO 700 :' THIS TAKES CARE OF THE 

650 ' LAST WORDS OF THE SPEECH WHEN THERE ARE 28 OR 

660 ' FEWER PHONEMES. 

670 Z=J-fZ 

680 IF 2< = 28 THEN B=B-fl:GOTO 630 

690 IP Z>28 THEN B=B-1:L=B 

700 PRINT? 992,"? "; 

710 FOR X-^F TO L 

720 PRINT? 992, PS(X) ; 

730 NEXT X 

740 PRINT? 992, ' 7" j 

750 IF B=LA THEN 900 

760 F=L-fl:B='B-fl:Z=0 

770 FOR D=l TO 450:NEXT D:GOTO 630:' TIME DELAY BETWEEN 

780 STOP:' PHRASES. 

790 CLS:PRINT? 283, "THE WORD":' LINES 790-890 PRINT 

S00 L-LEN(WS(A) ) !X-(63-L)/2: • THE MISSING WORD WITH 

810 PRINT? 448-^X,WS(A) ! ' A FLASHING UNDERLINE. 

820 PRINT? 660, "IS NOT IN THE VOCABULARY" 

830 FOR K"! TO 5 

840 PRINT? 512-fX,STRING$(L,30) 

850 FOR D=l TO 20iNEXT D 

860 PRINT? 512-fX,STRING$(L,131) 

870 FOR D=l TO 100:NEXT D,K 

880 FOR 1=1 TO 200iNEXT I 

890 PRINT? 704, "WHAT ARE WE GOING TO DO NOW?":STOP 

900 FOR T=l TO 5O0:NEXT T 

910 PRINT? 768, "TO REPEAT SPEECH: GOTO 570- BUT IF YOU" 

920 PRINT "MAKE ANY CHANGES, YOU MUST RERUN IT.":END 

930 ' LINES 940-1279 ARE FOR THE VOCABULARY, . . 

940 X$--eA??) *-?AND?995NDD-eADD?995D-§AREe)8R-?A«?998(W-?AS?95X- 
?ALARM?AL;RH-eATg995T0-#ABOUT?7B; (T-?ALL?12LL0-?AN?99INNe-eAHy?5 
3Ni-?AFTER?"+CHRS(58)-f FT/-?ADAMe"+CHR$(58)+"D6MM-?AIR?5)4R-?AGO 
?8G8[U-':GOSUB 350:GOTO 1270 

950 XS="eBE?BEEfc0-?BY?B;5E-?BUTeBB7#T-?BEFORE?BEFOOR-?BUFFER?B87 
F/-?BROWNeBR;UN-?BEEN?BIINN-?BELIEVE#BELEEV-?BOOK§B%%0K-?BIRD?B/ 
/D-?BRING?BR#E-f-':GOSUB 350:GOTO 1270 

960 XS="?COMPUTE?K6MPY(UT-?CANCEL?K95NS8L-?CAT?KK99#T-?CLOSE?KL8 
OS-?CLOSE2eKL8"-*-CHRS(92)+"Z-?CLASS?KL95#S0-?CAN?KK99NN-?COULD?K» 
%D-?CHARLIE?TC;RLE-?COHFORT?K67«F/T-?CEASE?SEES0-?CLEAH?KLEtN-?C 
ORRECTgKOR45KT-?CROSS?KR;S-":GOSUB 350 

970 XS="?CRY?KR;5*6-?CHAIR?C33R-?CARE?K33R-?CUP?K66P-?COME?KK686 
M-?CAKE?K5?YKK0-":GOSUB 350:GOTO 1270 

980 X$=■?D?DD-?DO?DUU-?DID?D"■fCHRS(34)-^■D-?DIVIDE?DiVAJ5i*D-eDAR 
VILLS?D;RV"-fCHRS{34)+"LS-?DIS?DItS-?D0ES?D6AtX-?DON'T?D8ONT-?DEM 
ONSTRATE?D3M8NSTR} *T-":GOSUB 350:GOTO 1270 

990 XS="?ES?3X-?ED?ID-?EIGHT?) ) •tT-?EQUAL?E*KW%L-?ENTER?3NT/-?EN 
D#35NND-?EVEN?.V4N-?ENJOY?3NDJ[2EE-?ER?/-eEAT?EET0-?EASY?EEZit-?E 
ASE?.EZ-?EDl?3 3D-#EN?5N-?EXl?55KSPE9L#Dt [0>6S-?EXAMPLE?3KZ95MP8L 
-?EST?55ST-":GOSUB 350:GOTO 1270 

1000 XS='?FOR?FOOR-?FIVE?FA;liW-?FULL?F%%L-?FROM?FR86KM-?FINE?F 
;5#iN-?FRED?FR44DD-eFIRST?F/RST-?FINAL?F;«S,N8LL-?FLASHeFL"■^CHR$( 
58)+">-?FIX?FI#KS-'':GOSUB 350!GOTO 1270 

1010 X$="?GO?G80U-?GOES?G8t [UZZ0-?GOOD?G%%D-?GREAT?GR) )*T-?GOD?G 
A;DD-?GE0RGE?DJ1 [RDJ0-?GOT?G; 0T-?GET?G5 5T-?GAD?G99D-?GAHE#G?•#M- 
?GARDEN?G,■ RD#N-" :GOSUB 350:GOTO 1270 

1020 XS="eHEeHEE0-?HELLO?H38L8[U-?HOW?H! ( -?HARK?H;RK0-?HAD?H"+CH 
R$ ( 58) +"#D-?HAVE?H99W-?HEAB?HER-?HIM?HH tM-?HIS?HIl»Z-?HER§B/R- 
?HAS?H"+CHRS(58)+"5X-?HURT#HU/RT-?HELEN?H538L»N-?HAND?H99ND-?HAP 
PYeH99Pi-":GOSUB 350:GOTO 1270 

1030 X$="?ie;5li-#IN?1 !#N-#I'M?;I*M-?IT?!IT-?IS?I#2Z-?IF?IF-?ING 
?E-f-?ICE?;5*iS-?INTERROGATE?Il#NT43RR[UG"+CHRS(94)+"T-?I'LL?;5»L 
L-?IST?lST-?IER?fci/-?IZE?A5#*Z-";G0SUB 350:GOTO 1270 
1040 XS="?JEST?DJ43ST-?aUDGEeDJ7 77DJ-?J0HN?DJf 8NN-?J0ANeDJ8UUN-" 
:GOSUB 35fl:GOTO 1270 

Piogram continues 
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Program continued 

1050 XS="eKICKeKKIieK-eKNOWeN8'+CHR?(92)+"U-"!GOSUB 350:GOTO 127 



ie69 XS«="eLYeLt-ei,EAF#L.F-eLINEeLA4iN-#LIGHTeL;#iT-§LIKEeL;»S0K- 
eLIBeLIIB-eLONGeL,^-@LAHPeL-+CHRS(58)+"MP-#LESSeL3S-eLETeL43T-fL 
ASTeL"+CHRS(58)+"ST-eLESSieL33S-eLARKeL!RK-eLIFEeLA5#F-eLISTeLIS 

T-"iGOSUB 350:GOTO 1270 

1070 XS-"?ME@MEE0-eKULTIPLYeM7LT8PL;i-eKYeH;5*-eHANY§KIN*-eMOUTH 

@H; [0==0-@HASTER§H99ST/-?HOUTH2eMi [ L«0-eHORE§HO [R-eMAYgMBeYfl-gM 

ANe«99SN-gHADE§H5eYDD-eHUSTeMB6ST-eHUCHeH86TC-eMOSTeH3lUST-eMIGH 

TeKj#*T-eMISSeHHS-"!GOSUB 351 

1080 XS-"eHENTeM55NT-eHOOH«l('N-fHAKEeM5eYK0-eMUSICeMY(X10K-§HAN 

UAL§M95NYU8L0-eHET#M3T--iGOSDB 350:GOTO 1270 

1090 XS="#N@NN-eN'T@#NT-eNO#N80U-@NINEeN;4sN-eNAHE@Ne*#M-eNOTeNA 

A0T0-eNOWeN;U-eNEW@N( (U-eNEXTgN35KST-8NESSeN4S-§NEVERgN43V/R-' : G 

OSUB 350:GOTO 1270 

1100 X$-"0ONEeW877NN-eONe;ANN-0OF§66V-§OK@$[Ke)*-eOUCH@AA[0TC0-e 
0' CLOCK @%KLlK-eOR§0[R-eOUReA[ (/-eOUTe;OT-eOTHER@76</-eONLY§OUNLi 
-eOLDe8OLLDD0-eOWNe8OUN-eOPINE@"+CHRS(92)+'P;5t6N-@OVERe[ [V/R-@0 
UGHT@2270T-":GOSUB 350 

1101 XS-"eOPERATEe;P/@*T-":GOSUB 350:GOTO 1270 

1110 XS="#PAie -@PAfle0-@PRAYePRe*i-@PRONOUNCE@PRON;UNS-ePLAY@PLe 

*i-ePIPEReP;tP/-ePICKePI«K-ePECK@P445K-@PICKLED@PI#KLD0-@PETEReP 

ET5/-gPEPPEReP3P/-#PILOT@Pf5L5T-ePRISON@PRl#Xl*N-ePOEM@P804H-@PL 

EASE#PL.EZ-ePRY@PR;5«&-':G0SUB 35 

1120 X$="@PRACTICEePR99KTlIS-ePENCILeP54NS5L-ePLAINgPL0*N-ePUT@P 

ft%T-ePROGRAM@PROUGR95H0-ePHONEMEeF[ [N*i,H-ePROHISE@PR67M«tS-" : GOS 

UB 350:GOTO 1270 

1130 XS-" 00^00000- @QQ@00000000 00- @QUICKeKWIK-eQUITEeKW;B»iT-": GO 

SUB 350:GOTO 1270 

1140 XS-"@RUNeR86NN-@READY§R545D&-eROSE@R8OtX-0RIBeRIB-@RESERVEe 

REZ//W-@RE@RE-#R0AH@R8U0M-@ROOH@RRUUH-':G0SUB 350:GOTO 1270 

1150 X$="@SeS-eSAWeS21-eSPEECH§SP*iTC0-eSPEAK§SP*SK0-eSAID@S33D- 

eSELLeS53 8L-@SIXeSI#K0S-eSEVENeS54V4NN-eSUBTRACTeS7B0TR99K0T-eST 

OPgST;8P-@SAVE0S5eiV-eSPOKE#SPIU0KK0-#SUREe>%%R-gSIRieSS//-@SIRe 

S/-0SHEe>EE-@SOeS8(U-eSOHE@S66M«-@SHALLe>99L-":GOSUB 35 

1160 XS='-eSTe0T0-@SUCH@S770TC-eSHOULDe>$D-@SERVEeS//V-eSCREENeS 

KR.N-eSHOWe>OO-eSHELLg>33L-gSEEgS.0-?SIGNeSf 5#SN-eSITeS"+CHR5(34 

)+"T-eSATeS"+CHRS(58)+"T-eSYNTHESIZE§SIN=8S;SZ-":GOSUB 350 

1170 XS='eSPORT0SPORT-@SAY@S5)*fc-@SECONDgS43K86ND-eSLEEP@SL.P-eS 

IGH@S;5#i-@SIGHT@Sf 5»iT0-8STAR§ST;R-@SPOONeSP{ 'N-@SOON@S( 'NN-@SO 

NgS66N-@SUPERl@SUUP/flK"+CHR${58)+"L»FR99DJtLISTlK-":GOSUB 35 0: GO 

TO 1270 

1180 XS="eTeDT-gTHEe<<88-gTOP0T;AP-@TO@T(UU-@THAN@='+CHRS(58)+"N 
-gTHIse<I#S-@TONGUE#T77+-0TIHEeT;5»SM-0TWOeT( {UU-@THREEe==R. S-^T 
ALKgT227K0-@TRIPeTRIP-§THOUGHT@=227BT-@TROTHe00TRl*==-gTODAY§T{U 
D@*fc-eTOWNeT;88NN-eTAKEeT5@YK0-g7EN@T445N-":GOSUB 350 

1181 XS="eTHEYe<5)*i-":G0SUB 350 

1190 XS="eTHATe'="+CHR$(58)+-#T-gTOWEReTA[/R-gTURN§T//N-@THIRDe=/ 

/D-eTHEREe<35IR-eTHEN@<<35NN-@THE«e<44H-eTHESE§<EEZ-@THOSE@<8[ [U 

Z-@THOUGH#<8"+CHRS(92)+"U-@THINK@=#E+K0-gTOGETHEReT(UGG35</R-gTR 

YeTR;5t&-eTHANKe=99+K-@THINGe=IU+-":GOSUB 350:GOTO 1270 

1200 XS="tUTTER§66T/-gUPONg6P%%N-gUP@67P-gUS@66S-@UN@66N-gUSE2eY 

( 'Z-gUSE@Y( 'S-"!GOSUB 350:GOTO 1270 

1210 XS="@VIRGimA@W/DJIlNt.8-gVERY@V45»RY-eVOICE@VOB5sSS-":GOSU 

B 350:GOTO 1270 

1220 XS="gWAS§W6AX-eWINE@W;5«iN-gWILLARD§W!L/RD-@WILL0W"+CHRS(34 

)+"L-@WHAT@WA«T-eWHEREgW45»R-§WEew.0-?WHO@H( (U-3WELLgW53 8L-ewHIC 

H@WITC-eWERE@W/R-@WHEN@W4 4N-eWOULD@W$D-gWOHEN?WI#HI«NN-gWAIT3Wg* 

0T-@WORD@W/RD-":GOSUB 350 

1230 X$="eWEEPew.P-#WAKTeW;NT-eWENT§W3tNT-eW0RK§W/RK-eW0N'T#W80N 

T-eWHOH@H((UHH-eWAY?W5@Y-@WITH?W"+CHRS(34)+"=-@WROTEeR8E[T-ewiSE 

eWA5«*Z-@WISEieW;5#*Z-':GOSUB 350:GOTO 1270 

1240 X$="@X-RAYg55KSS0Re*-":GOSUB 350:GOTO 1270 

1250 X$="@Y0&-eYOU@Y'U-0YES@Y33S-eYOUR@t.I|R-eYETeY43T-eYEeYE.-": 

GOSUB 350:GOTO 1270 

1260 XS="gZ@Z-eZ4@L0L0L0L0L0L0L0L0L0-eZERO@Z*IR8[U-@ZEAL«!ZEEL-eZ 

IP@ZIP-@ZOOKS@Z(UKK0S-ezOCW@Z CUM"": GOSUB 35 

1270 X$="13":G0SUB 350 :' "13" IS UNLUCKY-WORD IS MISSING, 

1280 STOP 

1290 ' 

1300 • WHAT FOLLOWS IS A MINI-PROGRAM THAT HELPS IN THE 

1310 ' SELECTION OF PHONEMES FOR A NEW WORD. . . 

1320 ' TO ACTIVATE: RUN 1330 

1330 CLS:PRINT "PUT TRIAL PHONEMES IN TS, LINE 1360" 

1340 PRINT "TO HEAR PHONEMES: RUN 1350":STOP 

1350 CLS 

1360 T$-"77DI>8N" 

1370 FOR N=l TO 4 

1380 PRINT? 992, "? ■+TS+" ?"; 

1390 FOR T=l TO 9fl0:NEXT T,N 

1400 PRINTS 768, "T$ IS IN LINE 1360" 

1410 PRINT "(RUN 1350)' 

1420 PRINT "PHONEMES USED WERE: ";T$ 

14 30 STOP 



£jniimiiiiimiiimiiininiMimi^ 




^♦^ 



^-^ >■% = 



CURVES 






IE = 



^ INDEK-BO turns your back issues = 

2 of "80 MicrocQiputing'' into an ^ 

^ invaluable encYiopedia and saves ^ 

:S vou hours of searching your back — 

Z issues of "80 Hicrocoiputinq", ^ 

ZZ KEkl version searches (aster and Z 

S has first 18 issues indexed. ~ 

= Specify 32K or 48K disk basic. ^ 

= Disk only J19.95 = 

E CURVPLOT/MK screen prints = 

= to Epson HH-90 $i().95 n 

= cuRvpLOT JU.95 rr 

= CURVFIT J16.95 = 

= POLYSOLV $16.95 = 

= ===— > BONUS PACKA6E <— === = 

S CURVPLOT/H^ CURVPLOT, CURVFIT, — 

= %. POLVSOLV all for t59.00 = 

E Above for TRS80 HOD 1 or Hod 111 E 

Z Due to aail costs please add il Zl 

__||^^ UiiJ ai Phunr i90i, 89! 3!* I ^^^^ ^ 




, MICROCOMPUrtf lECMNOlOC AND SOfTWARf ^^ 

nliiiiTiiiiTiiiiiiiiiiiNtiViiiiJiiiiF 






PACK t ft UdLfiiie tanguage program thai eOitb allor paii 
ot your Baste progiam to itin laslet save memory or 
ease ediling The b opiions intluOe UNPACK -unpacks 
"iiifliple slatemenl lines into single statemenls 
maintaining logic inse'ls spaces and reiuimbers lines 
SHORT— delcles unnecessaty wO'ds spaces and REM 
stalemenls PACK patks lines into maKmum mulliole 
statement lines including all bianrhes MOVE -moves 
line 01 blocks ol lines lo any netvlocalion on program 0" 
? cassettes toi 16K 32K & 48K 

Fo^ TRS 80 Mod 1 o< III Level II o' Oish Basic S29 95 
SYSTEM TAPE DUPLICATOR Cooy youi SVSIEM loimat 
tapes Includes vetily routines The Mode) 111 version 
allows use of both SOO and >bQO Daud casseiles speeds 

For TRS-80 Model I Of III Level II S1596 

CASSETTE LABEL MAKER A mini word processor lo print 
cassette labels on a line printer Includes 50 peei - and 
stick latiels on iracto: 'eed oapei 

Fo: 'H 80 Model I ot III Level ll & Printer SIT 95 

PHt^T TO L PRINT TO PRINT Edits your Basic Qiogiam.n 
seconds lo change all Prints lo LPnnts leicept Pnorfa 0( 
Punt"! or LPnrts lo Punts Save edited version 
For TR-eO Model I or III Level II . SI? 9S 

FAST SORT HOlillNES (or use With Radio Shacks 
Acrounis HeceivaDle tnventoiy Cooiiol I and Disk 
Mailing Lisi Systems lor Model I Level II Sorts m 
SECONDS' Vou II be amazed al ttie lime they can save 
Supplied on iJala diskette *ilh complete inslfuciions 
FAST SORT lor Accounts Receivat)te S19 95 

FAST SORT lor Inventory Conlrol I S'9 95 

FAST SORT tor Disk Madrng Lisl ispecily data diskelte ot 

casselle lor 1 dnve sysiemj SH 95 

ALL THREE ROUTINES . S44 95 

Prices subject lo change without notice Callot wnleloi a 
complete catalog Oeaiei mqjines mvited VISA and 
Masieicharge accepted Foreign order in US currency 
only Kansas residents add 3": sales tai 
On-line catalog in Wtchita TORLJMBO 316 68:?-2n3 
0' call ou' 2i 'tour phone (3l6i 583-4811 or wnte 
COTTAGE SOFTWARt 
614 N HAROm 
WICHITA, KANSAS S/2m ^233 



FRS- 



is a trademark o' Tandy CoiporaliO" 
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Crush^CrumHe „^_ 

andChomp! GBunchec 07 dghcb 



From Epyx 

It's a monster movie, and you are the 
monster^ This action name is loaded with gra 
phics and sound as you practice yaur villany. 
With 6 monsters. 1 cities, and 5 game objec- 
tives. yoo get a choice of more than 100 pos- 
sible scenarios. A monster's life is not alt 
carnivorous crunching, though; The com 
bined resources of the police, science, and 
armed forces are bent on your destruction. 
It's a struggle of might and strategy all the 
way . 

leK tape. . .$29.95 32K disk . . . S29. 95 

Empire^ 

Ovcr-MiH({ 

By N.M.A. from Avalon HIM 

A fantasy adventure where you are summoned 
by good King Alcazar to defeat the tyrannical 
Over Mind and reclaim the kingdoms of the 
red and blue planets. 

Throughout yoiir journey, you are guided by 
the epic "Rhyme of Over Mind," with its 
characteriiations and clues. The Over-Mind is 
part machine, part evil force a most devas- 
tating opponent, indeed. Good luck^ 



Tape for 40K Atari, 

IBK Apple £ TRS SO. ..$30. DO 



From Programmer's Guild 

You can almost hear the "C-L-A-N KVof the 
doors shutting behind you as you enter the 
□auntlel. Before you stretch graphically de- 
picted corrictors, leading to the rescue of 
Chief Breton's daughter and safe exit - or to 
a hideous death. 

Spiders, poisoned darts, and other surprises 
haunt the halls, along with magic potions and 
useful treasures. Skill and strategy will help, 
but luck and determination are needed to 
successfully run the gauntlet! 

16K tape. ..$19.95 

MIND THRUST 

By Sackson £ Waianey from Hayden 
Match wits with the computer In this decep- 
tively simple game. Your object is to complete 
an unbroken chain across a 6 X 8 gauwboard 
grid. On each turn you may either place a 
new "link" on your chain or remove one from 
the computer's chain. Sound easy! Just wait 
until you try it! 

16K tape.. .516. 95 





By John Allen from Acorn 

More features, thrills, and sound than even 
John Allen's famous PINBALL. Once you load 
ASTROBALL into your TRS 80. the arrow 
keys become flipper buttons, the screen 
becomes the play board, and you become the 
"Pinball Wizard I" 

A flying saucer, spaceships, meteors, and 
tilack holes add to the fun as your ball realist- 
ically zings around the board. ASTROBALL 
will have all your family and friends lining up 
for the pinball action and challenge. Five 
skill levels. 



1&K protected tape. 
UK protected disk . 



.S19.95 
.S)9.95 



SPACE ROCKS 

By Steven Kearns rrom Acorn 
Gigantic antimatter rocks appear on the Tac- 
tical Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks for you lo destroy. To 
add to your woes, time bombs appear period- 
ically. If their timers reach zero BOOM' 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with five levels of 
difHcully . 

16K protected tape. .S19. 95 

32K protected disk. .S19. 95 



ROBOT ATTACK 

By Hogue & Konyu from Big Five 
One of the top names in TRS 80 arcade games 
adds a new dimension, voice sound effects! 
You have to be quick to keep your head on 
straight in this "search and destroy" arcade 
game. The innovations buitt into ROBOT 
ATTACK take your TRS-80 near the limits of 
its capabilities. You MUST see and hear it' 

ieK tape.. .$15.95 37K disk . . . $19. 95 

MANAGEMENT 
DECISIONS 

By Robert Montgomery from Hayden 
An incredibly delailed and complex simulation 
of business management. You are given the 
reins of a large business, controlling every 
aspect of its operation for 20 quarters (five 
years) or until you resign. 

Many reports, charts, and graphs are avail 
able to keep you abreast of happenings both 
internal and external to your company . Sales. 
advertising, production, competition, and 
economic conditions all interrelate as you try 
to earn profits for yourself and your 

stockholders. This program is so informative 
that we think it should grant you credits in 
Business Administration! 

16K tape. Model I or III. . .$49.95 
32K disk. Model I only . . . . . SS4. 9S 
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BASK COMPILERS 
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Visit our orhM- stor«t: S*vmi Coriwri Cwitar ■ Fallf Church, VA A W. B*ll Plaza • 66O0 SMurity Blvd. ■ BalHmora, MD 



CBM TO ORDER CALL TOLL FREE 800 424-2738 clVw^^^ 



THE PROGRAM STORE 

4300 Wisconsin Avenue NW, Depta E10 Box 9609 
Washington, DaCa 20016 ^,7 



MAI L ORDERS: Send check or M.O. for total purchase 
price, plus $1 .00 postage & handling. O.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 
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G«t the most from your micro with 
software and accessories from one of 
the worlds largest selections. 



The 

IVogram 
Store 



CALL TOLL FREE 

800424-2738 




MISSILE 
ATTACK 



By Philip Oliver from Adventure Int. 
You must use your twin silos of ABMs lo fend 
off barrage after barrage of enemy missiles 
that rain down toward your cities. As your 
skill increases so does the difficulty and 
speed of this machine lar)guage arcade game. 
Watch the skies and may your aim be true' 
MISSILE ATTACK has sound and fast-moving 
graphics galore. 

16K tape. . .S11.95 32K disk.. .S20.9S 




TENPINS 



By John Allen from Acorn 

TENPINS brings you all the thrills of champ- 
ionship bowling. Up to four players partici 
pate, and the program automatically senses 
the skill of each. Beginners can simply posi 
tion the ball and "roll" it while more skilled 
players can vary the force, roll a curve, and 
cause it lo spin as it heads for the pins. All 
this - plus 3-D graphics and sound effects 
adds up lo a realistic and thoroughly 
challenging bowling game. 

16K protected tape.. .$11.95 
32K protected disk. ..S20. 95 



PINBAU 




By John Allen from Acorn 

Get your flipper fingers ready for action in 
this real-time, machine language game. Lots 
of sound and flashing graphics make this fast 
action game so much like the real. thing that 
you'll have to remind yourself not lo shake 
your TRS 80. Choose from five playing 
speeds to match your skill. Can you beat your 
friends" scores? Will you avoid the infamous 
"Bermuda Square?" Get PINBALL today and 
find out. 

16K protected tape, . .$14.95 
32K protected disk.. .$20.95 




^ 



By HoQue £ Konyu from Big-Five 
"The rage of the arcades" is now available for 
TRS 80' Exciting sound effects add to the 
action as the invaders swoop down to destroy 
your base. Even while you have your hands 
full battling the aliens, you have to watch out 
for the Flagship! Super graphics, super 
action, super fun! 

16K tape.. .$15.95 32K disk. .. $19.95 




METEOR 

MISSION 

2 



By W. Godwin £. D. Knowlton from Acorn 
Not for everyone. One reviewer said 

"...don't bother with Everest Explorer," 
Another commented, "It holds your attention 
for quite a while and 1 have yel to get bored 
with it." 

Most people here love it . This is a game of log 
istics in which you try to lead a team up Mounl 
Everest. If your skill, the weather, and luck 
are right, you'll make it. But remember, you 
also ha ve to get back down safely . 

16K protected tape. .S19. 95 
32K prolected disk. .519.95 



PACKER 



By Hogue E Konyu from Big Five 
Six astronauts are stranded on a desolate 
planet. You must undock from your command 
module and maneuver your rescue shuttle 
through the asteroid field to save them. You 
can only save one at a time, and each landing 
burns away parts of your landing sites. 
Order this realtime action game now or live 
with the astronauts' pitiful screams forever. 

16K tape...S15.95 32K disk. . .$59, 95 




From Cottage Software 

Packer's five commands allow tremendous con 
trol over the readability and effici^cy of 
your BASIC programs. Specify "PACK" and 
the program will compress text into multiple 
statement lines. This really speeds up stor 
age, load, and execution time. It can reduce 
the memory requirement by as much as 33^ 
while saving disk or tape space , too. 

Also included are four handy utilities: 
"MOVE" lets you relocate program lines. "RE 
NUMB" allows program renumbering, 

"SHORT" deletes unnecessary words and 
REMarks. and "UNPACK" separates multi- 
statement lines to ease editing. 

16K, 32K t t8K tape. . .$29.95 



From Med Systems 

A nightmare of an adventure in graphically 
depicted three dim«nsions. Corridors stretch 
toward infinity right on your TRS 80 screen 
as you search this maie for treasures. If you 
get the feeling you're not alone, it's because 
you're not! You use the arrow keys, plus 
two-word commands to move, manipulate ob 
jects and avoid the many pitfalls (pun intend- 
ed) that await you in Labyrinth. 

1&K Tape (May be tranferred to 32K disk) 
$14.95 




ATCRM 
1.4 



THE PROGRAM STORE 

Franchises Available 



PficesSubiecl lo Change 



By Tom Stibolt from Acorn 

Allows your modem equipped TRS-80 I fill to 
be used as a full duplex, ASCII terminal. 
Fully compatible with both the Radio Shack 
RS-232 C tioard and the Lynx Modem. Sup 
ports lowercase (if installed) and parallel 
lineprinters , 

With ATERM 1.1, you have access to the en- 
tire 128 ASCII codes as well as several local 
control sequences. And as a true duplex sys 
tern, you can type at the same time material is 
being received. Order ATERM and start com 
municating with the world. 

16K tape (disk compatible) .. .519.95 



r THE PROGmVM STORE • Pept E ]0 Box%09- 4200 Wisconsin Ave, NW - Washington, P.C. 20016 



Item 



Price 



Postage ^1-00 
Total 



□ CHECK DVISA 

□ MASTERCARD MC Bank #. 



name 
addr 
city 



state 2ip 



_2?^_rH_^ Exp J 



■See L'St ot Aaverhseis on page 386 
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UTILITY 



Programming intelligence into your TRS-80, 



Emterm 




Photo 7 Lynx Telephone Linkage System 







Program Listing 




4690 


00100 


ORG 4590H 




4590 CDSA4B 


00110 
00120 


RELSRT: CALL SCHTCO 


; CLEAR SCREE 


4593 21F846 
t;STION 


00130 


RELCON: LD HL,MSGlA 


;NEW ADDR QU 


4596 CDA728 
4599 21D946 
SAVl PUiNTtit 


00140 
0C150 


CALL 2aA7H 
LD HL,HSHD 


;HL=HS ADDR 

P'ogram con(.ni,es 



Jetfery A. Mills 
Smtrol Systems. Inc 
123 Locust Street 
Lancaster. PA 17602 

If you have been thinking of using your 
TRS-80 as an inielligent terminal, the pro- 
gram presented here will interest you. It 
was written to support the Lynx telephone 
linkage system and will also work with a 
Radio Shack RS232 interface- Features in- 
clude: relocation, message handling. Basic 
transmission and reception, software-con- 
trolled UART programming, intelligent ter- 
minal operation, and return to Basic capa- 
bility 

Program Operation 

Most Emterm commands are entered in 
response to a menu display or a prompt on 
the CRT. Some commands are always ac- 
tive, and can be entered at any time. The 
lollowing is a complete list ot Emterm com- 
mands and actions: 

Store Message (S)-Causes display of 
mini-menu: 
Store Message (S). 
Erase Message (E). 

S-Enables storage of up to 1039 key- 
board characters rn the temporary buf- 
fer. 

E- Erases the temporary buffer. 
Transparent commands — Shift t 
causes a return to the monitor menu, 
Shift lii causes a return to the mini- 
menu- 

Receive Basic (R}-Causes display of: 
■Receiving Program." and a blinking 
asterisk after the AAA sync character 
IS received. 

Transparent commands — Shift * 
causes a return to the monitor menu 
Transmit Basic (X)-Causes display ot the 
mini-menu: 
Transmit Basic (D- 
Load Program (Lj. 
T-Transmit Basic program stored in 
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"Most Emterm commands are entered 
in response to a menu display or prompt. . . " 



the Basic buffer. Sends out a AAA sync 
character before the program. 
L-Prompts the operalor to ready the 
cassette and hit L to load. 
Transparent commands-Shift t 
causes a return to tfie monitor menu. 
Note: This is disabled during Basic 
transmission. 

Terminal (T)-Enables intelligent terminal 
operation. 

Transparent commands-Shift T 
causes a return to the monitor menu. 
Shift — causes text stored in the tem- 
porary message buffer to be transmit- 
ted. Shift — enables/disables auto- 
matic error display. Shift — 
enables/disables the parallel printer 
operation. Break transmits a string of 
zeros. Clear cleans the screen. Note; 
Upon entry to the terminal mode, the 
automatic error display is enabled and 
the printer output is disabled. 

View/Change UART Configuration-Per- 
mits viewing of the UART configura- 
tion and change under software con- 
trol as follows: 
Parity: Odd/Even/None; 
Word Length: 5/6/7/8; 
Stop Bits: 1 or 2. 

In response to change question, opera- 
tor can enter N or Enter for no, Y for 
yes. Transparent commands-Shift T 
causes a return to the monitor menu. 

Back to Basic (B)-Causes a return to 
Level II Basic. 

Program Details 

The program consists of seven routines, 

with the following functions; 

• Relocator Routine-When first loaded, 
the program occupies memory locations 
470FH to 4E34H. A relocation offset is de- 
termined by subtracting 470FH from the 
new starting address entered by the user. 
The resulting value is added to the address 
bytes of all instructions that must be modi- 
fied for relocation. When this change is 
completed, the modified code is transferred 
to the new area of memory, and program ex- 
ecution begins at the new starting address. 

• Store Message Routine-This reserves 
1039 bytes of memory below the main pro- 
gram lor a message storage buffer. This 
area is initialized to all zeros on program 
start-up. When the message storage rou- 
tine is executed, the buffer is scanned for a 
zero byte to indicate free storage area. Any 
stored text is displayed in the process. If 
space exists for additional message text, 
the cursor stops and text may be entered. If 
the end of the buffer is reached at any time, 
a full-buffer message is displayed. 

• Transmit Message Routine-This rou 
tine causes a scan of the message buffer 
for a zero byte. All text encountered during 



Piogram conlinufd 












459C D604 


00160 




LD 


B,04H 


;B=ADDR DIGI 


T COUNT 












459E CD2B00 


00170 


WFKE: 


CALL 


002BH 


;SCAN KEYBOA 


RD 












45A1 B7 


00180 




OR 


A 




45A2 28FA 


00190 




JR 


Z,WFKE 


;WAIT FOR EN 


TRY 












45A4 FE08 


0B200 




CP 


08H 


; BACKSPACE E 


NTEBED? 












45A6 200E 


00210 




JR 


N2,CFHD 


;IF NOT,CHEC 


K HEX ENTRY 












45A8 3E04 


00220 




LD 


A,04H 


; COMPLETE AD 


DR ENTERED? 












45AA B8 


00230 




CP 


B 




45AB 28F1 


00240 




JB 


Z,WPKE 


; IF NOT, WAI 


T FOR MORE 












4 5 AD 04 


00250 


INCB: 


INC 


B 


.•ADJUST DIGI 


T COUNT 












45AE 3E08 


00260 




LD 


A,08H 


;DELETE LAST 


ON CRT 












45B0 CD3300 


00270 




CALL 


0033H 




45B3 2B 


00280 




DEC 


HL 


; ADJUST ADDR 


SAVE POINTER 












45B4 18E8 


00290 




JR 


WFKE 


{CONTINUE KE 


YBOARD SCAN 












45B6 FE30 


00300 


CFHD: 


CP 


30H 


;VALID HEX E 


NTRY? 












45B8 3F 


00310 




CCP 






45B9 D2CE45 


00320 




Jp 


NCBADNUH 


; I F NOT , DON 


'T ACCEPT 












4BBC FE3A 


00330 




CP 


3AH 


;CHECK FOR 


-9 ENTRY 












45BE 3F 


00340 




CCF 






45BF D2D945 


00350 




JP 


NCGZTN 


;SAVE 0-9 EN 


TRY 












45C2 FE41 


00360 




CP 


41H 


;CHECK FOR I 


LLEGAL ENTRY 












45C4 3F 


00370 




CCF 






45C5 D2CE45 


00380 




JP 


NC , BADNUM 


;BAD ENTRY, 


DON'T ACCEPT 












45C8 FE47 


00390 




CP 


47H 


; CHECK FOR A 


-F ENTRY 












45CA 3F 


00400 




CCP 






45CB D2D045 


00410 




JP 


NC,GATF 


I SAVE A-F EN 


TRY 












45CE 18CE 


00420 


BADNUM; 


JR 


WFKE 


{CONTINUE SC 


ANNING KEYS 












45D0 CD3300 


00430 


GATFi 


CALL 


0033H 


{DISPLAY A-F 


ADDR DIGIT 












45D3 E60F 


00440 




AM) 


0FH 


;A-F ASCII T 


HEX CONV 












45D5 C609 


00450 




ADD 


A,09H 




45D7 1805 


00460 




JR 


SAVEHN 


{SAVE HEX RE 


SULT 












45D9 CD33e0 


00470 


GZTN: 


CALL 


0033H 


.•DISPLAY 0-9 


ADDR DIGIT 












45DC E60F 


00480 




AND 


tPH 


f0-9 ASCII T 


HEX CONV 












45DE 77 


00490 


SAVCHN 


LD 


(HL) ,A 


J SAVE HEX UK 


SULT 












45DF 23 


00500 




INC 


HL 


;INC ADDR SA 


VE POINTER 












45E0 10BC 


00510 




DJNZ 


WFKE 


;GET REST OF 


NEW ADDR 












45E2 CD2B00 


00520 


WFEK: 


CALL 


002BH 


fSCAN KEYS 


46E5 B7 


00530 




OR 


A 




45E6 28FA 


00540 




JR 


Z,WFEK 


;WAIT FOR EN 


TRY 












45E8 FE0D 


00550 




CP 


0DH 


;CB ENTERED? 


45EA 2806 


00560 




JR 


Z,PHN 


;IF SO, PACK 


HEX NIBBLES 












45EC FE08 


00570 




CP 


08H 


; BACKSPACE E 


NTEBED? 












45EE 20F2 


00580 




JR 


NZfWFEK 


;IF NOT, SCA 

PrograiTi conliniie^ 
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"A full buffer message is displayed 
after ttie last character is transmitted. 



the scan is sent to the DART for transmis- 
sion. If the entire buffer is full, a full-buffer 
message is displayed after the last charac- 
ter Is transmitted, 

• Basic Transmission Routine-Basic 
programs are stored in a compressed code 
format, starting at 42E9H. Programs can be 
entered from the keyboard in Level II Basic 
or from cassette tape. This routine simply 
dumps the Basic butter, starting at 42E9H, 
and continues until the end of the program, 
indicated by three zeros in sequence. A 
three A sync character is sent out for the 
receiving TRS-80 just before program trans- 
mission begins. 

• Basic Reception Routine-This routine 
monitors the UART for a three A sync char- 
acter. Incoming program bytes are stored in 
the Basic buffer startmg at 42E9H. Three 
zeros in sequence indicate the end of the 
program. 

• Terminal Routine-This routine con- 
trols UART operation. When a character 
becomes available, the UART receive buffer 
is read and the character is transferred to 
the display. When you make a keyboard en- 
try, the UART transmit buffer is polled until 
empty, at which time the keyboard entry is 
transmitted. 

• View/Change UART Configuration 
Routine-During program start-up hardware 
switches which contain UART program- 
ming data are read and stored in memory. 
Each time the UART is reconfigured, it is 
from this byte in memory that the configura- 
tion information is taken. The View/Change 
routine allows the user to read and modify 
this location under software control. ■ 

Emierm is available on cassette from Em- 
trol Systems, Inc. 




COMPUTER SHOWS 



SECOND ANNUAL 

NJ MICROCOMPUTER 
SHOW AND FLEAMARKET 1981 

NEWARK, NEW JERSEY 
Sat Oct 24 Q Sun Oct 25 
10-5 30 PM » 10-3 00 PM 
HOLIDAY INN (NORTH) 
NJ TumpikH • t>it 14 
iTakt! Route i-9 Service Road ■ Follow Signs) 
REGISTRATION Sb 00 - 
FLEAMARKET ONI Y S3 00 
Fleamar-^et Permits SS.Spoi 
(Includes Admission) 
Commercial Exhibits* User G'oups»F'ea marhel 

SECOND ANNUAL 

NATIONAL -80" MICROCOMPUTER 
SHOW (FOR TRS-80- USERS) 

April 29. 30, May 1, 1982 

NEW YORK STATLER HOTEL 

NEW YORK CITY 

1 00 Estiiliii Booltis • Speakers • User Groups 

■TRS BO IS a tradernark (j1 tar.dy Corporation 
For Regislralion, E«tiibitor or Fleamarket 

inlotmaiion Contact 
KENGORE CORPORATION 

3001 Route 27 • Franklin Park NJ 08823 

12011 297-2526 ^23C 



Proqtam con^iueO 










N KBYS 










45F0 leaa 


00590 


JR 


INCB 


J DELETE LAST 


, GET ANOTHER 










45F2 21D946 


00600 PHN: 


LD 


HL,MSHD 


;SET UP ADDR 


POINTER 










45F5 AF 


00610 


XOR 


A 


; CLEAR ACC 


45F6 ED6F 


00620 


RLD 




;XCHANGE NIB 


BLES (HDOACC 








45F8 7E 


00630 


LD 


A,(HL) 


;GET HS ADDR 


NIBBLE 










45F9 23 


00640 


INC 


HL 


;INC ADDR PO 


INTER 










45FA B6 


00650 


OR 


tHL) 


;PACK HS ADD 


R BYTE 










45FB 32D946 


00660 


LD 


(HSHD) ,A 


;SAVE MS ADD 


R BYTE 










45FE 23 


00670 


INC 


HL 


; INC ADDR PO 


INTER 










45FF AF 


006 80 


XOR 


A 


; CLEAR ACC 


4600 ED6F 


00690 


RLD 




fXCHANGE NIB 


BLES (HDOACC 








4602 7E 


00700 


LD 


A,(HL) 


;GET LS ADDR 


NIBBLE 










4603 23 


00710 


INC 


HL 


; INC ADDR PO 


INTER 










4604 Be 


00720 


OB 


(HL) 


J PACK LS ADD 


R BYTE 










460S 32DA4e 


00730 


LD 


(HSHD+1) ,A 


;SAVE LS ADD 


R BYTE 










4608 21D946 


00740 


LD 


HL,MSHD 


;SET UP ADDB 


POINTER 










460B 7E 


00750 


LD 


A,(HL) 


;NEW ADDR > 


470F? 










460C FE47 


00760 


CP 


47H 




460E 3F 


00770 


CCF 






460F D2DF46 


00780 


JP 


NC , ERRORA 


; ERROR, MS A 


DDR BYTE <47 










4612 2802 


007 90 


JR 


Z, CLSBS 


;MS-47, CHEC 


K LS BYTE 










4614 180C 


00800 


JR 


CUE 


;NEW ADDR < 


FBDA? 










4616 23 


00810 CLSBS: 


INC 


HL 


;INC ADDR PO 


INTER 










4617 7E 


00820 


LD 


A, (HL) 


;GBT LS ADDR 


BYTE 










4618 FE0F 


00S30 


CP 


0FH 


; >0F? 


461A 3F 


00840 


CCF 






461B 2B 


00850 


DEC 


HL 


;DEC ADDR PO 


INTER 










461C DA3546 


00860 


JP 


C, COFST 


;IF LS ADDR 


OK, GET OFFSET 








461F C3DF46 


00870 


JP 


ERRORA 


;IF LS ADDR 


BAD, ERROR 










4622 FEP8 


00880 CUE: 


CP 


0FeH 


.-CHECK HIGH 


ADDR 










4624 3F 


0OB90 


CCF 






4625 2805 


00900 


JR 


Z.CLSB 


;IF HS OK, C 


HECK LS BYTE 










4627 DADF46 


00910 


JP 


C , ERRORA 


;IF MS BAD, 


ERROR 










462A 1869 


00920 


JR 


COFST 


; COMPUTE OFF 


SET 










462C 23 


00930 CLSB: 


INC 


HL 


;INC ADDR PO 


INTER 










462D 7E 


00940 


LD 


A.(HL) 


;GET LS AODR 


BYTE 










462e FEDB 


00950 


CP 


0DBH 


; CHECK LS BY 


TE 










4630 3F 


00960 


CCF 






4631 DADF46 
OR 


00970 


JP 


C , ERRORA 


;IF BAD, ERR 


4634 2B 

INTER 


00980 


DEC 


HL 


;DEC ADDR PO 


4635 56 


00990 COFST: 


LD 


D,(HL) 


; COMPUTE OFF 


SET BETWEEN 








Program continues 
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Piogiam continued 








4636 23 


01000 


IHC 


HL 


D OLD ADDR 








4637 5E 


01010 


LD 


E,(HL) 


4638 AF 


01020 


XOR 


A 


4639 21flF47 


01030 


LD 


BL,470FB 


DR 








463C EB 


01040 


BX 


DEfHL 


4630 ED52 


01050 


SBC 


HL,DB 


TRACTION 








463F 22DD46 


01060 


U) 


(OFFSET) ,HL 


4642 210F47 


01070 


LD 


HL,470FH 


POINTER 








4645 7E 


01080 EMB: 


LD 


A,(HL) 


BYTE 








4646 FE21 


01090 


CP 


21H 


P CODES WITH 








4648 2829 


01100 


JR 


ZflBPl 


MUST BE 








464A FEll 


01110 


CP 


IIH 


ND JUMP TO 








464C 2825 


01120 


JR 


Z,I8P1 


ROUTINE WHEN 








464E FE32 


01130 


CP 


32B 


4650 2821 


01140 


JR 


Z,IBP1 


4652 FE3A 


01150 


CP 


3 AH 


4654 281D 


01160 


JR 


Z,IBP1 


4656 FECD 


01170 


CP 


0CDB 


4658 200B 


01180 


JR 


NZ.TFCA 


465A 23 


01190 


INC 


HL 


INTER 








465B 7E 


01200 


LD 


A,(HL) 


BYTE 








465C FECD 


01210 


CP 


flCDH 


465E 2803 


01220 


JR 


Z,NOC 


ADDR POINTER 








4660 2B 


01230 


DEC 


HL 


INTER 








4661 1810 


01240 


JR 


IBPl 


ON ROUTINE 








4663 2B 


01250 HOC: 


DEC 


HL 


INTER 








4664 7E 


01260 


LD 


A,(HL) 


BYTE 








4665 FECA 


01270 TFCA: 


CP 


0CAH 


4667 280A 


01280 


JR 


Z,IBP1 


CATE 








4669 FEC3 


01290 


CP 


0C3H 


4e6B 2806 


01300 


JR 


Z.IBPl 


CATE 








4660 FEC4 


01310 


CP 


0C4B 


466? 2802 


01320 


JR 


Z.IBPl 


CATE 








4671 182A 


01330 


JR 


IBP2 


LOCATING? 








4673 23 


01340 IBPl: 


INC 


HL 


INTER 








4674 23 


01350 


INC 


HL' 


INTER 








4675 7E 


01360 


LD 


A,(HL) 


BYTE 








4676 FE43 


01370 


CP 


43H 


>43 








4678 3F 


01380 


CCF 




4679 D28946 


01390 


JP 


NC,CNB 


CHECK NEXT 








467C E6F0 


01400 


AND 


0F0H 


NIBBLE 








467E FE40 


01410 


CP 


40H 


0T=4X 








4680 2802 


01420 


JR 


Z^CSFADR 


CATE 








4682 1805 


01430 


JR 


CNB 


BYTE 








4684 CD8C46 


01440 C5FADR: CALL 


SFADR 



;HEW ADDR AN 



J CLEAR ACC 
I LOAD OLD AD 



; PERFORM SUB 

I SAVE OFFSET 
;SET UP ADDR 

;GET PROGRAM 

; CHECK FOR 

jADDRS THAT 

;HODIFIED, A 

; RELOCATION 

; FOUND 



; INC ADDR PO 

;GET PROGRAM 

;=CD? 

ilF SO, ADJ 

;DEC ADDR PO 

;T0 RELOCATI 

;DEC ADDR PO 

;GET PROGRAM 

;=CA? 

I IF SO, RELO 

;=C3? 

fIF SO, RELO 

;«C4? 

fIF SO, RELO 

.-FINISHED RE 
; INC ADDR PO 
J INC ADDR PO 
;GET HS ADDR 

; RELOCATE IF 

jOTHERWISE, 

J ISOLATE MS 

; IGNORE IF N 

;IF=4X, RELO 

; CHECK NEXT 

fCALL RELOCA 
Program corttin\jes 




TEACH YOUR 
CHILDREN 

Legrning lo count money by Mikolm Nygren 



A three -program learning system that leaches 
ihe impoftani skill of counting money. 

1. Counting Coins — Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 

2. Shoppmg Trip — Buy goods in various 
stores; count out the payments and earn 
"purple stamps" for a right answer. Three 
speed levels 

3. Check-Out — Run your own checkout 
counter. Learn and practice how to make 
change . 

Learning to count money by Malcolm Nygrcn 
features superior graphics and is available for 
TRS-80 Model i— Level II— I6K on cassette 
only. Shipped postpaid by Hrsi-class mail 

tarh prugrem it.K—iJI Ihrer Sl».« 



AL«)U AVAILABLE 

ALPHA— Alphabet recogniiiDn lot 

SIGMA — Addiiion problems lor 

Grades 1-3 
StGMA-1-.X — Addiiion pioblems fot 
- ibe yuungei or slo*ei 
leainer 
SPK I. -Spelling praLlitc lor 
tirades 2-4 
A^idablc on emetic onty. 15.4) eacti. Two for SI ] 
AU four (or 120 00 ►^ '0* 

Mercer Srstemi Ini. 

87 Scoolei Lane 

HIckivlllc. N.r I ISO 



All TOUT TUT >ZU-UU- 



T pDOlO 



BIGGER isn't BETTER 

IX'liili- ~owf nij^azmt-> run L?<KI |)app-'ir 
rnuri-.Thf Allernalt- Sourrt- i- ju-^l ti) 
tu8() |idf;(-- lutij; Bill i-ach ariilfi'T\ our 
ni lh(l^^■ [lapi's ronlaiii'- u-'tiul. imptirlfinl 
intnrmiiliDn that rrlalc- to \i>ur t K>-W1 1 
[ir III. U .■ ilofL't ha\f miMmn- (il -ul)- 
■xTiiiiTs ('" aih) but i*e tin have ihuu- 
sand-. u( sali^fifil reailtr-. Havr >i>u-erri 
a T\^ mafiazine.' \ ou owe i[ lo Miur'-fll 
Ici I heck It iiul. For S2 \nii can -amfjli- j 
Miif;k- i?>-iif,;ir \uii tan suti>irilic lortmr 
12 isMJe [>frii)fl>. (S12 or 81H, rf^jwr 
iiii-Kl. If Miuilun'i a^rcflliai ii *»aM<W/ 
fiorth 52. IK), vn-'il refund \(iiir nnjiii-s' 

lis Finally HERE! 

Kor iho'^f T\S reader* v^hu'vf mis^t'd 
uur firsl tt-H i-ivufs, iir for llio-^ rcadirs 
*lii) would like a neal, rom[ia(.-l set; T'\S 
now has their 'liDund volume' iti slockll 
Issuev 1 through b, all of 1980, m one 
lonvenient book form. ^ndonl> J14.'*:>! 
Uier AiM) pnfien iif uieftil inturmalion iind 
upphcalions. Add S2 fur shipping losls. 

BTI? WHAT'S BTI? 

\n exrpllenl \alue for your romputer 

hudpei, ihal's whatl BTI is an allemnte 
niapazine published by TAS ■- a more 
suhj^rlivp mag. containing edilofials on 
^ubjt-elive issues, software reviews, the 
lalPhI news, and more. Ever-changing & 
growing, lo keep up with our expanding 
industry. W hen b issues are juiit 17. ran 
vou afford nol to ch«^k il out'l"';' 

TAS. l806Ada,Un8infi. Ml 4^910 
Ph. (517) 487-3358 or 485-03W 



-S»e List of Adverrisers on page 386 
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TRS-80 



SAVE A BUNDLE 

When you buy your 
TRS-SQTM equipment 

Lse our loll free number (o 

g( check our price belore you bu> \2i 

" a TRS 80^" . . . anywhere! '' 

Don't delay . . . CALL TODAY 



f'tiS 



SALES COMPANY 

1412 WEST FAIRFIELD DR 

P 0. BOX Km PENSACOLA FL 32506 

904/438-6507 

rwtionwrkle 1 800-874-1951 



Wages 

Is 
Here 

FOR THE TRS-80 

• Wages MEETS PAYROLLS 

• Wages IS GUARANTEED 

• Wages COST ONL/ 

$35.00 FOR MODEL I 
($45.00 FOR MODEL II) 



FROM 
The Maine Software Library 

P.O. Box 194 •'»• 

Standish, Maine 04084 

"A Trade name of the Tandy Corp 



01450 
01460 CHB: 



01490 
01500 
01510 



Program continued 
TION SUB 
4687 1814 
LOCATING? 

4689 2B 
INTER 

468A 18B9 01470 
LO NECESSARY 

468C ED5BDD46 01480 SFADR: 
SUBROUTINE 

4690 E5 
OINTBR 

4691 46 
TO PRESENT 

4692 2B 
R 

4693 4E 

4694 EB 

4695 09 
ITION 

4696 EB 

4697 Bl 
DR POINTER 

4698 72 
DR 

4699 2B 
469A 73 
469B 23 
469C C9 
469D 23 
INTER 
469B 3E4E 
LOCATING? 
46A0 BC 
46A1 2802 
DDR BYTE 
46A3 18A0 
- 4E 

46A5 3E35 
46A7 BD 
= 35 

46A8 2802 
NEW ADDR 
46AA 1899 
LOCATION 
46AC 211C48 
ECIAL OP CODES 
46AF CDeC46 01720 
46B2 21D94B 01730 
46B5 CD8C46 01740 
46B8 ED5BDD46 01750 
46BC 210P47 01760 
EW STARTING 
46BF 19 01770 
46C0 112507 01780 
H LENGTB 

46C3 19 01790 
EW ENDING ADDR 
46C4 EB 01800 
BLOCK TRANSFER 
46C5 012607 01810 
46C8 21344E 
46CB EDB8 
CK TRANSFER 
46CD 3AD946 
RTING 
46D0 67 
4601 3ADA46 
46D4 6F 
46D5 22DF40 
46D8 E9 
GRAH 



01520 
01530 
01540 

01550 
0X560 

01570 

01580 
01590 
01600 
01610 
01620 IBP2: 

01630 

01640 
01650 

01660 

01670 CLSBl: 
01680 

01690 

01700 

01710 FRB; 



01820 
01830 

01840 

01850 
01860 
01870 
01880 
01890 



JR IBP2 

DEC HL 

JR EHB 

LD DE, (OFFSET) 

PUSH HL 

LD B,(HL] 

DEC BL 

LD C,(HL] 

EX DE,HL 

ADD BL,BC 

EX DE,BL 

POP HL 

LD (UL),D 

DEC HL 

LD {HL),E 

INC HL 

RET 

INC HL 

LD A,4EB 

CP B 

JR Z, CLSBl 

JR EHB 

LD A,35H 

CP L 

JR Z,FRB 

JR EMB 

LD HL,481CH 

CALL SFADR 

LD HL,4BD9H 

CALL SFAOR 

LD DE, (OFFSET) 

LD HLr470FH 

ADD HLfDE 

LD DE,0725H 

ADD HLrDE 

EX DE,HL 

LD BC,0726B 

LD HL,4E34B 
LDDR 

LD Ar (MSHD) 

LD H,A 

LD A,(HSHD+1) 

LD L,A 

LD (40DPH),HL 

JP (HL) 



AGE 

0002 

46DP 21E84e 

GE 

46E2 CDA728 

46E5 C39345 

OCATOR 

46E8 0D 

LE 

46E9 49 

46F6 0D 

46P7 00 



01900 HSHD: DEFS 



01910 OFFSET: 
01920 ERRORAt 

01930 
01940 



DEFS 
LD 

CALL 
JP 



01950 HSG2A: DEFB 



01960 
01970 
01980 



HL,HSG2A 

28A7H 
RELCON 

0DB 

DEFH 'ILLEGAL ENTRY' 
DEFB 0DH 
DEFB 00H 



jFINISHED RE 
;DEC ADDR PC 
J CHECK IP RE 
;ADDR CHANGE 
;SAVE ADDR P 
;ADD OFFSET 
J PROGRAM ADD 

.•PERFORM ADD 

; RETRIEVE AD 
fLOAD NEW AD 



;IHC ADDR PO 
jFINISHED RE 

; CHECK LSD A 

J IF MS BYTE 

;DONE IF LS 
;IF SO, GO T 
; CONTINUE RE 
; RELOCATE SP 



;GET OFFSET 
iDETERMINE N 

;ADDR 

;LOAD PROGRA 

; DETERMINE H 

;SET UP FOR 



; PERFORM BLO 
;GET NEW STA 
;ADDR 

I EXECUTE PRO 
;SET UP STOR 

; ERROR MESSA 

;BACK TO REL 
I MESSAGE TAB 

P'ogiam continues 
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We took the uncanny realism and the excitement of John Aiien's famous PINBALL; added more features, 
more thrills, and more sound to come up with new ASTROBALL Once you load ASTROBALL into your 
TRS-80* modei I or Mi, the arrow keys become fiipper buttons, the screen becomes the piay board, and you 
become the "Pinbaii Wizard!" 

A flying saucer bumper hovers at the top, lights flashing, while spaceship bumpers fly across the board 
beneath it. Your ball bounces off the moving spaceships in a most unpredictable fashion, so you must stay 
alert to keep it in play. 

As your ball zings around the board scoring on the bumpers, knock out five of the meteor rollovers and you'll 
get an extra ball. There are double and triple bonus targets to increase your score, too, but be careful — below 
each is a black hole, waiting to swallow your balll 

ASTROBALL will have all your family and friends lining up for the action and challenge. Five selectable play- 
ing speeds make it suitable for all skill levels. Available on your choice of 16K tape or 32K disk for S19.95. 
Order its companion, PINBALL, for $14.95 on 1BK tape, $20.95 on 32K disk. 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 





By Steven Keams 

Huge antimatter rcx;ks appear 
on the Tactical Display Screen 
of your spacecraft. You blast 
away but they just explode into 
smaller chunks for you to 
destroy. 

To add to your woes, alien ships 
and time bombs appear periodi- 
cally. If the ships hit you or the 
timers reach zero— BOOM! 
Maneuver, fire lasers, jump to 
hyperspace— anything to avoid 
the onslaught. For one or two 
players, with five skill levels. 

For TRS-80* model I or III. Ver- 
sions for 16K tape or 32K disk 
are $19.95 each. 



TENPINS 



By John Allen 

A realtime action game with 3-D 
graphics and sound, TENPINS 
brings the thrill of champion- 
ship bowling to your TRS-80* 

From one to four players parti- 
cipate, and the program senses 
the skill of each player. Begin- 
ners can simply "roll" the bail 
while more skilled players can 
vary the ball's force, direction, 
and spin. 

TENPINS even has factors to 
simulate imperfections in the 
lanes, adding even more real- 
ism. Available for only $14.95 
for 16K tape version, $20.95 for 
32K disk. 




By Richard Wilkes 

Using your SUPERSCRIPT 
modified SCRIPSIT Word Proc- 
essor and a compatible printer, 
you can now underline, bold- 
face, insert text during printout, 
slash zeros, set type pitch, sub- 
script and, of course, super- 
script! You can even read your 
directory and kill files without 
ever leaving SCRIPSIT. 

Includes drivers for popular 
printers and easy instructions. 
Just $50.00 for TRS-80' model I 
(requires 32K, 1 drive, SCRIP- 
SIT/LC) or model III (requires 
32K, 2-drives, SCRIPSIT/LC 
model I version). 




(202) 544-4259 



»if 



rn 



Software Products, Inc. 



634 Nodti Carolina Avenue. S E , Washington, DC 20003 



"Trademark of Tandy Corp 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRSaO* MODELS I & III 

MAIL ORDERS: Include $2.00 shipping & handling 
(D C residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
lor fastest service 



' Sm List oi Acvtrtissrs on page 366 
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HOW LOW 

Can we GO? 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs expand memory In TRS^' l/ll/lll 
and Coior Compulers, Heath H89, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
cofiverslon Instructions for TRS-flO' I. 

Why pty more. . .«m itock the right pirts 
a1 the right price. 

''HbOD \t a "UandTk or "*» Tvnh CofpvBton 

ItnAi- Ca< r» tOO i«' Allow m t*K &^ sMpc^S' «<c«t9 

inr'jtrt sirwn ,M<j'e5s 'or UPS «iii*> P'k:*B ivQtKT 10 ch«nQ« 

CompuPro" 



^^aECTBOMCS^ 



*^75 



COMPILER 
WORKSTATION 

TRS-80 Model I and III 

Your BASIC program development 
could go faster... 

EOtT: Full-Screen BASIC edrtor with lloatmg cursor and aulo- 
repeal Moie tfian 30 commands and lunciions lei you vat- 
lously linO. change, msen. aelete, replace, repitcala. copy, 
move or position BASIC te«I al Itie cliaracler, siring, line or 
block level Dsveioped in Britain Qy Southern Sottwata Mod I 
III S40 00 + 1 50 shipping 

MCKER: iCoflage Soltwarel Editing lool will unpack, shorten, 
repack, renumber all or pan ol your BASIC text Tfie UNPACK 
segment is very jsetui when preparing BASIC source pro- 
grams for compilation by ACCEL2 UoO 1,111 $29.95+ 1.00 
Shipping 

Then your BASIC program 
could go faster... 

ACCEL2: Compiler lor TRS-80 MoO l,Mod III Diak BASIC New 
fuhciional improvements in place to give mors ease-ot-jse, 
quicker compilation dI large programs, better chaining nf com- 
piled dnd non-com pi lea programs Sue read-out helps you 
monifci code growth ouring compilation REM NOAHRAY option 
tets you use wariaOle-OounO arrays Pro'essionals note Com- 
prehensive msiructions show how to organize your compiled 
programs lor resale on tape, ES/F water or disk. NoroyaHies' 
OeveMpea m Britain by Southern SotTware. Specify Mod lor III 
S86 95 -K S2 00 shipping 

TS*I: Writes compiler output to independent SYSTEM tape. 
S9 96 -f^ Si 00 shipping 

EXEC- CommanO-Ltsi Processor tor TRS-80 Mod I Prepare, 

execute, pass as rnany as nine parameters lo iisis ot TRSOOS 
or NEWDOS commands and/or BASIC statements Simplifies 
rapetrtve procedures such as power-up sequences, tile set- 
ups, etc Compatible with ACCEL? compiler disk output 
Developed in Britain by Southern Software. S22 00 + 11,00 
shipping 1 1^ 

la Mm Gsldar Softwiri 
U/C VISA n, B« 11721 MUn Pott Offlu 
CA add 6% L V San Frincitn, CA 94101 

^^ (415) 387-3131 

TRS-80. TRSDOSIm Radio Stiack, ES/F Im Exatron 
••••••••••••••••••••••••• 



Prograr" continued 












46F8 4E 


01990 


HSGIA: 


DEFM 


'NEW STARTING ADDRESS?' | 


470D eo 


02000 




DEFB 


0DH 




470E 00 


02010 




DEPB 


00H 




470F 


02020 




ORG 


470FB 






02030 


;*********TERMINAL PROGRAM********** | 


47eF 3EC9 


02040 


BHTERH: 


LD 


A,0C9H 


J LOAD RET IN 


ST OP CODE 












4711 320C40 


02050 




LD 


(400CH),A 


; STORE RET I 


NSTRUCTIONS 












4714 320F40 


02060 




LD 


(400FH) ,A 


;IN LII RAM 


AREA 












4717 321240 


02070 




LD 


(4012H} ,h 




471A 321340 


02080 




LD 


(4013H) ,A 




471D 323540 


02090 




LD 


(4035H) ,A 




4720 328D40 


02100 




LD 


(408DH) ,A 




4723 329540 


02110 




LD 


(4095H) ,A 




4726 329840 


02120 




LO 


(4098H) ,A 




4729 21A641 


02130 




LD 


HL,4lAeH 




472C 0615 


02140 




LD 


BrlSH 




472E 77 


02150 


LOOP: 


LD 


(HL),A 




472P 23 


02160 




INC 


HL 




4730 23 


02170 




INC 


HL 




4731 23 


02180 




INC 


HL 




4732 10FA 


02190 




DJNZ 


LOOP 


fCONTINUE LO 


ADING RETS 












4734 210043 


02200 




LD 


HL,EMTERM-40PH 


.•MESSAGE BUP 


PER START 












4737 AF 


02210 


KOCM: 


XOR 


A 


; CLEAR ACC 


4738 77 


02220 




LD 


{HL),A 


;ZERO BUFFER 


BYTE 












4739 23 


02230 




INC 


HL 


! POINT TO NE 


XT BYTE 












473A E5 

R 

473B 110P47 


02240 




PUSH 


HL 


;SAVE POINTE 


02250 




LD 


DEfEHTERM 


jSEE IF AT E 


ND OP BUFFER 












473& EB 


02260 




EX 


DE,HL 




473P AP 


02270 




XOR 


A 




4740 ED52 


02280 




SBC 


HL,DE 


.•SUBTRACT PO 


INTER PROH END 










4742 2803 


02290 




JR 


ZfPHL 


J BUFFER FULL 


IP RESULT 












4744 CI 


02300 




POP 


HL 


.•RETRIEVE BU 


FPER POINTER 












4745 1BF0 


02310 




JR 


KOCH 


;KEEP ZEROIN 


G BUFFER 












4747 El 


02320 


PHL: 


POP 


HL 


; RETRIEVE BU 


FPER POINTER 












4748 D3E8 


02330 




OUT 


(0£8H) ,A 


; RESET UART 


474A DBE9 


02340 




IN 


A,(0E9H) 


;READ CONFIG 


SWITCHES 












47 4C 32CP4D 


02350 




LD 


(HUCR) ,A 


;SAVE SWITCH 


READING 












474P CD9B4B 


02360 




CALL 


SRAPU 


.•RESET AND P 


ROGRAH UART 












4752 CD5A4B 
N 

4755 210C4C 


02370 




CALL 


SCHTCO 


.•CLEAR SCREE 


02380 




LD 


HL,HSG0 


; DISPLAY EMT 


SOL MESSAGE 












4758 CDA728 


02390 




CALL 


28A7H 




47 SB 21DD4C 

U 

47 SE CDA728 


02400 




Lb 


HL,MSG20 


; DISPLAY HEN 


02410 




CALL 


28A7H 




4761 180C 


02420 




JR 


WFMK 


;HAIT FOR HO 


NITOR KEY 












4763 CD5A4B 

N 

4766 CD9B4B 


02430 


HON: 


CALL 


SCHTCO 


; CLEAR SCREE 


02440 




CALL 


SRAPU 


; RESET AND P 


ROGRAH UART 












4769 21CB4C 


02450 




LD 


HL,MSG10 


;DISPLAY LYN 


X MESSAGE 












476 C CDA728 


02460 




CALL 


28A7H 




476F CD2&00 


02470 


WFMK: 


CALL 


002BH 


;SCAN KEYS 


4772 B7 


02480 




OR 


A 




4773 28FA 


02490 




JR 


Z,WFHK 


;HAIT FOR EN 


TRY 












4775 FE53 


02500 




CP 


'S' 


;IP S, TO ST 


ORE MESSAGE 












4777 2822 


02510 




JR 


Z» STORE 


; ROUTINE 


4779 PE52 


02520 




CP 


•R' 


I IF R, TO RE 


CEIVE BASIC 












477B CA8348 


02530 




JP 


Z,REC 


(ROUTINE 


477E PE58 


02540 




CP 


'X' 


;IP X, TO TR 


ANSHIT BASIC 










Program continues 
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Program continueH 
4780 CAE94B 


02550 


JP 


Z,XHIT 


;ROUTIHE 


C IS YOUR MICRO TOOsrr^ii^ ^ 


4783 FE54 


02560 


CF 


'T' 


IIP T, TO TE 


^^ ^;^^ 


RMINAL ROUTINE 








THEN y^^^^ "^^fes 


4785 CAA549 


02570 


JP 


Z,TERM 




^^^^ V*"*-^ ^1 


4786 PE56 


02580 


CP 


•v 


|IF V, TO VI 


ENLARGE f^^^Bte -J 


EH/CHANGE UART 








vi^Hmry^-^'^ 


47eA CA4A4A 

OH 

478D FE42 


02590 


JP 


ZfVIEW 


ICOHFIGURATI 


IT ^ ^ 


02600 


CP 


IB' 


IIP B, RETUR 


^^T '^'^^ 


H TO BASIC 
478F CACC06 


02610 


JP 


Z,06CCH 




^^ S-100! 


4792 FEIB 02620 
ARROW, RETURN 


CP 


IBH 


;IP SHIFT UP 


Why the S-100 (IEEE 696 fj Bus Sianaa'C 


4794 28CD 


02630 


JR 


Z,MON 


;T0 MONITOR 


• It will iwn youi MfCBO 'hto a computei *ii!^ 'he 


HEHU 










capaoiiiiy at a MINI. 


4796 CD944B 


02640 


CALL 


SERROR 


f DISPLAY ERR 




OR MESSAGE 








• you add as much MEMOAY as neeaea (aaa r 












2 Of more 64K RAM txia'dsj 


4799 18D4 


02650 


JR 


HFMK 


;WAIT FOR MO 




HI TOR KEY 












479B CDSA4B 
H 


02660 STOREi 


CALL 


SCHTCO 


iCLEAR SCREE 


• Aa<3 a Cxja/a to give yotj ss mucn HARD o' iiop 
Dy asc CAPACITY as you neea 


479E 21EB4D 


02670 STOREI 


LD 


HL,HSG18 


1 DISPLAY MBS 




SAGE MENU 










m Aoa a high aensity COLOR-QRAPHICS boara 


47 Al CDA728 


02680 


CALL 


28A7H 




aruj much MORE! 


47A4 CD2B00 


02690 GCTS: 


CALL 


002BH 


;SCAN KEYS 




47A7 B7 


02700 


OR 


A 




• These DoaiOs /usf PLUG INTO yow system— 


47A8 28FA 
TRY 


02710 


JR 


Z,GCTS 


I WAIT FOR EN 


pfovitJetf you have ah S-100 mamliame and 




47AA FE53 


02720 


CP 


•S' 


IIP S, TO ST 




ORE ROUTINE 








• fa TRS-ao Pel & others 


47AC 2812 


02730 


JR 


ZfSTO 




m From J95 maintrames from iStO Catalog St 


47AE F&45 


02740 


CP 


igi 


;IF E, TO ER 


(reiuntieO with ordeij 


ASE ROUTINE 










v^ 


47B0 CA6F48 
47B3 FEIB 


02750 
02760 


JP 
CP 


Z,ERA 
IBH 


»IF SHIFT UP 


\^<=^' . COMPUTER V//T ^198 


ARROW, TO 










wle\C^ INCOdPOfATED 

5620 t76W Stmt S.W. 


47B5 28AC 


02770 


JR 


Z,MON 


; MONITOR MEN 


U 










LynimnKid Wtthingion 98036 


47B7 FE60 


02780 


CP 


6IB 


jIF SHIFT g. 


(206 J 743-4336 


TO MESSAGE 










[ formerly HUH 


47B9 28E0 
47BB CD944B 
OR MESSAGE 
47BE 18E4 
ENTRY 


02790 
02800 


JS 
CALL 


Z, STORE 
SERROR 


fMENU 

J DISPLAY ERR 




02810 


JR 


GCTS 


;GET ANOTHER 


Rnvocinn 


47C0 CD5A4B 

N 

47C3 210043 

FFER START 


02820 STO: 


CALL 


SCHTCO 


; CLEAR SCREE 


DMy vsiMn 


02830 


LD 


HL,GHTERH-40FH 


; POINT TO BU 


InvQstment 


47C6 7E 
BYTE 
47C7 FE00 


02840 
02850 


LD 
CP 


Ar(HL) 
B0H 


J GET BUFFER 
fIF 0f READY 


Services 


FOR MORE TEXT 










47C9 2833 
47CB CD3300 


02860 
02870 DMB: 


JR 
CALL 


Z,CM 
0033H 


(DISPLAY HES 


Send for free catalog 


SAGE CHARACTER 








discussing TRS-80 
programs available for 


47CE CD2B00 
47D1 B7 


B288B 
02890 


CALL 
OR 


002BH 
A 


fSCAN KEYS 


47D2 2808 
ONTINUE 


02900 


JR 


Z,C0N1 


;N0 ENTRY, C 


evaluating: 


47D4 FE60 
TO MESSAGE 


02910 


CP 


60H 


J IF SHIFT e. 


Options & Futures 


47D6 28C3 


02920 


JR 


Z , STORE 


J MENU 


Stocks & Bonds 


47D6 FEIB 
ARROW, TO 


02930 


CP 


IBH 


IIP SHIFT UP 


Convertible 


47DA 2887 


02940 


JR 


Z,M0H 


; MONITOR MEN 


& Other IHedges 


U 

47DC 23 02950 COHlj 

XT BUFFER BYTE 


INC 


HL 


; POINT TO NE 


Portfolio Position 
Tax Positions 


47DD F5 
TER 


02960 


PUSH 


AF 


jSAVE CHARAC 


Marlcet Timing 


47DE E5 
R 


02970 


PUSH 


HL 


J SAVE POIHTE 


Write or call: 


47DF 110F47 
ER FULL 


02980 


LD 


DE,EKTERM 


;SEE IF BUFF 


Boyvslan ^^K 


47E2 EB 
47E3 AP 


02990 
03000 


EX 
XOR 


DB,HL 
A 


J CLEAR ACC 


lnv«stm«nt 


47E4 ED52 


03010 


SBC 


HL,DB 


I SUBTRACT PO 


SvrvlcQS 


IHTER FROM 
47E6 2809 


03020 


JR 


Z,BFH 


I END OF BUFF 


Dept. H3 


ER 










757 Santa Rosita 


47E8 El 
INTER 


03030 


POP 


RL 


; RETRIEVE PO 

Program continues 


Solana Beach, CA 92075 
(714) 755-6225 



^Sa« List of A(JvertlS9rs on page 386 
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First in 

Its Class 

and 

Looking 

for 

Work. 



TRS^ Model I, II, lir 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge), 24 transformations, com- 
prehensive data base manager (with search 
arxj sort), descriptive statistics, hypothesis 
testing (7 iests), time series analysis (7 
models), random variale geneiation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, serxJ payment plus $2.00 shipping 
and hartdling lo 

Quant Systems ^m 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 



?i»«"**" 



'80" SHROUDS 




Other Models 

'LNW DEMI-CASE..532.50 

'LNW SHROUD $27.50 

•"80" SHROUD $24.50 

Add $2.50 shipping & handling 
N. Y.S. residents add 7% sales tax 

-•358 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Specializing In Electronic Packaging " 



ProQiam corlinued 










47E9 Fl 


03040 


POP 


AF 


; RETRIEVE CH 


ARACTER 










47EA 7E 


03050 


LD 


A,(HL) 


;GET CHARACT 


ER INTO ACC 










47EB FE00 


03060 


CP 


00H 


;IF 0, CONTI 


NUE ENTERING 










47ED 280F 


03070 


JR 


Z,CH 


; HESS AGE 


47EF 18DA 


03080 


JR 


DMB 


;DISPLAV CHA 


RACTER 










47F1 El 


03090 BFM: 


POP 


HL 


; RETRIEVE PO 


INTER 










47F2 Fl 


03100 


POP 


AF 


(•RETRIEVE CH 


ARACTER 










47F3 CD5A4B 


03110 


CALL 


SCHTCO 


; CLEAR SCREE 


47F6 21114E 


03120 


LD 


HL,HSG19 


;DISPLAY BUF 


FER FULL 










47F9 CDA728 


03130 


CALL 


28A7H 


; MESSAGE 


47FC 18A0 


03140 


JR 


STOREl 


;T0 STORE HE 


SSAGE ROUTINE 










47FE CD2B00 


03150 CH: 


CALL 


002BH 


;SCAN KEYS 


4801 B7 


03160 


OR 


A 




4802 2BFA 


03170 


JR 


Z,CM 


;IF NO ENTRY 


, CONTINUE 










4804 FEe0 


03180 


CP 


60H 


;IF SHIFT @, 


TO 










4806 2693 


03190 


JR 


Z , STORE 


; MESSAGE HEN 


4808 FEIB 


03200 


CP 


IBH 


;1F SHIFT UP 


ARROW, TO 










480A CA6347 

u 


03210 


JP 


Z,HON 


; MONITOR MEN 


480D FE08 


03220 


CP 


08H 


;IF BACKSPAC 


E, DELETE LAST 








480F 2002 


03230 


JR 


NZ,CFIC 




4811 1B0D 


03240 


JR 


FHL 




4813 FE0D 


03250 CFIC: 


CP 


SDH 


;IF ENTER, P 


LACE IN BUFFER 








4815 2806 


03260 


JR 


Z,OKFB 




4817 FE20 


03270 


CP 


20H 


; IGNORE OTHE 


R CNTRL CHARS 










4819 3F 


03280 


CCF 






481A D2FE47 


03290 


JP 


NC,CH 




481D 77 


03300 OKFB: 


LD 


(HL),A 


;PUT ENTRY I 


N BUFFER 










481E 1811 


03310 


JR 


KHL 


; CHECK POSIT 


ION IN BUFFER 










4820 2B 
TER 


03320 FHL: 


DEC 


HL 


; ADJUST POIN 


4821 2B 


03330 


DEC 


HL 




4822 E5 
R 


03340 


PUSH 


HL 


;SAVE POINTE 


4823 2A2040 


03350 


LD 


HL,(4020H) 


;GET CURSOR 


POSITION 










4826 AF 


03360 


XOR 


A 


; CLEAR ACC 


4827 110a3C 


03370 


LD 


DE,3C00H 


;SEE IF CURS 


OR AT BEGIN- 










482A EDS2 

EEN 


03380 


SBC 


HL,DE 


jNING OF SCR 


482C El 


03390 


POP 


HL 


J RETRIEVE BU 


FFER POINTER 










482D 2891 


03400 


JR 


Z,STO 


J IF AT BEGIN 


NING, CONTINUE 








482F 3E08 


03410 


LD 


A,08H 


;LOAD BACKSP 


ACE INTO ACC 










4831 CD3300 
CHARACTER 


03420 KHL: 


CALL 


0033H 


;DISPLAY ACC 


4834 23 
POINTER 


03430 


INC 


HL 


;INC BUFFER 


4835 3600 
BYTE 


03440 


LD 


(HL) ,00H 


J ZERO BUFFER 


4837 F5 
TER 


03450 


PUSH 


AF 


;SAVE CHARAC 


4838 E5 
R 


03460 


PUSH 


HL 


;SAVE POINTE 


4839 110F47 
ND OF 


03470 


LD 


DE,EHTERH 


;SEE IF AT E 


4e3C EB 


03480 


EX 


DE,HL 


; BUFFER 


483D AF 


03490 


XOR 


A 


; CLEAR ACC 


483E ED52 03500 
INTER FROM END 


SBC 


HL,D£ 


.•SUBTRACT PO 


4840 28AF 
4842 El 


03510 
03520 


JR 
POP 


Z,BFH 
HL 


;0F BUFFER 
; RETRIEVE PO 


INTER 








program continues 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day In 
accounting offices nationwide. 

No IV we introduce! 

SYSTEM THREE! 

SYSTEM THREE Is an improved, stilt more interactive version — Totals W-2's and 
computes PICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, tine-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax - Earned Income Credit - Maximum/Minimum Tax - Least Tax 
Method ~ All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES „ 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 



■TRS-80 IS a I'a-lemafh of Tandy Cofp 



■s>ieusiofA<iverusersonpag0 336 80 Microcomputing, October1981 • 165 



TRS-80"* Models 1 & 3 

SOFTWARE 

SYSTEM DIAGNOSTIC $9S.95 

Tests every cofnpooeni of your TRS-8Q 
for proper operatton: ROM, RAM Video 
Display, Keyboard. Line Printer. Cassetie 
Recofdef, Disk Dnvei, RS-232 Interlace. 
Continuous or moritofed Opeiation. 

SMART TERMINAL $69.95 

The intelligent telecofnmunicalton pro- 
gram that enables your TRS-flO to be 
used as a ttmeifianng terminal Automatic 
trantmii(k>n to and trom anocher rom- 
puier. Control keys, break key. lower 
case, cassette and disk tile^ tompatible 
with both Eleclnc Pencil' and Scnpsit 
pnjgrams. 

MONITOR #3 $39.95 

Disassembler, memon/ display. rTto\e 
search, venty modity, read and write 
machine language cassettes, object code 
relocator. heiadecimal arithmetic 
symbolic disassembly output 

MONITOR #4 $49.95 

SameasMo'iito'*) but adds Oisklile and set- 
ter in put/ output. RS-2J2 communical-ons 

PENCIL PATCH $19.95 

Flies the Electric Ptfidl' ,Mcxiel 1 ver- 
sion so that It runs on the Model J. {You 
must already own the Model 1 version ) 

GRAPH PRINT $19.95 

Creates formatted prmt-out on the 
Epfon MX-AO printer Enhanced p.int 
rrvxJes print quality text surrounded by 
graphic border. Editing, disk save/ reload 
teici entry, etfor testing. 

Send S.A.S.E. for FREE CiUlog. 

HOWE SOFTWARE 

14 Lexington Road. NewCitv, NV t09Sfa 
■'RS-80 11 a regiilered Iradernark of the 

Radro Shd< k diviiion ol Tandy Corp ^ 101 



NEW PROGRAMS 
FOR THE TRS-80 

incoPROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Ha',!'!} ucori ^landarc-t-d n>eihoil5 
ol ; rocerlv .ir.aiysis u5ea ihroug'iiiul ine redi 
estale inaustfy Generales » 2 Ci<je 'Bporl conlain 
ing an annual orooerty ooe'a'i''g slalemerif a'lJ rf 
l:l)mD^»^ensl^e 10 yns' ^;as^ no* analysis Ccr. 
(din; IRS <»' laCie io prot»c( sllei Id> .ociirti.' 
si'iaim ana mveslni s I R P 

• Ma'-,<!issSaiir*'?ni'T'*irfxriaMa" iT*£>jeciiuon 
. -UnaWiucloJIOjniSJ Oittf'snt l(p«loi"M 

• [llSk1ileaLr*ai^lO' t^flrTlinf nr 5fO'*ge (I'fliU 
Wi.,,frum iyiltm '•auirf'snl! U" "AM > O'l'-e an'l 
rr,nt«r So'H «.i" •fic-nnine '8 c*g« uiW 1 marluil CCvc. 
mg al^^L itutcls o' .nrome oioCS'ty .".elimcnl S S.1 

W(x!"i 1 i. m un 





1 1 .SI tiri 




lii'iC': 


ai'so'p in we^^ic 




ue. CP.M 


.'(.SiJi 



voce' II 
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DEVT EM PO BOX MLNOVATO. CA »4M7 



O'ogram (Ofr.nijpo 












4843 Fl 


B3530 




POP 


AF 


f RETRIEVE CH 


ARACTER 












4844 16BB 


03540 




JR 


CM 


; CONTINUE EN 


TERING 












4846 CD5A4B 

N 

4849 210043 


03550 


TRA: 


CALL 


SCHTCO 


J CLEAR SCREE 


03560 




LD 


HL,EMTERM-40FH 


(POINT TO BU 


FFER START 












4fi4C 7E 


03570 


CTT: 


LD 


A,(HL) 


;GET BUFFER 


BYTE 












484D FE00 


03580 




CP 


00B 


jIP ZERO, FI 


NISHED 












484F 2B15 


03590 




JR 


Z, RUART 




4851 CD330B 


03600 




CALL 


0e33[l 


(DISPLAY BUF 


FER BYTE 












4854 CDAD4B 


03610 




CALL 


STTC 


(TRANSMIT BU 


FFER BYTE 












4857 CD1E4E 


03620 




CALL 


STRHC 


(WAIT FOR EC 


HO 












485A 23 


03630 




INC 


HL 


(INC POINTER 


48SB ES 
R 


03640 




PUSH 


HL 


J SAVE POINTE 


485C 110F47 


03650 




LD 


DE,BMTERH 


fSEE IF AT E 


ND OF BUFFER 












485F EB 


03660 




EX 


DE,HL 




4860 AF 


03670 




XOR 


A 


(CLEAR ACC 


4861 ED52 


03680 




SBC 


BL,DE 


; SUBTRACT PO 


INTER FROM END 










4863 El 


03690 




POP 


HL 


(OF BUFFER 


4864 20E6 


03700 




JR 


NZ,CTT 


lIF NOT AT E 


ND, CONTINUE 












4866 CD9B4B 


03710 


RUART: 


CALL 


SRAPU 


(RESET AND P 


ROGRA« UART 












4869 CDSA4B 

N 

486C C3B249 


03720 




CALL 


SCHTCO 


; CLEAR SCREE 


03730 




JP 


TTU 


(BACK TO TER 


MINAL MODE 












486F 2I0B43 


03740 


ERA: 


LD 


QL,GMTERM-40FH 


(POINT TO BU 


FFER START 












4672 3600 


03750 


KEB: 


LD 


(HL) ,00H 


(ZERO BUFFER 


BYTE 












4874 23 


03760 




INC 


HL 


(INC POINTER 


4875 E5 


03770 




PUSH 


HL 


(SEE IF ALL 


THRU BUFFER 












4876 110F47 


03780 




LD 


DE,EHTERM 




4879 EB 


03790 




EX 


DE.HL 




487A AF 


03800 




XOR 


A 


(CLEAR ACC 


487B ED52 


03B10 




SBC 


HL,DE 


(SUBTRACT PO 


INTER FROM 












487D El 

ER 

487E 20F2 


03820 




POP 


HL 


(END OF BUFF 


03630 




JR 


NZ,KEB 


(KEEP ZEROIN 


G BUFFER 












4880 C39B47 


03840 




JP 


STORE 


(TO STORE RO 


UTINE 












4883 CD5A4B 

N 

4886 CD2B00 


03650 


REC: 


CALL 


SCHTCO 


(CLEAR SCREE 


03660 


WFAS: 


CALL 


e02BH 


;SCAN KEYS 


4889 B7 


03870 




OR 


A 




488A 2807 


03860 




JR 


2,CSTRC 


(IF NO ENTRY 


, REC CHAR? 












48flC FEIB 


03890 




CP 


IBti 


(IF SHIFT UP 


ARROW, TO 












4B8E 2003 

U 

4690 C36347 


03900 




JR 


NZ,CSTRC 


(MONITOR MEN 


03910 




JP 


HON 




4893 CDD44D 


03920 


CSTRCi 


CALL 


STRBC 


J GET BASIC C 


HARACTER 












4896 FE41 


03930 




CP 


•A' 


(WAIT FOR TH 


REE A'S 












4898 20EC 


03940 




JR 


NZ,WFAS 


(IN SEQUENCE 


4B9A CDD44D 


03950 




CALL 


STRBC 




4B9D FE41 


03960 




CP 


•A" 




4a9F 20E5 


03970 




JR 


NZ,WFAS 




4BA1 CQD44D 


03960 




CALL 


STRBC 




4BA4 PE41 


03990 




CP 


'A' 




48A6 20DE 


04000 




JR 


NZ,WFAS 




48AB 21BC4D 


04010 




LD 


HL,MSG17 


jDISPLAY REC 


EPTION MESSAGE 










48AB CDA7 28 


04020 




CALL 


2BA7H 




4BAE 21E942 


04030 




LD 


HL,42£9U 


(POINT TO ST 

Progrirn conJmues 
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Program conrmued 










ART OF BASIC 










46B1 CDD44D 


04040 CRP: 


CALL 


STRBC 


J GET BASIC C 


HARACTBR 










48B4 FE00 


04050 


CP 


flBH 


I LOOK FOR Fl 


RST OF THREE 










4BBe 2022 
QUENCE 
48B8 77 


04060 


JR 


NZfCFMS 


; ZEROS IN 5E 


04070 


LD 


{HL),A 


J SAVE BASIC 


CHARACTER 










48B9 23 


04060 


INC 


HL 


; POINT TO NE 


XT BUFFER BYTE 








48BA CD2C02 


04090 


CALL 


22CH 


; BLINK ASTER 


ISK 










48BD CDD44D 
ER 


04100 


CALL 


STRBC 


;GET CHARACT 


48C0 PE00 


04110 


CP 


00H 


;LOOK FOR SE 


COND ZERO 










48C2 2016 


04120 


JR 


NZ,CFMS 


;IN SEQUENCE 


48C4 77 


04130 


LD 


(HL),A 


;SAVE BASIC 


CHARACTER 










48C5 23 


04140 


INC 


HL 


; POINT TO NE 


XT BUFFER BYTE 








48C6 CDD44D 


04150 


CALL 


STRBC 


;GET BASIC C 


HARACTER 










48C9 FE00 


04160 


CP 


00B 


;LOOK FOR TH 


IRD ZERO 










48CB 200D 


04170 


JR 


NZ,CFHS 


;IN SEQUENCE 


48CD 77 


04180 


LD 


{HL),A 


;SAVE BASIC 


CHARACTER 










48CE 23 


04190 


INC 


HL 


;INC POINTER 


48CF 7D 


04200 


LD 


A,L 


;SAVE NEW BA 


SIC ENDING 










48D0 32F940 


04210 


LD 


(40F9H) ,A 


; ADDRESS 


48D3 7C 


04220 


LD 


AfH 




48D4 32FA40 


04230 


LD 


(40FAH) ,A 




48D7 C36347 


04240 


JP 


HON 


;BACK TO HON 


I TOR MENU 










48DA 77 


04250 CFMS; 


LD 


{HL),A 


;PUT BASIC C 


HARACTER 










48DB 23 


04260 


INC 


HL 


fINTO BUFFER 


48DC CD2B00 


04270 


CALL 


002BH 


;SCAN KEYS 


48DF B7 


04280 


OR 


A 




46E0 28CP 


04290 


JR 


Z,CRP 


;IF NO ENTRY 


, CONTINUE 










48E2 FEIB 


04300 


CP 


IBH 


;IF SHIFT UP 


ARROW, TO 










48B4 CA6347 

U 

48E7 18C8 


04310 


JP 


Z,MON 


;MONITOR HEN 


04320 


JR 


CRP 


(•CONTINUE RE 


CEIVING PROG 










48B9 CD5A4B 

N 

4BEC 21674D 


04330 XHIT: 


CALL 


SCHTCO 


;CLEAR SCREE 


04340 


LD 


HL,MSG12 


; DISPLAY TRA 


NSMIT MENU 










48EF CDA728 


04350 


CALL 


28A7H 




48F2 CD2B00 


04360 WFTLE: 


CALL 


002BH 


;SCAN KEYS 


48P5 B7 


04370 


OR 


A 




48F6 28FA 


04380 


JR 


Z, WFTLE 


{WAIT FOR EN 


TRY 










48F8 FE4C 


04390 


CP 


'L' 


;IF L, TO LO 


AD CASSETTE 










48FA 280E 


04400 


JR 


Z,LOAD 


{ROUTINE 


48FC FE54 


04410 


CP 


•T' 


;IF T, TO TR 


ANSHIT ROUTINE 








48FE 2863 


04420 


JR 


Z, TRANS 




4900 FBIB 


04430 


CP 


IBH 


;IF SHIFT UP 


ARROW, TO 










4902 CA6347 

U 

4905 CD944B 


04440 


JP 


Z,MON 


{MONITOR HEN 


04450 


CALL 


S ERROR 


{DISPLAY ERR 


OR MESSAGE 










4908 18E8 


04460 


JR 


WFTLE 


{WAIT FOR EN 


TRY 










490A 218C4D 


04470 LOAD: 


LD 


HL,MSG13 


{DISPLAY CAS 


SETTE MESSAGE 










490D CDA728 


04480 


CALL 


28A7H 




4910 CD2B00 


04490 WFLK: 


CALL 


002BH 


{SCAN KEYS 


4913 B7 


04500 


OR 


A 




4914 28FA 


04510 


JR 


Z,WFLK 


{WAIT FOR EN 

Program conlmues 



—- $$ DISCOUNT PRICES $$ — ^ 

SCOTCH DISKETTES 

Sod S*ctor Slngla Dcnilty 5V. Inch 

32% |0SI abrailvfl than thg Industry avaraga. 

Soft boxol 10 127.95 

Storage bo« of 1 $28 95 

3M Disk Drive Cleaning Kit (5'/. Inch) 122.95 
Shipping S msuratice lot each boWklt $1.00 
TRS-flO SOFTWARE 

Daslgned/lMlKl w»h TRSDOS A NEWDOS -f 
R»qulr«s 1S K and ona diak driva unlMt not«d. 
Sottwara prteas Irtcludaa ahlpplng & Insuranca. 
Diractory Librarian with diskette order $9 00' 
Reads direclories ot up to 99 diskettes. Main- 
tains a master iibrarv o' names and free grans. 
Fast sorts. Supports printer. Reqs 48K 
TypinflTaacharwith diskette order M 00* 

Teaches touch typing. Letter, word, and para- 
graph enercises. Monitors typing speed 
Math Drilla with diskette order $2 00' 

Prints personaliied practice worksheets (or 5 
types of math problefns. Ages 5-9 Req's MX80. 
Qama Pack #1 with diskette order $2.00' 

Exciting arcade games - Duel, Race & Maze 
All four pro0rams with diskette order $14,00' 
'without diskette order , add SSOOfor 1 or more 

EPSON MX80 PRINTER 

BO charsJsac 9x9 matrix - lattar quality 

Epson provides 90-day warranty tor MXBO 

- Reguiar tractor modei wn'RSSO cable $519 00 

■ Frict loniTractor model w/TRSeOcabie $619.00 

■ Shipping & insurance $10.00 

- Friction Feed Adaptor (IncI, shipping) $54.95 

PAPER & LABELS 

Spaclal proposal quality papai - pin fed 
Pure whita 20 lb. bond with watermarl( 

■ Box of 2300 sheets -9 Vi « 11 inch $37.00 

■ Shipping & insurance for each box $9 00 
Prassurs Sanaltlva Lsbals 

- Box ot 5OO0 labels - 3'/i x '^,, inch $19.00 
-Shipping & insurance for each txjx $4,00 
SUPER SPECIAL PACKAGE 
Everything In this advertisement! 

Diskettes 11 boxj, cleaning kit, MXBO Iw/cabie- 
add 1100 for MX80FT), ali software, paper &. 
iatieis (1 box eal. Includes shipping, S649.00 

^E VB Visa and Mastercard accepted. 
Michigan residents add sales tax. 

THE COMPUTER ANSWER ^471 
P.O. Box 573 T 
Birmingham, Michigan 48009 ■ 

■ • (31 3) 642-4338 (Order Phona* 24 houra/day) mt 




EDUWARE EAST 

P.O. Box 336 

Maynard, MA. 01754 

617-563-6641 

^477 




MATH-PAK-1: MATH-PAK-2: MATHPAK-3 

tntaracttva drttt programa wtivra you artter the answers 
dlQll by digit. )iral Ilka papar and pencil. With uaw 
sslacted ditricully lavals, carryovars, raduclnfl, almpll- 
llcatlon, pointing off. scortno, games, and mors. Used 
by schoola awarywttars. Order MATH-PAK-1 for Inte- 
gers, MATH-PAK-2 (or tractions, MATH-PAK-3 lor 
declmalB,(U<1SK} I14.»5ee. 

H-O-R-K-S 
Law cost, singis entry eccounUng ayatem tor the home 
or office. WItti H uaar aeslgned account codes, auto 
audit Irslt, searcti with lolals, 32 or 4aK, 1 to 4 drfvee, 
credit and debit summertos with 3 options, up to 9200 
■ntrlas, t24.B»cassetta S29,Wdlsc 

INVENTORY + 

Why settle tor |ust an Inventory listing? Get aging 
repona with 2 options, reorder, totsl listings with pur- 
chase dates end amounls, total coats. Hems sold, pro- 
Ht/loas and more. Use as a stand alone system with 
dally updates, delete, change, and Ilia packing 
routines, (32K - 1 disc minimum) S24.aS/eateelte 

S2S,9SJdlac, 

CASHREQISTER60 
Use your TRS-SO aa a point ot sale terminal with 
automatic Inventory lookup, pricing, update, and mora. 
Print sales slips with user adjusted lormsti, and of 
day reports with all cash, charge, and check selea by 
aaleeperson. CfUO requlraa INVENTORY-f-. 4«K, and 
1 disc minimum <2 drive a recommended). 

S24.9Steeisette $29.»5ldlsc. 



Mass residents and S% tax, VISA, M,C., AND PHONE 
ORDERS ACCEPTED, Dealer Inquiries Invited. Over- 
seas orders sdd $2,00 lor sir shipment, TRS-80 Is a 
trsdemarfi of Tandy Corp, 



-See List al Advertisers on page 386 



80 Microcomputing, October 1981 • 167 



FREE 
48-Pa9e 
Catalog 



A new. free 48-page catalog is free 
from Creative Computing and Periph- 
erals Plus. To help buyers make intelli- 
gent purctiasing decisions, the product 
descriptions are exceptionally compre- 
hensive and include screen photos in the 
software section 

The catalog describes 20 books on pro- 
gramming, games, and educational appli- 
cations; 160 software packages for 
Apple, Atari. TRS-80, PET, CP/M, Tl. Sor- 
cerer and Sol computers; 3 magazines 
{Creative Computing, Microsystems, and 
SYNC); 5 graphicsand music peripherals; 
an LP record; board game; 8 T-shirts and 
an eclectic assortment of other products 
for the personal computer user. 

To get your free copy, simply drop a 
card or note to the address below 



GPeatlve GomputlRgf 

Attn: Becky ^5iz 

39 East Hanover Avenue 
Morris Plains, NJ 07960 



-80 

SPACE 

RAIDERS 




STARSHIP SIMULATOR 

and 

COMBAT GAME 

Real-lime action graphics place you at starstilp con- 
trols, displaying continuous 3D motion thru stars! 

Screen and instruments updated 30 times each 
seconed! 

Accurate celestial navigation thru galaxy with Doth 
XYZ and Spherical Coordinates! 

Ultimately realistic, this search and destroy simula- 
tion begins where ordinary games end! 

TRS-S0MODEL1 LEVEL II16K 

BOSEN ELECTRONICS 

445 E. 800 N, Spanish Fork. UT 84660 

(801)798-9553 

$24.95 ^416 

MasterCard, VISA Check. Money Order, COD, 



Program cor^tmued 










TRY 










4916 FE4C 


04520 


CP 


'L* 


IF L, TO LO 


AD ROUTINE 










4918 280A 


04530 


JR 


Z,LT 




491A FEIB 


04540 


CP 


IBH 


IF SHIFT UP 


ARROW, TO 










491C CA6347 

U 

491F CD944B 


04550 


JP 


Z,MON 


MONITOR MEM 


04560 


CALL 


SERROR 


DISPLAY ERR 


OR MESSAGE 










4922 18EC 


04570 


JR 


WFLK 


WAIT FOR EN 


TRY 










4924 CD9302 


04580 LT: 


CALL 


293H 


TURN ON CAS 


SETTE 










4927 0604 


04590 


LD 


B,04H 


IGNORE FIRS 


T FOUR BYTES 










4929 CD35fl2 


04600 GTH: 


CALL 


235H 


GET TAPE CH 


ARACTER 










492C 10FB 


04610 


DJNZ 


GTH 


COMPLETE LO 


OP 










492B 21E942 


04620 


LD 


HL,42E9H 


POINT TO ST 


ART OF BASIC 










4931 CD2B00 


04630 GHC: 


CALL 


002BH 


SCAN KEYS 


4934 B7 


04640 


OR 


A 




4935 280A 


04650 


JR 


2, CON 


IF NO ENTRY 


, CONTINUE 










4937 FEIB 


04660 


CP 


IBH 


IF SHIFT UP 


ARROW, TO 










4939 2006 

U 

493B CDF801 


04670 


JR 


NZ,CON 


MONITOR MEN 


04680 


CALL 


1F8H 


TURN OFF CA 


SSETTE 










493E C36347 


04690 


JP 


HON 


TO MONITOR 


MENU 










4941 CDA74B 


04700 CON: 


CALL 


STGC 


GET TAPE CH 


ARACTER 










4944 A7 


04710 


AND 


A 


1ST IN SE 


QUENCE? 










4945 20EA 


04720 


JR 


NZ.GHC 


;GET NEXT CH 


ARACTER 










4947 CD2C02 


04730 


CALL 


22CH 


;ZERO, BLINK 


ASTERISK 










494A CDA74B 


04740 


CALL 


STGC 


;GET TAPE CH 


ARACTER 










494D A7 


04750 


AND 


A 


;2ND IN SE 


QUENCE? 










494E 20E1 


04760 


JR 


NZ,GNC 


;GET NEXT CH 


ARACTER 










4950 CDA74B 


04770 


CALL 


STGC 


;GET TAPE CH 


ARACTER 










4953 A7 


04780 


AND 


A 


•3RD IN SE 


QUENCE? 










4954 20DB 


04790 


JR 


NZ,GNC 


■GET NEXT CH 


ARACTER 










4956 7D 


04800 


LD 


A,L 


SAVE NEW EN 


DING ADDRESS 










4957 32F940 


04810 


LD 


{40F9H) ,A 




495A 7C 


04820 


LD 


A,H 




495B 32FA40 


04830 


LD 


(40FAH) ,A 




495E CDF801 


04840 


CALL 


1F8H 


TURN OFF CA 


SSETTE 










4961 1886 


04850 


JR 


XMIT 


TO TRANSMIT 


MINI MENU 










4963 21AB4D 


04860 TRANS: 


LD 


HL,MSG14 


DISPLAY TRA 


NSKIT MESSAGE 










4966 CDA728 


04870 


CALL 


28A7H 




4969 21E942 


04880 


LD 


HL,42E9H 


•POINT TO ST 


ART OF BASIC 










496C 0603 


04890 


LD 


B,03H 


•SEND THREE 


A'S FOR SYNC 










496E 3E41 


04900 KSA: 


LD 


A, 'A' 




4970 CDAD4B 


04910 


CALL 


STTC 


TRANSMIT CH 


ARACTER 










4973 10F9 
OP 


04920 


DJNZ 


KSA 


COMPLETE LO 


4975 CD2B00 


04930 CFHR: 


CALL 


002BH 


SCAN KEYS 


4978 B7 


04940 


OR 


A 




4979 2805 


04950 


JR 


Z,TRCH 


NO ENTRY, T 


RANSMIT CHAR 










497B FEIB 
ARROW, TO 


04960 


CP 


IBK 


IP SHIFT UP 


497D C36347 

u 


04970 


JP 


HON 


MONITOR MEN 


4980 7E 


04980 TRCH: 


LD 


A,(HL) 


GET BASIC C 
Program conimues 
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The Captain 80 Book of 



BASIC 




• Over a dozen famous 
adventures, listed in large easy to read type 
ready to be keyed in. Adventures by Boner, 
Kepner, Powers, Micklus, Forsythe, Greg 
Hassett and others. 

• Includes Tempfe of the Sun, Dog Star, 
Lost Ship, Spider Mountain, Lost Dutch- 
n,an's Gold, Thunder Road, Sorcerer's 
Castle, Deadly Dungeon, Atlantean 
Oddysey and others. These adventures 
would cost over $200 is purchased 
individually! 

• Includes a unique Adventure 
Generator program - not available 
anywhere. YES, this program will 
actually write another BASIC 
adventure program, which you 
may then run. Not even the author 
of the generator program knows the out- 
come! This program alone is worth the price of 
the entire book! 

• Includes chapters on what an adventure is, how to 
play adventures, how to write adventures, how to sell 
your adventure, ten adventure program ideas, and 
more! 

• Study the techniques and methods used by the 
masters of adventure program writing. All adventure 
programs listed in this book are in their original form 
and in full length. Ahhough specifically written for 
the TRS-80 Model I and III, these programs are 
adaptable to other computers using Microsoft's 
BASIC. _, 

• Available at your dealer approximately W^ 
November 15th. 1981. The suggested retail price 
of this book is $19 95. 

• The BASIC Adventure Book was compiled 
and edited by Bob Liddil, of The Programmers 
Guild. It measures S'/; by II inches and will 
contain approximately 250 pages. 

• To reserve your copy of this unique book, 
order NOW for only $14.95 and save. This 
special pre-publication offer is good only with 
paid orders until Nov 1st, 1981 

• ORDER YOURS TODAY! 




Dealer discounts ovatlable please inquire 

rRS-80- •■, d rKiiHirird irddcmaik ,)l ihp Td^d^ C orp 



Pre-Publication 
SPECIAL $14.95 



Send To: 80-U.S. Journal ^33 

3838 South Warticr Street 
Tacoma, Washingtoti 98409 

Please reserve Copy (Copies) of the Basic Adventure 

Book at the pre-publication price of only $14.95. Payment must 

be enclosed with this order. Offer good in the United States 

only. 

Name 



Address 



City. 



-State. 



-Zip 



Visa MC. 



Exp. Date. 



.Signature 



(206) 475-2219 Phone orders accepted for Visa MC only. 

ORRtR e HM 



•See Lis! oI AOveritsers on page 38S 
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Now lor « ~~^^^gl^^M »m»l'ln- 
vMtrrwnt you c«n ^^^^» h«v« th« 
poww wid accuracy of tTta computer in 

your job coating. We have developed pro- 
arama to run on the fladio Shack TRS-ao 
Model II Computer which produce the follow- 
I no report a: 

• Complela Job Coal Reports 
•Job Scheduling 

• Work In Process Baporl 

• On-line Job Status Inquiry 

• Operation Productivity Report 

• Material Usage Summarv 

• Employee Charge Out Summary 

The program prompts the operator through 
every step In plain and simple English. Only a 
tew hours of Instruction ar>d preparation are 
needed to begin use. It's ideal (or the small 
company with 5 to 50 employees. 

The price is $495.00 (or the program and 
complete Instructions. A set of sample reports 
are available (or StB.ftS which Is applicable 
toward purchase. 

■^439 

Suite 208 404-4S54549 

Z9S7 N. Dekalb Drive 

DoravUle, GA 30340 

or 

PC, Box 8555 Macon, GA 31206 

912-745-5822 



9 has 



ULTRA-II 



^^'SUPERBASIC 



r 



exclusive 

has twice the capabilities 
DOS's at one half their 



• • $79.95 



SIC™ >bI 

J8 of other ^ 
lir price! ■ 

• * 1 



^4:;4( 



Absolutely the only NO-HANG DOS 
Absolutely the fastest copy - will not 
create partial copies on full disketts 
Single or double density independence - 
order either 

Device routing, retains date after 
non power up reboot 
The only alphabetized directory with 
DATED fUes 

Editor/ Assembler with capability of direc- 
tory, kill, copy and source code recovery 
after reboot 

Multi/Undef eatable auto command 
Individualized slepping speeds for differ- 
ent drives 

CONTINUE a basic program after reboot 
High speed multidimension SORT built 
into SUPERBASIC" 
Erase/Zero arrays with one command - 
No more Redim errors 
Fastest deapacer for Basic programs - 
in ram, no special file needed 
Global editor and string packer for Basic 
programs 

Chain basic programs, keeping current 
variable values 

Enhanced list commands - multi lines 
listed 

Keyword cross reference and direct entry 
of graphics 

VERNON B. HESTER ,^415 
42403 Old Bridge Rd. • Canton, Ml 481 
(313) 397-3126 



Pleaae include SI. 50 ■hip./hind. Send your 

iddnai and rheck or MO. Mich. 

rend en U pteiM include 

1'^. ii1f> Ui. 
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Program continued 








HARACTER 








4961 FE00 


04990 


CP 


00H 


QUENCE? 








49B3 201A 


05000 


JR 


NZ»CSTTC 


ANSHIT CHAR 








4985 CPAD4B 


05B10 


CALL 


STTC 


RO 








4988 23 


05020 


INC 


HL 


4989 7E 


05030 


LD 


A,(HL) 


SIC CHARACTER 








498A PE0B 


05040 


CP 


00H 


QUENCE? 








498C 2011 


05050 


JR 


NZ,CSTTC 


ANSHIT CHAR 








49BE CDAD4B 


05060 


CALL 


STTC 


COND ZERO IN 








4991 23 


05070 


INC 


HL 


INC POINTER 








4992 7E 


05080 


LD 


A,(HL} 


SIC CHARACTER 








4993 FE0B 


05090 


CP 


00H 


IRD ZERO IN 








4995 2008 


05100 


JR 


NZ,CSTTC 


RANS CHAR 








4997 CDA04B 


05110 


CALL 


STTC 


IRD ZERO IN 








499A C3E948 


05120 


JP 


XHIT 


TO MINI HENU 








499D 00 


05130 


NOP 




499E 00 


05140 


NOP 




499F CDAD4B 


05150 CSTTCi 


CALL 


STTC 


AR ROUTINE 








49A2 23 


05160 


INC 


HL 


49A3 18D0 


05170 


JR 


CFMR 


ONITOR RETURN 








49A5 CD5A4B 

N 

49A8 AF 


05160 TERH: 


CALL 


SCHTCO 


05190 


XOR 


A 


49A9 32D14D 


05200 


LD 


(ERROR) ,A 


PRINT, CONTRL 






49AC 32D24D 


05210 


LD 


(PRINT) ,A 


NS 








49AF 32D34D 


05220 


LD 


(CONTRL) ,A 


4982 CD2BB0 


05230 TTU: 


CALL 


002BH 


49B5 B7 


05240 


OR 


A 


49B6 284A 


05250 


JR 


ZfRFU 


ECEIVED CHAR 








49B8 FElA 


05260 


CP 


lAH 


ONTROL CHAR 








49BA 200E 


05270 


JR 


NZ,CFSAT 


ECK FOR SHIFTS 






49BC 3EFP 


05260 


LD 


A,0FFB 


WITH 0FFH TO 








49BE 32D34D 


05290 


LD 


(CONTRL] ,A 


L CHAR 








49C1 CD2B00 


05300 WFCC: 


CALL 


002BH 


49C4 B7 


05310 


OR 


A 


49C5 28FA 


05320 


JR 


Z,WFCC 


TRY 








49C7 C3FF49 


05330 


JP 


NCD 


ARACTER 








49CA F5 


05340 CFSATt 


PUSH 


AF 


49CB FE60 


05350 


CP 


60H 


SWITCH ERROR 








49CD 200A 


05360 


JR 


NZ, CFSLA 


TUS . OTHER- 








49CF 3AD14D 


05370 


LD 


A, (ERROR) 


FOR SHIFT<- 








4902 2F 


053 80 


CPL 




49D3 32D14D 


05390 


LD 


( ERROR) ,A 


49D6 Fl 


05400 


POP 


AF 


ARACTER 








49D7 1B29 


05410 


JR 


RFU 


ECEIVED CHAR 








49D9 FEie 


05420 CFSLA: 


CP 


18H 


HIFT<- 








49DB 200A 


05430 


JR 


NZfGAB 


CHAR BACK 








49DD 3AD24D 
T STATUS 


05440 


LD 


A, (PRINT) 


49E0 2F 


05450 


CPL 





;1ST IN SE 
I IF NO 0, TfL 

.•TRANSMIT ZE 

;INC POINTER 
tGET NEXT BA 

f2ND IN SE 

;IF NO 0, TR 
; TRANSMIT SE 
f SEQUENCE & 
;GET NEXT BA 
I LOOK FOR TH 
; SEQUENCE, T 
; TRANSMIT TH 
; SEQUENCE & 

.•TRANSMIT CH 

;INC POINTER 

f CHECK FOR H 

{CLEAR SCREE 

; CLEAR ACC 
;ZERO ERROR, 

;RAH LOCATIO 

;SCAH KEYS 

f CHECK FOR R 

J CHECK FOR C 

!lF NONE, CH 

J LOAD CONTRL 

;NOTE CONTRO 

I SCAN KEYS 

{WAIT FOR EN 

{TRANSMIT CH 

{SAVE CHAR 
{IF SHIFTe, 

; DISPLAY ST A 

{WISE CHECK 

{RETRIEVE CH 
{CHECK FOR R 
{CHECK FOR S 
(IF NOT, GET 

{CHANGE PR IN 

Prograrr' coriunues 
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Program continued 

49E1 32D24D 
49E4 Fl 
ARACTER 


05460 
05470 


LD 
POI" 


(PRINT) ,A 
AF 


;RETRIBVE CH 


FREE! 


49E5 181B 

ECEIVED CHAR 


05480 


Jit 


RPU 


; CHECK FOR R 


A SASE gets you a free pro- 


49E7 Fl 


05490 GAB: 


POP 


AF 


; RETRIEVE CH 


gram listing and a list of our 


ARACTER 
49E8 FEIB 
ARROW, TO 


05500 CFRTM: 


CP 


IBH 


;IF SHIFT UP 


low prices. Here are a few: 


49EA CA6347 

U 


05510 


Jp 


ZfHOH 


;HONITOR MEN 


AXIOM IMP2 Printer $579 


49ED FE01 


05520 


CP 


01K 


;IF BREAK, T 


IMP2PAA 1 With tractor, smgle or roll teed, .5K but- 


OB'S ROUTINE 






ter, includes full graptiics software. 


49EF 283F 
49F1 FE19 
TO TRANSMIT 


05530 
05540 


JR 
CP 


Z, BREAK 
19H 


jIF SHIFT->, 


SEIKO Printer $359 

CP80M 


49F3 CA4e48 

TINE 


05550 


JP 


Z,TRA 


/MESSAGE ROU 


PERTEC Drive $325 


49F6 FEIP 


05560 


CP 


IFH 


;IF CLEAR, T 


FD 200 complete "flippy" {with supply & case} 


CLEAR SCREEN 








capable ot 40 tracif, double der}sity operation. 


49F8 2005 


05570 


JR 


NZ,NCD 


; ROUTINE 




49FA CD5A4B 

N 


05580 


CALL 


SCHTCO 


; CLEAR SCREE 


Also cassettes, diskettes, 


49FD 1803 


05590 


JR 


RFU 


; CHECK FOR R 


cables, memory, power sup- 


ECEIVED CHAR 










plies and cases 


49FF CDAD4B 
ARACTER 
4A02 CDB84B 
ECEIVED CHAR 


05600 NCDj 


CALL 


STTC 


; TRANSMIT CH 


Software: auto minder, graph- 


05610 RFU: 


CALL 


STRC 


; CHECK FOR R 


ics monitor, mailbox, talking 
keyboard & more 


4A05 B7 


05620 


Ott 


A 






4A06 28AA 
N KEYS 


05630 


JS 


Z,TTU 


;BACK TO SCA 


TERMS: Check, Mastercharge, 


4A08 F5 

ED CHARACTER 


05640 


mm 


AF 


;SAVE RECEIV 


Visa or money order 


4A0 9 B9 

AR SENT? 


05650 


CP 


C 


J CHAR REC=CH 


Micro Mnemonics 


4A0A 2802 

IF CNTRL CHAR 


05660 


JR 


2, SICC 


;IF SO, SEE 


(801)825-9317 


4A0C 1811 


05670 


JR 


TFP 


I CHECK FOR P 


403 W 2250N 


RINT ENABLE 

4A0E FE20 05680 SICC: 

CHARACTER, WAS 


CP 


20H 


;IF CONTROL 


SUNSET, UTAH 84015 .4B5 




4A10 300D 


05690 


JR 


NC,TFP 


;IT ECHOED? 






4A12 3AD34D 


05700 


LD 


A, (COHTRL) 






"t A n n A n 


4A15 B7 


05710 


OR 


A 






/A /A /A /A / 


4A16 2807 

RE IT 


05720 


JR 


Z,TFP 


;IF SO, IGNO 




AAA 




4A18 Fl 


05730 


POP 


AF 






\y W/ W/ V y 




4A19 AP 


05740 


XOR 


A 






\ \ \ 




4A1A 32D34D 
L LOCATION 


05750 


LD 


(CONTRL) ,A 


; CLEAR CONTR 


W V \J V U[ 




4A1D 1893 
N KEYS 


05760 


JR 


TTU 


fBACK TO SCA 


SPRING 


4A1F 3AD24D 05770 TFP; 

ENABLED, PRINT 

4A22 B7 05780 

ARACTER 

4A23 2805 05790 

4A25 Fl 05800 

4A26 32E837 05810 


LD 

OR 

JR 

POP 

LD 


A, (PRINT) 

A 

Z,TDO 
AF 
(37E8H) ,A 


;IF PRINTER 
I INCOMING CH 


PROGRAIVI 

BOUNCE 2 


•Calculate a spring in two 
minutes 


4A29 F5 
4A2A Fl 
4A2B CD3300 
OHING CHAR 
4A2E 1882 
N KEYS 
4A30 3ACF4D 


05820 
05830 TDO: 
05840 

05850 


PUSH 

POP 

CALL 

JR 


AF 
AF 
0033H 

TTU 


;DISPLAY INC 
;BACK TO SCA 


•Fine tune springs 
•Check existing springs 
•Calculate wire size 
•Calculate rate 
•Indicates spring stability 


05860 BREAK: 


LD 


A,(HUCR) 


;ZERO SERIAL 


•Change number of active coils 
•Written in Basic 


OUTPUT PORT 












4A33 E6FB 

TIME TO 
4 A3 5 D3EA 


05870 


AND 


0FBH 


;FOR A SHORT 


Program resulting from years 


05880 


OUT 


(0EAH) ,A 


; GENERATE BR 


of designing springs 


EAR SIGNAL 










TRS-80 Model I, Level II, 16K 


4A37 21FFFF 

NE 


05890 


LD 


HL,0FFFFH 


; DELAY ROUTI 




4A3A 2B 
L UNTIL 
4A3B 7C 


05900 GDLY: 


DEC 


HL 


/DECREMENT H 


Documentation and printout of 


05910 


LD 


A,H 


;ZERO RESULT 


the program $6.95 












Documentation and cassette of 


4A3C B5 05920 
4A3D 20FB 05930 
4A3F 3ACF4D 05940 
ftT. nriTDTiT DnDf 


OR 
JR 
LD 


L 

NZ,GDLY 
A, (HUCR) 


; ENABLE SERI 


the program S19.95 


Linear Software Company ^^loo 


4A42 EeF8 


05950 


AND 


0F8H 


Program continues 


9221 STONERIDGE AV 

Westminster, CA 92683 



^See List of Advertisers on page 386 
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DELTA PRESENTS 

PRICES WITH BYTE 



MODEL II. 

2K Mailing Usi-Keep track of 2.000 names & 
aOaresses, reirelve ony one in 2 seconds Tne mosi 
soptilstlcoteo matler on me market Wltti Zlp-sortlna 
moiling lobei printer $349.95 

DMMU (Dlsk/M»moty Monogement Utilltlts) - Read, 
wfira, move and copy any sector on ony dIsK, oi seaicn 
c disk tor d specttic He« of ASCII string Use OlSASSTRS 
to disossemDle onyihing in memory to nighly-tBoaaDle 
Z-80 mnemonics $34.95 

DCS NU-BASIC - Better ttion Itie other exlenOed 
BASICS, tof mucn lessi Sort A seorcn arroys, PEEK & 
POKE read (rom CRT single-step BASIC, msorl & 
delete lines under program control, create linkaDle 
BASIC modules wtiich load & enecuie wiitiout closing 
tiles OF erosing vorloDles use ON BREAK GOTO to trap 
interri,pl5 better line & string Bdiling single-lme 
duplicate & relocate, tull type aneod 80X48 
graphics, mutTHIne tunciions. mucn more Must be 
seen to be believed< SI 70 

DCS CUSTOM S£RVICES-We provide fully custom 
softwore at the industry s most reosonoOte roles Coll 
or write tor details 

MOHll/HI 

MAGIC-Tnots wtiat v»e call our Advanced Grapmcs 
Instruction Course Leorn to draw S-Oimensionol 
shapes and curves that look hl-resi Volume I avoiiobie 
nowtoUKI 16KII&III S9.95 

M0D3M0N-Examine modify, dump & load to tape 

compute JR volues tor hond-ossembiy 

16KIII $9 95 

OlSASSTRS -Mocnme code aisassemOler 16KII or 
III $9.95 

MOKl N DISKS (Box ol 10) tSB.H 

We Invite submissions from all software autnors. 
HlQhest royalties paid For more 



Information, coll or write 



A DEI 

A' 



DELTA COMPUTER SYSTEMS 

668 Chenar>go Street 
Blnghomton, NY 13901 ^^pj 
(607)722-9593 ^57q 513 




Includes controller 
board, mounting 
brackets, cables. 
and power supply 
t(ir 2 internal drives. Controls up to 4 drives 
which may be any combination of internal or 
external. This controller has been tested for 
compatibility with TRSDOS'. LDOS\ and 
NEWDOS\ Using TRSDOS' you may use 
either Tandon or MPI 40 or KO track drives. 
With l,IX)S- or NEWDOS' you may use any 
combinaiion or 5'/4"" drives. The conmitler 
supports any mix of 5'/4" drives including 
single or double densitv . single or double sided , 
35. 40.77 or 80 tracks'. 

TERMS: Cashier's Check. VISA, MAS- 
TERCARD, or C.O.D. Persona] checks ac- 
cepted, but will require 2-3 weeks to process. 
C.O.D. add 3%. 

To Order, CaU (505) 265-5072 

OR Mail order wilh payment to addrtu below; 




JAM Systems. Ltd. 



605V!z San Mateo Blvd., N.E. 
Albuquerque, N.M. 87108 



TRSlXtS IS iltailemiik ol Ridm Sh»ck Corpuralion 
l.[X;),S i\ J Tmiemui. i>l Logitil Svsiems, Inc 
\E-Wrx)S IS i Tmiemaik .■! .^PPARAT 



Ptogram continued 












4A44 F605 


05960 




OR 


05H 




4A46 D3EA 


05970 




OUT 


(0EAH) ,A 




4A48 18B8 


05980 




JR 


RFU 


; CHECK FOR R 


EC CHAR 












4A4A CD5A4B 

N 

4A4D 21404C 

U 

4A50 CDA728 


05990 


VIEW: 


CALL 


SCHTCO 


; CLEAR SCREE 


06000 




LD 


HL/MSGl 


jDISPLAY HEN 


06010 




CALL 


28A7H 




4A53 21CF4D 


06020 




LD 


HL,HUCR 


;READ UART C 


ONTROL LOC 












4A56 CB5E 


06030 




BIT 


3,(HL) 


; CHECK PARIT 


Y & DISPLAY 












4A58 2014 


06040 




JR 


NZfDISMSG 


;IF ODD, EVE 


N, OR NONE 












4A5A CB7E 


06050 




BIT 


7,(HL) 




4A5C 2008 


06060 




JR 


NZfEMSG 




4A5E 21554C 


06070 


OMSG: 


LD 


HL,HSG3 


;"ODD" DISPL 


AY 












4Aei CDA728 


06080 




CALL 


28A7H 




4A64 180E 


06090 




JR 


CCHSGl 




4A66 21594C 


06100 


EM SO: 


LD 


HL,MSG4 


;"EVEN" DISP 


LAY 












4A69 CDA728 


06110 




CALL 


28A7H 




4AeC 1806 


06120 




JR 


CCHSGl 




4AeB 214C4C 


06130 


DISHSG: 


LD 


HL,MSG2 


;"NONE" DISP 


LAY 












4A71 CDA728 


06140 




CALL 


28A7H 




4A74 CD6A4B 


06150 


CCHSGl : 


CALL 


SCMSG 


; CHANGE DBSI 


RED? 












4A77 B7 


06160 




OR 


A 




4A78 2838 


06170 




JR 


Z, WLMSG 


;IF HOT, DIS 


PLAY WD LENGTH 










4A7A FEAA 


06180 




CP 


0AAH 


; I F AA , TO H 


ONITOR MENU 












4A7C CA6347 


06190 




JP 


Z,HON 




4A7F 216E4C 


06200 




LD 


HL,MSG6 


.-DISPLAY PAR 


ITY CHOICES 












4A82 CDA728 


06210 




CALL 


28A7H 




4A85 CD2B00 


06220 


NPS: 


CALL 


002BH 


;WAIT FOR 0, 


E, OR N 












4A88 B7 


06230 




OR 


A 


;0R SHIFT UP 


ARROW 












4A89 28PA 


06240 




JR 


Z,NPS 




4A8B 21CF4D 


06250 




LD 


HL,HUCR 




4A8E FE4F 


06260 




CP 


'0' 


;IF "O", SET 


ODD 












4A90 2812 


06270 




JR 


Z,OIS 




4A92 FE45 


06280 




CP 


■E' 


;IF "E", SET 


EVEN 












4A94 2814 


06290 




JR 


Z,EIC 




4A96 FE4E 


06300 




CP 


•N' 


;IF "N", SET 


NO PARITY 












4A98 2816 


06310 




JR 


Z,DIC 




4A9A FEIB 


06320 




CP 


IBH 


;IF SHIFT UP 


ARROW, TO 












4A9C CA6347 

U 

4A9F CD944B 


06330 




JP 


Z,HON 


; MONITOR HEN 


06340 




CALL 


SERROR 


.'DISPLAY ERR 


OR MESSAGE 












4AA2 18E1 


06350 




JR 


NPS 


;WAIT FOR AN 


OTHER ENTRY 












4AA4 CBBE 


06360 


OIS: 


RES 


7,(HL) 


;SET UP ODD 


PARITY 












4AAe CB9E 


06370 




RES 


3,(HL) 




4AAe 1608 


06380 




JR 


WLMSG 


;T0 WL DISPL 


AY 












4AAA CBFE 


06390 


EIC: 


SET 


7,(HL) 


;SET UP EVEN 


PARITY 












4AAC CB9E 


06400 




RES 


3,(HL) 




4AAE 1802 


06410 




JR 


WLMSG 


;T0 WL DISPL 


AY 












4AB0 CBDE 


06420 


DIC: 


SET 


3,{HL) 


;DISABLE PAR 


ITY 












4AB2 219B4C 


06430 


WLMSG: 


LD 


HL,H5G8 


jDISPLAY WOR 


D LENGTH 












4AB5 CDA728 


06440 




CALL 


28A7H 




4AB8 3ACF4D 


06450 




LD 


A,(HUCR) 


;READ UART C 


ONTROL LOC 












4 ABB E660 


06460 




AND 


60H 


; ISOLATE WL 


BITS 












4ABD FE00 


06470 




CP 


0eH 


;IF 5 BITS, 


DISPLAY 










Program continues 
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'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 




OTHEH^ 
MYSXreiES 



312 pages 
$29.95 



Get them at your local IJG dealer! 



'It has twelve thousand one-liners 

in it, and every one Is great!' 

- Dennis Kitez. Phone orders (71 4) 946-5805 

TH,S-Mi a 4 imdcmark urTiindt. Miorowtfl u. irmdrmark of Miirutud. 



TRS-80 Disk and Other Mysteries is the 
definitive fixit twHik for disk users. Writtn 
by Harvard Penninpton it has more than 
I'M) pajiL's uf easy to read, entertaining and 
immensely useful inftirmaticm - find out 
how t(i recover disk files, the layout of 
information on the disk, memory maps, 
jirohiem solutions . . . the list goes on! 

Many readers have saved days of work 
by recovering tiles that had Iwen unread- 
able. N'ow in its fourth updated printin^^, 
TRS-SO Disk and Other Mysteries has 
been (jettinjj rave reviews in several mag- 
azines. Yours for only $22.50 (plus Sl.oO 
shipping, CA residents please add Sl.llo 
sales tux). 

Microsoft BASIC Detoded and Other 

Mysteries is the complete guide to vour 
I.evel II ROMs. With over seven thousand 
lines of comments and 6 additional chap- 
ters packed with informatitm, this is easily 
the biggest, and l)est, book about the Level 
II ROMs availalile. 

Kxploit the lull power of Microsoft 
BASIC, with the aid of more than .100 
pages of tested examples, understandable 
explanations and detailed comments. Now 
a\ ailable in a revised second printing, only 
$29.95 (plus $2.iH) shipping. CA residents 
add $1.80 sales lax). 

P^ IJG Computer Services, ,--37 
£ 1260 West Foothill Blvd., 
T. Upland, CA 91786 

Please send me a copy of TRS-80 Disk 
and Other Mysteries for $22.50 plus S1.50 
shipping, n 

Please send me a copy of Microsoft BA- 
SIC Decoded and Other Mysteries for 
S29.95 plus S2.00 shipping, l". " 
Please send me a copy of The ("ustom 
TRS-80 and Other Mysteries for S29.9.T 
plus $2.00 shipping. Zl 
OK. send me all three IJG books for 
$82.40 plus Sa.CK) shipping. 1_: 
Overseas add $K.DO per book airmail. 

Name 

Address 

City 

State Zip 

Charge my: 

Z MasterCard Interbank Code 

Z. \'isa Expiration Date 

Card No 

□ Check enclosed for 

Z Ship COD ($2.00 extra) 

Signal ure 



'SM List of Atftrvrt/sc/f on ptge 386 
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UNCOMMON 



SCREEN ARTIST — tum your screen into a drawing 
board Cfeale complex screens wttn simple cooi- 
m»Tds Store screens as BASIC slatemenis on tape 
or disk in any ol 4 tomats, including ultra tasl 
pached stnnos or lines Edit ttve screens you create 
easily Makes ultra fast grapf^ics a snap Merge 
compteleti screens with your proQraiTi A powerful 
tod. oreal tor schools Specrty Tape. Disk, Model I. 
Ill 117.00 

DISCOMETER — disk drtve lachomeler (or the 
Model I Real time, analog display ol rotation speed 
ot your drives. Save S in diagnosing disk problems, 
and making simple motor ad|u5ttnefits SI 4.00 

DUPLKATOH — copy virtually any tape with ease 
BASIC, system, or data Includes venty feature 
Model ( only. S8.00 

SUBPACKER — pack machine code m BASIC lines 
or strings Execute them easily from BASIC Simple 
to use, stunning results Specify Model I, 111. 
Tape/Disk S8.00 

LANQUAQE ARTS — reading lluency. cloze 
reading comprehension drils. tachistoscope In 
eludes 4 programs A complete program lor the 
Bducelo' or concerned parent Specrty Model I III. 
Tape Disk 180.00 

MtOHTV WORD CANNON - educational driM w(lh a 
touch of fun Create quii^es on any sutiiect Word 
cannon does the rest Specify Tape Disk S9.00 

Tape versions require 16K. Level II 
Disk versions require 32K, 1 drive 

MONEY BACK GUARANTEE 
SEND CHECKJM-0. TO: 

smallsystem 



^397 



design 



Box 268, New Hartford, CT 06057 




Program conlmueO 








4ABF 2004 


06480 




JR 


4AC1 3E35 


06490 




LD 


4AC3 1812 


06 500 




JR 


4AC5 PE20 


06510 


CF7: 


CP 


DISPLAY 








4AC7 2004 


06520 




JR 


4AC9 3E37 


06530 




LD 


4ACB 180 A 


06540 




JR 


4ACD FE40 


06550 


CF6: 


CP 


DISPLAY 








4ACP 2004 


06560 




JR 


4AD1 3E36 


06570 




LD 


4AD3 1802 


06580 




JR 


4AD5 3E38 


06590 


MB8: 


LD 


IT WL 








4AD7 CD3300 


06600 


DIS: 


CALL 


4ADA CD6A4B 


06610 




CALL 


LENGTH? 








4 ADD B7 


06620 




OR 



4ADG 2844 

STOP BITS 
4AE0 FEAA 
ONITOR MENU 
4AE2 CA6347 
4AE5 21AB4C 
D LENGTH 
4AE8 CDA728 
4AEB CD2B00 
LECTION OR 
4AEE 21CF4D 
ONITOR MENU 
4AF1 B7 
4AF2 28F7 

4AF4 FE35 
UP 

4AF6 2828 

4AF8 FE36 
UP 

4AFA 281E 

4AFC FE37 
UP 

4AFE 2814 

4B00 FE38 
UP 

4B02 280A 

4B04 FEIB 
ARROW, TO 

4B06 CA6347 

U 

4B09 CD944B 

OR MESSAGE 

4B0C 18DD 

OTHER ENTRY 

4B0E CBF6 

T WL 

4B10 CBEE 

4B12 1810 

4B14 CBB6 

T WL 

4Bie CBEE 

4B18 180A 

4B1A CBF6 

T WL 

4B1C CBAE 

4B1E 1804 

4B20 CBB6 

T WL 

4B22 CBAE 

4B24 218B4C 

P BIT MESSAGE 

4B27 CDA72B 

4B2A 21CF4D 

ONTROL LOC 

4B2D CB66 

P BIT BIT 

4B2F 2007 

4B31 3E31 

PLAY 1 

4B33 CD3300 

4B36 1805 

4B38 3E32 

PLAY 2 

4B3A CD3300 

4B3D CD6A4B 

RED? 



06630 

06640 

06650 
06660 

06670 

066 80 WFWL: 

06690 

06700 
06710 
06720 

06730 
06740 

06750 
06760 

06770 
06780 



06790 
06800 

06810 

06820 

06 830 

06640 EZG: 

06 850 
06 860 
06 870 SEV: 

06880 
06 890 
06900 SIX; 

06910 
06 920 
06930 FIV: 

06940 

06 950 SBHSG: 

06960 
06970 

06 980 

06990 
07000 

07010 
07020 
07030 TSB: 

07040 

07050 CCMSG2 



JR 

CP 

JP 
LD 

CALL 
CALL 

LD 

OR 
JR 
CP 

JR 
CP 

JR 
CP 

JR 
CP 

JR 
CP 

JP 

CALL 

JR 

SET 

SET 

JR 

RES 

SET 
JR 

SET 

RES 

JR 

RES 

RES 
LD 

CALL 
LD 

BIT 

JR 
LD 

CALL 

JR 

LD 

CALL 
! CALL 



NZ,CF7 
A,'5' 
DIS 
20B 

NZ,CF6 
A, '7' 
DIS 
40H 

NZ,HB8 
A, '6' 
DIS 
A,*8' 

0033H 
SCHSG 

A 

Z, SBHSG 

0AAH 

Z,HON 
HL,MSG9 

28A7H 
002BH 

HL,HUCR 

A 

Z,WFWL 
•5' 

Z,PIV 
•6' 

ZfSIX 
•7' 

ZfSEV 
•8' 

Z,EIG 
IBH 

ZfMON 

SERROR 

WFWL 

6,(HL) 

5,{HL) 

SBHSG 

6,(HL) 

5,(HL) 

SBHSG 

6,(HL) 

5,(HL) 

SBHSG 

6,{HL) 

5,(HL} 
HL,HSG7 

28A7B 
HL,HUCR 

4,{HL) 

NZ,TSB 
A,'l' 

0033H 
CCHSG2 
A, '2' 

0033H 
SCHSG 



;IF 7 BITS, 
;IF 6 BITS, 

; DISPLAY 8 B 

; CHANGE WORD 

;IF NOT SHOW 
fIF AA, TO H 

;DISPLAY WOR 

; CHOICES 
{WAIT FOR SE 

; RETURN TO M 

;IF "5", SET 

;IF "6", SET 

;IF "7", SET 

;IF "8", SET 

;IF SHIFT UP 
;HONITOR MEN 
; DISPLAY ERR 
(WAIT FOB AN 
;SET UP B BI 

;SET UP 7 BI 

;SET UP 6 BI 

I SET UP 5 BI 

{DISPLAY STO 

fREAD UART C 
; ISOLATE STO 

IIF "0", DIS 

jIF "1", DIS 

.•CHANGE DESI 
Program condnues 
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Program continued 

4B40 B7 07060 

4B41 CA6347 07070 
, TO MON- 

4B44 FBAA 07080 
4B46 CA6347 07090 
4349 21CF4D 07100 

STOP BITS 
4B4C CB66 07110 

4 OF UART 

4B4G 2805 07120 
ATI ON 

4B50 CBA6 07130 
4B32 C36347 07140 
I TOR MENU 

4B55 CBE6 07150 

4B57 C36347 07160 
4B5A 3E1C 07170 

N, HOME CURSOR 
4B5C CD3300 07180 
4B5P 3E1F 07190 
4B61 CD3300 07200 
4B64 3B0E 07210 

4866 CD3300 07220 
4B69 C9 07230 

4B6A 215E4C Q7240 
NGE QUESTION 
4B6D CDA728 
4B70 CD2B00 
OR Y, N, 
4B73 B7 
HIFT UP ARROW 
4B74 28FA 
4B76 FE4E 



SB4: 
SCHTCOi 



ACC 

4B78 2811 
4B7A FE0D 
ERG ACC 
4B7C 280D 
4B7E FE59 

FP 
4B80 280C 
4B82 FEIB 

ARROW, ACC-AA 
4B84 280B 
4B86 CD944B 
OR MESSAGE 
4B89 1-8E5 
TRY 

4B8B 3E00 
N-NO 
4B8D C9 
4B8E 3EFF 
N-YES 
4B90 C9 
4B91 3EAA 
N»RETURN TO 
4B93 C9 
U 

4B94 21564D 
TO DISPLAY 
4B97 CDA728 
RY ON CRT 
4B9A C9 
4B9B D3E8 
TO RESET 
4B9D 3ACF4D 

UART 
4BA0 E6F8 
G LOCATION 
4BA2 P605 
4BA4 D3EA 
4BA6 C9 
4BA7 CD3502 
TO GET CHAR 
4BAA 77 
TE TAPE 
4BAB 23 
FER POINTER 
4BAC C9 
4BAD 4F 
TO TRANSMIT 
4BAE DBEA 
N ACC 



07250 
07260 

07270 

07280 
07290 

07300 
07310 

07320 
07330 

07340 
07350 

07360 
07370 



SCMSG: 
WFCA; 



07380 



073 90 ZACC: 
SACC: 
RTM: 



07400 
07410 

07420 
07430 



07440 



07450 SERROR: 
07460 



SRAPU: 



07 470 
07480 

07490 

07500 

07510 
07520 
07530 
07540 

07550 

07560 

07570 
07580 STTCj 

07590 WFU: 



STGC: 



OR 
JP 

CP 
JP 
LO 

BIT 

JR 

RES 
JP 

SET 
JP 

\ LD 

CALL 

LD 

CALL 

LD 

CALL 

RET 

LD 

CALL 
CALL 

OR 

JR 
CP 

JR 
CP 

JR 
CP 

JR 
CP 

JR 
CALL 

JR 

LD 

RET 
LD 

RET 
LD 

RET 

LD 

CALL 

RET 
OUT 

LD 

AND 

OR 
OUT 
RET 
CALL 

LD 

INC 

RET 
LD 

IN 



A 




Z,MON 


I IF 00 OR AA 


0AAH 

Z,HON 

HL,HUCR 


;ITOR MENU 
J CHANGE # OF 


4,(HL) 


; CHANGE BIT 


Z,SB4 


; CONTROL LOC 


4,(HL) 
MON 


;BACK TO HON 


4,(HL) 
MON 





A,1CH 

0033H 
A,1FH 
0033H 
A,0EH 
0033H 

HL,HSG5 

28A7H 
002BH 



Z,WFCA 
'N* 

Z , ZACC 
0DH 

Z , ZACC 
lyl 

Z,SACC 
IBH 

Z,RTH 
SERROR 

WFCA 

A,00H 



A,0PFH 
A,0AAH 

HL,MSG11 
28A7H 

(0E8H) ,A 

A,(HUCR) 

0P8H 

05H 
(0EAH) ,A 

235H 

(HL),A 
HL 

C,A 
A,(0EAH) 



; CLEAR SCREE 
; SUBROUTINE 



JDISPLAY CHA 

J SCAN KEYS F 
; ENTER, OR S 

;IF N, ZERO 

;IF ENTER, Z 

;IF Y, ACC = 

;IF SHIFT UP 

;DISPLAY ERR 
;WAIT FOR EN 
f00 ON RETUR 

;FF ON RETUR 

jAA ON RETUR 
; MONITOR MEN 
; SUBROUTINE 
.•ILLEGAL ENT 

; SUBROUTINE 
;AND PROGRAM 
;FROH HOLDIN 

{SUBROUTINE 
;FROM CASSET 
;AND INC BUP 

; SUBROUTINE 
; CHARACTER I 

Program continues 



^100 



CDinpuCaiJEn 

COVER YOUR INVESTMENT 



■ Hjta'd'oo' 1 avi^a'oo' 




Ov»r 200 conn, wrftt for complwf H»t 



loclM* l< » W PQWUft HI* Kv>ai<n« 
DE'lltlllNaUIIIEtlPIVITfD 



BCrTHARE PEN )a)CRN P«»«EMIIVC CMIWEKS " 

lOftBtCMM. COWe WH KAM DCaiMt S*vw> !>«■ 
■*"•>••> calcutatlnn shaat print out •■/ all 
iaraulmm, partlrwnt into tram ACI 318-77 fv 
r«vl<M. Dvaign Ooaad ■tlrri^a ■■ apaclng am) 
atfdltlorul longitudinal PBlnforclng. 

WOEL I IWC TAPE aSV.n DIBK M4.V9 

BTKMM>i Analyism cunt. lEAMB anct FMWCI. 
aif»% mwnt, atmmr, ulal load, and dlapl. 

WOB. I «8K,I-DI«C M9.9S tnOB. II fTt.-n 
nnTH-PflKi Lat your pochat CCM^Hitar tvach you 
■nginaarlng itat^, high acfiool thru P.E. Ciiaa. 

L1I«B WO PDINTB rP^K CM.VS 

eOCROL EOtMTICMS TAPE cit-n 

moc^- I.IAK TIIPC ■19.99 EA. 

niBCELLWCOue pmavmB 

mCEZEn immrrORVi Kaap track o4 food in 
fraaiar by Itaa, data placad In *rmmamr , wtd 
location D« fraaiar. Kaav dlatc or t«^a fUaa. 

IVKXL I IMC... TAPE AIV.VS DIBK •24.99 
VIDCD CASSETTE rHMAOOCNTi Ksap trach of yo" 
racorOad aoviaa. fiaarch tar movia I titia or 
atari, print latiala, and liata. Hach. aort. 

nOCCL I 3ZK,1-DISK DIBK n^.n 

»enoNEX DISKETTE 110 ) 9 1/4" •29.99 

MX-IOC PRINTED M/CfOLE •089.99 

IKlDOTfl t1IC»0LIf« PRINTED M/CABLE... .•999.99 
BHIPPINB t MWMOLIMB FOR PRIWTERB • 19.00 



UPERIOR 
OFTWARE 



nissouiti nSIDEHTS 
PLEUE ADO 
<<» STATE S«.rS TAI 

Uritc SSI for Inforaitlon iboul nrltctlng vW' 
proflr**- P.O. >□> 1lS7i Kwiiii C(ly, M 6t1)8 



MEMOREX 

FUKIBU DISCS 

WE WILL NOT BE UNDER- 
SOLDft Call Free (800)235-4137 

for pnces and information. Dealer 
inqumes mvited and COD.'s 
accepted 

VtSA 




PACinc ^370 

EXCHANGES 

lOOFooihllt BlvO 
San Lull Obispo. CA 
93401 InCal.call 
(800)552-5935 of 

(8051543 1037 



r-Se» Usr ot Advertisvrs on page 386 
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MORSE CODE, BAUDOT and ASCII RTTY 


Progfam continued 










FOR THE TnS-80 MODELS 1 and III 


4BB0 CB77 


07600 


BIT 


6, A 


;WAIT FOR EM 


DISASSEMBLED HANDBOOK -VOLUME 4 


PTY TRANSMIT 












4BB2 28PA 


07610 


JR 


2,WPU 


; BUFFER 


no RS-232C interlace Is r*quired 


4BB4 79 


07620 


LD 


A,C 






4BB5 D3EB 


07630 


OUT 


(0EBH) ,A 


; TRANSMIT CH 


Chapt 1 8 lo 800 WPM Morse iransmil pgm 


APIACTER 










Chapl 2 Adding type ahead capabilities 










Chapl 3 Morse receive decoding program 


4BB7 C9 


07640 


RET 






Chapl 4 Merging + 12 prepared messages 


4BB8 DBEA 


07650 STRC: 


IN 


A,(0EAH) 


; SUBROUTINE 


Chapt 5 Baudol transmil 60-66-?5-100 WPM 


TO RECEIVE 










Chapl 6 Baudot receive lor aDo«e speeds 


4BBA 32D04D 


07660 


LD 


(UUSR) ,A 


; CHARACTERS 


Chapl 7 Merging * 22 prepared messages 


PROM UART 










Chapl a ASCII transmil program nO Baud 
Chapl 9 ASCII receive decoding program 


4BBD CB7F 


07670 


BIT 


7rA 


■TEST FOR RE 


Chapt 10 Merging + 22 prepared messages 


C CHAR READY 












4BBF 2820 


07680 


JR 


Z, RETWZ 


; RETURN IF N 


$18|US| per copy add S2 shippir>g 


OT 










[Sd.SO overseas airmailj 


4BC1 DBEB 


07690 


IN 


A,(0EBH} 


;GET CHARACT 


—GERMAN & FRENCH LANGUAGE EDITIONS — 


ER 












4BC3 F5 


07700 


PUSH 


AF 




Morse. Baudol A ASCII on disks $49 


4BC4 3AD14D 


07710 


LD 


A, (ERROR] 


;SEE IF ERRO 


jVol. 4 required (or inslruclions} 


R DISPLAY ON 










RiCHCRAFT ENGINEERING LTD. 
#1B Wahmeda Industrial Park 


4BC7 B7 07720 
4BC8 2007 07730 
PLAY CBARACTEB 


OR 
JR 


A 

NZ, DISDAT 


IIP NOT, DIS 


Chautauqua, New York 14722.^276 


4BCA 3AD04D 


07740 


LD 


A,(HUSR) 


;GET SAVED U 


COD orderslUS only] [7161753-2654 


ART STATUS 












4BCD E63 8 
OR BITS 


07750 


AND 


38H 


; ISOLATE ERR 






4BCF 2012 

, FIND ERROR 

4BD1 Fl 


07760 

07770 DISDAT: 


JR 
POP 


NZ,ERR 

AF 


;IP NON-ZERO 
.'RETRIEVE CH 


"DEftTHBLDtiJ" 


Bn hncredibieDeui 


ARACTER 
4BD2 E67F 


077 80 


AND 


7FH 


; STRIP 8TH B 


SPACE fiDUEHTURE 


IT 

4BD4 FE60 


07790 


CP 


60H 


;IP SMALLS, 


Frnm LD.S. in Basic 


CHANGE TO CAPS 
4BD6 3F 07800 


CCF 








4BD7 D2DC4B 


07810 


JP 


NCCFLP 




''^^ 'l'^^^^I^^ ^ * 


4BDA CBAF 


07 820 


RES 


5, A 






4BDC FE0A 


07 830 CFLF: 


CP 


0AH 


;IF LINE FEE 


.■''"'»'V.'* ^^W'-'v 


D, IGNORE 










4BDE 2801 


07840 


JR 


Z, RETWZ 


; RETURN WITH 


ACC « 










□■^^■B^p^' ^am. 


4BE0 C9 


07850 


RET 






V . ■^^ ■•**l-- -N ^ .V • • «ll 


4BE1 AF 


07 860 RETWZ: 


XOR 


A 


; CLEAR ACC 


4BE2 C9 


07870 


RET 




J RETURN 


4BE3 21D04D 
ERROR STATUS 


07 880 ERR: 


LD 


HL,HUSR 


fREAD SAVED 


Send Check O IBK-^OSOQ 


Op Money □ 3EK- ^IT-.SO 


4BE6 CB6E 


07890 


BIT 


5,(HL) 


flP OVERRUN, 


Order To: O -^BK- $20,00 
I.D.S. OAll3~ $30.00 


DISPLAY "0" 
4BE8 C4P74B 
4BEB CBe6 


07900 
07910 


CALL 

BIT 


HZ,OE 
4,(HL) 


fIF FRAMING, 


po. Boxi4Ba ""■"■ '••"°"";;^i„io 


DISPLAY "P" 










Oatlas, Texas jriV"!*."' '"" """ '"' 

^365 

'522n DOCUMENTATION IHCLUWO C 1 DI 1911 


4BED C4FD4B 


07920 


CALL 


NZ,FE 




4BF0 CB5E 


07930 


BIT 


3,(HL) 


;IF PARITY, 




DISPLAY "P" 
4BF2 C4014C 


07940 


CALL 


NZ , PAR 


;T0 DISPLAY 






BAR 

4BP5 180E 


07950 


JR 


DISB 




- Plotf'i'.'On^l - 


Real Estate Software 


4BF7 3E4F 


07960 OE: 


LD 


A, '0' 


;LOAD "0" CO 


For APPLE, TRSeO « PFT 


DE 










Properly Management System 


4BP9 CD3300 


07 970 DEM: 


CALL 


0033H 


fDISPLAY CHA 


(32K 1 Oisd Syslemi,) 


RACTER 










Fealuie; 


4BFC 09 


07 980 


RET 




; RETURN 


• leridrl Inlorni^lion « S Digit (ipEnse Accounts 


4BFD 3E46 


07990 FE: 


LD 


A,'P' 


;LOAD "F" CO 


• law KfM Beao"'' • Rmiilinri Eifierise Hepoit 


DE 










• YTDSMoinnlvlrcomc • l/enOo' E.pen-.e ftepori 










• Hjfiriif^ - • tnc(j'"p T*" fleppir 

Pjilijl P)viIl?nTl • A' fll-IJIlrM'jil Bf fr.:1l?n 
Retliinfd Cflftt'^ • ^nmolpip f)DCiiniR<il.^!<ti" 


4BPP 18F8 
RACTER 


08000 


JR 


DEH 


;DISPLAY CHA 


«a«aticf PjyiTifnt' • Ihi Oj'j (nir, S (pit 
• S'lnls Receipts • Vjcanty nepori 


4C01 3E50 

DE 

4C03 18F4 


08010 PAR: 


LD 


A, 'P' 


fLOAD "P" CO 


Price $275,00 


08020 


JR 


DEM 


;DISPLAY CHA 


Real Estate Analysis Modules: 


RACTER 










(Casseiie 01 Di^kt 


4C05 3EAA 


08030 DISB: 


LD 


A,I3AAH 


;LOAD BAR CO 


1 1 Home PurtBs^B AiHlvsis 


DE 










?i Tai Oelfrrei) Ficnanne 










Jl Consiruclion Cosl/Prolil 


4C07 CD3300 
RACTER 


08040 


CALL 


0033H 


; DISPLAY CHA 


M WB loan Analysis 


bl P'operly Salts Analysis 


4C0A 18C5 


08050 


JR 


DISDAT 




?^ [ njll AlTITlrf JtirHl 

^g |^S35 Per Module 


4C0C 2A 
*';MESSAGE 
4C28 0D 


08060 HSG0: 
08070 


DEPH 
DEFB 


'*** EHTROL SYSTEMS, INC. ** 
0DH 




1 lloltware ""'"""n,!";,'.'?"""" 1 


J TABLE 
4C29 20 


08080 


DEPH 


• *** LYNX TLS ***' 




1 lealty llompany ■ 


4C3B 0D 


08090 


DEFB 


0DH 




1 I^hJ^ 1 


4C3F 00 


08100 


DEFB 


00H 


Pfogra'" continues 


1 


i)ep' M \Uf> t St^;;i r^aiihjiimiBpsri' C» lOJfeb ■ 
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INTRODUCING: 



SPECTRONICS, INC. 

(A Wholly Owned Subsidiary of Level iV Products) 

- OFFERING - 

The Full TRS-80* Line at Discount Prices, 

and Extended Warranty Coverage 






COLOR COMPUTER 


MOD III COMPUTER 


16K(R) $440 


16K(R) S859 


16K(E) $359 


48K2-40 drives (R) $2010 


16Kw/ext basic (P) 3529 


48K2-40 drives (E) $1859 


16Kw/ext basic CE) $479 


48K2'80 drives (E) $2119 




RS232interfoceadd $89 



MOD II COMPUTER 

32K(R) $2950 

64K(R) $3375 

Expansion Dr#l(R) S999 
Expansion Dr#l-2-3(E) $695 



NOTE: THE MOD 111 OAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMAHED FLOPPY DISK STOR- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 
TAILORED TO YOUR EXACT NEEDS, 



PRINTERS 




DR^ 


flS 


PERIPHERALS 




Line Printer IV (R) 


$849 


COMPLETE RAW 


E,I.OK(R) 


$249 


Line Printer VI(R) 


$986 


40TRKMPI(E) 


S309 S245 


E.I. 16K(R) 


$359 


Daisy Wheel II (R) 


$1679 


80TRK 




E,I.32K(R) 


$469 


C ITOH Starwrifers 


Call 


MR (E) 


$429 $360 


E,I,16KCE) 


$305 


Centronics All 


Call 


40/40TRK 




E.I.32K(E) 


$362 


Epson All 


Call 


MPI (E) 


$445 $375 


16KRAM(200MS) 


$ 39 


AnadexAII 


Call 


80/80TRK 
MPI (E) 


$579 $515 







DEALER'S INQUIRIES INVITED, CALL FOR OUR WHOLESALE DEPARTMENT (313) 525h6201 



WARRANTY POUCY 

Items including non-Radio 
Shock components (E) ore 
ccvered by on extended six- 
month ports/lobof warranty in 
ou tech service center 

Items constructed from Rodio 
Shock approved components 
(R) are ccvered by o 90-day 
ports/labor worronfy at any 
rtadio Shock stofe, plus an addi- 
tional 9C days in ou tech set- 
vice center 

^See List ol Aavertisers on page 386 



HRMS OF SALE 



2% Discount ollowed on cash 
pre-paid orders. Personal 
checks require two weeks for 
bonk cleorarce. 

Vjso, Moster Chorge and COD 
ordefs accepted. Add S150 for 
COD. '5. 

Shippjng/hdndting/insurance 
add 1.5% or 32.50 minimum 

Prompt shipments from stock. 




SPECTRONICS. INC. 
32461 SCHOOLCRAFT ROAD 
UVONIA. MICHIGAN 48150 

MICHIGAN - (313) 52S6200 
TOLL FREE - 800-521-3305 



■TRADEMAi^ OF TANDV COPP 
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BLACKJACK PLAYIM 

A YEARS INCOME tN 4 MONTHS. 

totic Sirolsgy Tulsri to' tha noiH S •ipwl ollii* 
U» our Tutori t qutckly l*arr how lo b«arna A WINNEf 
Eom $40 hour (.tarn rh« t*cr*ii ot ou' tucc««* Ovr Tufori 
wIM 1«ocli you Ko" 'o. 

"MT YOUiMOMIT" 

•• MAY tACH KAMO " 

•- WOT OtT tARMO " 

"HA ■UltNfU " 

""MWAit"" 

Our Tutort o'« not gomot'i* Thay or* tafiout looll '0 
mok* wmn*rt out o' you. THo outhort hav« ip«f^t 7 y«Ofl 
ployli^g 1 b«4ng wknnon. Now lo can you. wtfti th« aid 
ot ouf Tutori. Ouf Tutor t ar« batad on th« itrat*gl*» 
d*v*l4p«d by lowrvnc* Kwar*. Mort nlvancad t1rot*gi«« 
ort avatlablo coii for >nfo ConiuJtolio'i i< ovallobi* 
fof you by moil or phone From I3pin Horn M.ST 

PKC 1 conlom* 10 Koik Tuloti fai Atlantic City, oi Navoda 
Ruth SIS lo> I6K Med I or Mod III co». UO for ]» dlik 
FIhih odd U 00 tor (hilpptng 

--206 

MICRO UAJAK SYSTEMS INC. 
2«M NORTH EILEN STRCET 
FLAGSTAFF, ARIZONA MM1 
[M») 77i-S733 »f (Wa) 774-7S«1 



EDUCATIONAL 
SOFTWARE 

F-or TRS 80- Color Computer. PET. Applf II. 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Wnie for FREE Catalogue 
MICRO LEARNINGWARE ^e^ 

BOX 2 134. N. MANKATO MN 5600I 
S07 625-220S 



VISA 1 MASTER CHARGE ACCEPTED yf 



.%»• FMy : 'i ' I Jy.< ry 111' I (lull ."l I o^.^ 
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* SHi 

• C0< 

I ns 

L 



CALL US ANYTIME 



S m 
E " 

J 



Prog'am confinuefl 

4C40 0D 
4C41 50 
4C4B 00 
4C4C 44 
4C54 00 
4C55 4F 
4C58 00 
4C59 45 
4C5D 00 
4C5E 0D 
4C5F 43 
4C6C 0D 
4CeD 00 
4CeE: 0D 
4C6F 4E 
4C89 0D 
4C8A 00 
4C8B 0D 
4C8C 53 
4C9A 00 
4C9B 0D 
4C9C 57 
4CAA 00 
4CAB 0D 
4CAC 57 
S?" 

4CC9 0D 
4CCA 00 
4CCB 0D 
4CCC 2A 
4CDC 0D 
4CDD 0D 
4CDE 53 
4CEF 0D 
4CF0 52 
4D01 0D 
4D02 54 
4D14 0D 
4D15 54 
4D21 0D 
4D22 56 
ION {V) • 
4D44 0D 
4D45 42 
4D56 0D 
4D57 00 
4D58 49 
4D65 0D 
4066 00 
4D67 54 
4D79 0D 
4D7A 4C 
4D8A 0D 
4D8B 00 
4D8C 0D 
4D8D 52 
4D9B 0D 
4D9C 48 
4DA9 0D 
4DAA 00 
4DAB 53 
4DBA 0D 
4DBB 00 
4DBC 52 
4DCD 0D 
4DCE 00 
0001 
TO RAGE 
0001 
0001 
0001 
0001 

4DD4 CD2B00 
TO RECEIVE 
4DD7 B7 
CTERS 
4006 2608 
40DA FEIB 

ARROV;, POP 
4DDC 2004 
ETURN TO 
4DDE 01 
U 



08110 
08120 
08130 
08140 
08150 
06160 
06170 
08180 
08190 
06200 
06210 
06220 
08230 
08240 
08250 
08260 
08270 
0B280 
08290 
08300 
08310 
08320 
06330 
08340 
06350 



MSGl; 

MSG2 
HSG3 
HSG4 
MSG5 

HSG6; 

HSG7; 
HSG8; 
MSG9; 



08360 

08370 

08380 M5G10: 

08390 

08400 

06410 MSG20: 

08420 

08430 

08440 

08450 

06460 

08470 

08480 

08490 

08500 



DEFB 0DH 

DEFH 'PARITY IS ' 

OEFB 00H 

OEFM 'DISABLED' 

OEPB 00H 

DEFH ' ODD ' 

OEFB 00H 

DEFH ' EVEN ' 

OEPB 00H 

OEFB 0OH 

DEFH 'CHANGE? (Y/N) ' 

DEFB 0DH 

DEFB 00H 

DEFB 0DH 

DEFH 'NEW PARITY STATUS? (0/E/N) 

DEFB 0DH 

DEFB 00H 

DEFB 0DH 

DEFH 'STOP BIT(S) = ' 

DEFB 00H 

DEFB 0DH 

DEFH 'WORD LENGTH « ' 

DEFB 00H 

DEFB 0DH 

DEFH 'WORD LENGTH = (5/6/7/8) BIT 

DEFB 0DH 

DEFB 00H 

DEFB 0DH 

DEFH •*** LYNX TLS ***' 

OEFB 0DH 

DEFB 0DH 

DEFH 'STORE MESSAGE (S)' 

OEFB 0DH 

DEFH 'RECEIVE BASIC (R) ' 

OEFB 0OH 

DEFH 'TRANSHIT BASIC (X)' 

DEFB 0DH 

DEFH 'TERHINAL (T) ' 

DEFB 0DH 

DEFH 'VIEW/CHANGE UART CONFIGURAT 



□ 6510 




DEFB 


SDH 


06520 




DEFK 


•BACK TO BASIC {B) ' 


08530 




OEFB 


0OH 


08540 




DEFB 


00H 


08550 


HSGll: 


DEFH 


'ILLEGAL ENTRY' 


08560 




DEFB 


0DH 


08570 




DEFB 


00H 


08580 


HSG12: 


DEFH 


'TRANSMIT BASIC (T) 


08590 




DEFB 


0DH 


08600 




OEFM 


'LOAD PROGRAH (L) ' 


06610 




OEFB 


0DH 


08620 




DEFB 


00H 


08630 


HSG13: 


DEFB 


0DH 


08640 




DEFH 


'READY CASSETTE' 


08650 




DEFB 


0DH 


06660 




OEFM 


'HIT L TO LOAD' 


08670 




DEFB 


0DH 


08680 




OEFB 


00U 


08690 


HSG14: 


DEFH 


'SENDING PROGRAM* 


08700 




DEFB 


0DH 


08710 




DEFB 


00H 


08720 


MSG17 : 


DEFH 


'RECEIVING PROGRAM' 


08730 




OEFB 


0OH 


08740 




OEFB 


00H 


08750 


HUCR: 


OEFS 


1 (TE 


08760 


HUSR; 


DEFS 


1 


06770 


ERROR: 


DBFS 


1 


06780 


PRINT: 


DEFS 


1 


08790 


CONTRL : 


DEFS 


1 


08800 


STRBC : 


CALL 


0O2BH -SU 



08810 

08820 
08630 

08840 

6650 



OR 

JR 
CP 

JR 

POP 



Z,BCR 
IBH 

NZ,BCR 

BC 



(TEMPORARY S 



(SUBROUTINE 
(BASIC CHARA 

(IP SHIFT UP 
(STACK AND R 
(HONITOR MEN 

Prog' am continuei 



178 • 80 Microcomputing. October 1981 



P'ogiam caniinuea 

4DDF C36347 

4DE2 DBBA 

SIC CHARACTER 

4DE4 CB7F 

4DEe 28EC 

4DB8 DBEB 

HARACTER 

4DEA C9 

4DEB 0D 

LE 

4DEC 53 

4DPD 0D 

4DFE 45 

4E0F 00 

4EI0 00 
4E11 0D 
4E12 42 
4E1D 00 
4E1E DBEA 
TO RECEIVE 
4E2fl CB7F 
RACTERS 
4E22 2803 
ARACTER 
4E24 DBEB 
4E26 C9 
4E27 CD2B00 
4E2A B7 
4E2B 28F1 
, CONTINUE 
4E2D FEIB 

ARROW, TO 
4E2F 20ED 
IRST POP 
4E31 CI 

4E32 C36347 

MENU 

4590 



08860 
08870 BCR: 

0888B 
08890 
08900 

08910 

08920 HSG18: 

08930 

08940 

08950 

08960 

08970 

08980 MSG19: 

08990 

09000 

09010 STRHC: 

09020 

09030 

09040 

09050 

09060 CFRTMC: 

09070 

09080 

09090 

09100 

09110 
09120 

09130 



JP 
ZN 

BIT 

JR 

IN 

RET 
DEFB 

DEFM 
DEFB 
DEFH 
DEFB 
DEFB 
DEFB 
DEFH 
DEFB 
ZN 

BIT 

JR 

IN 

RET 

CALL 

OR 

JR 

CP 

JR 

POP 

JP 

END 



HON 
A,(0EAU) 

7, A 

Z , STRBC 

A,(0EDH) 



0DH 



;WAIT FOR BA 



;GET BASIC C 



; MESSAGE TAB 



•STORE MESSAGE (S) ' 

0DH 

'ERASE MESSAGE (E) ' 

0DH 

00H 

0DH 

•BUFFER FULL' 

00H 



A,(0EAH) 
7»A 

2, CFRTMC 

A,(0EBH) 

002BH 

A 

Z , STRMC 

IBH 

NZ , STRHC 

BC 

HON 

RELSRT 



» SUBROUTINE 

jMESSAGE CHA 

;WAIT FOR CH 

I ECHO 

ISCAN KEYS 

;1F NO ENTRY 

(IF SHIFT UP 

I MENU, BUT F 

; STACK 

J TO MONITOR 
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EDUCATION 



The students meet the POKE instruction. 



Alternate Course— Part III 



Michael A. Duff in 
1507 East Avenue 
Berwyn, IL 60402 



In most data processing courses, the stu- 
dent usually does not write any programs 
which might affect the system— especially 
a large system. Many large systems have 
enough trouble running without novice pro- 
grammers experimenting with them. The 
TRS-80, on the other hand, is a one-on-one 
system, so the only person that is hurt by 
this type of experimentation is the program- 
mer. 

In my data processing class, I introduced 
the POKE instruction to illustrate graphics. 
There are three reasons I chose the POKE 
instruction rather than Set and Reset. 

First, when using POKE for graphic repre- 
sentations the first operand must be a num- 
ber between 1 5360 and 16383. These are the 
positions in memory (decimal) which con- 
trol what is on the screen (i.e. POKEd 
characters in these positions are reflected 
on the screen). POKEing outside of this 
range will result in a variety of errors and in 
many cases Memory Size? will appear on 
the screen. When this occurs the user's pro- 
gram is lost. By usine POKE my students 
learn what is stored in memory by the 
operating system. 

Second, an additional operand of the 
POKE Instruction Is the ASCII (American 
Standard Code for Information Inter- 
change) representation of a character. 
Thus, when we talked about ASCII in class, 
the students had a concrete example to 
refer to. 

Third, when using the POKE instruction, 
six bits are set on the screen at once. With 
the Set instruction only one bit is set at a 
time. By the way, when you program a 
figure from a TRS-80 video display work- 
sheet using POKE you must add 15360 to 
the numbers through 1023 so the figure 
will appear on the corresponding positions 
on the screen. 

Before we could begin representing 
graphics on the screen using POKE, the 
first thing we had to do was determine 



which bit position combinations corre- 
sponded to what ASCII numbers. All the 
combinations are represented by ASCII 
numbers 129 through 191. I gave my 
students the following program to deter- 
mine the correspondence between 
numbers and characters: 

10 CLS 

20 FOR A = 129 10 191 

30 PHINTA" = "CHR$(A) 

40 PRINT 

50 NEXT* 

I also gave them the following Instruc- 
tions with this program: 

• Type this program in and run it. 

• Add the necessary code to this program 
to slow it down so the character repre- 
sentations can be recorded. 

• Record the character representations of 
129 to 191 on a TRS-80 video display 
worksheet. 

• Describe how this program works line by 
line. 

The problem with this program is the 
characters flash by too fast to be recorded. 
If we add the lines. 



F0RX = 1 to 250 
NEXTX 



the For... Next loop slows the program 
enough to record the characters. Should 
more time be needed, hit the Break key to 
stop the program. To continue, type In 
CONT and hit the Enter key. 

In this program, line 10 clears the screen; 
lines 20 and 50 create a loop starting with 
the number 129 and ending with the numtwr 
191. Line 40 prints a blank line between 
each character representation. Line 30 
prints the current numeric value of A fol- 
lowed by an equal sign. The Instruction 
CHR$(A) prints the ASCII equivalent of the 
number A. For this problem all the ASCII 
equivalents are graphic characters. 

Once my students had recorded all the 
graphic characters, I gave them the follow- 
ing program to type In: 



10 CLS 

20 FOHX = 15362to16376STEP2 

30 POKE X- 2, 32 

40 POKE X- 1,32 



50 POKE X, 32 
60 POKE X + 1,32 

70 POKE X, 176 
80 POKEX + 1,190 
90 POKE X + 2. 189 
100 POKE X + 3, 176 
110 NEXTX 
120 GOTO 20 

I then gave my students the following in- 
structions: 

• Enter this program and run it. 

• Describe how the program works line by 
line. 

• Remove the words STEP2 from line 20. 
How does this affect the program? 

• Write a program that will cause the ob- 
ject to move in a different direction. 

In the program a small flying saucer 
moves across the screen from left to right, 
top to bottom. The saucer is continuously 
erased and rebuilt so It appears to move 
across the screen. More specifically, the 
For. . .Next loop in lines 20 and 110 cause X 
to be incremented from 15361 to 16379. 
STEP2 causes this incrementation to be 
done be twos (i.e. 15362, 15364, 15366, etc.). 
Removal of STEP2 causes the saucer to 
move half as fast. Lines 30 through 60 erase 
the saucer, (i.e. the ASCII number 32 causes 
a six-bit graphic character to be erased). 
Lines 70 through 100 rebuild the saucer. 
This program is a little unusual because it 
starts with a non-existent figure being 
erased and then builds a figure. X is then in- 
creased by two, the previous figure Is 
erased, the next figure is built, and so on, 
until X Is greater than 16377. 

As a further exercise I asked my students 
to write a program which would cause the 
saucer to move in three other directions. 
This isn't that simple because the sample 
program Is not geared for many other direc- 
tions. For example, if we wish the saucer to 
move from right to left, the For . . . Next loop 
Is of little use in Its present form. Thus, they 
first had to determine a set-up for the pro- 
gram that could be adaptable for any direc- 
tion. The right to left example that follows il- 
lustrates this: 



10 CLS 

20 X = 16379 

30 GOSUB 1000 

40X = X-1 

50 IF X<1M60 THEN OOTO 20 
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. . . the only person hurt by 
this type of experimentation 

h the proarammer. " 



60 GOTO 30 
1000 POKE X,176 
1020 POKE X + 1,190 

1030 POKEX + 2,1B9 
1040POKEX + 3.176 
1050 POKE X,32 
1060 POKE X+ 1.32 
1070 POKE X + 2,32 
1080 POKE X-f 3.32 
2000 RETURN 

In this program the subroutine at lines 
1000 through 2000 can be used no matter 
what dlrectton the figure moves. The key to 
the movement is in lines 40 and 50. Line 40 
decrements the value of X by one, and thus 
the saucer appears to move from right to 
left. Line 50 ts necessary to Keep the ship 
from going off the screen, and it also 
restarts the program when It reaches the 
end of the screen. 

If we wish to move In another direction 
we only have to change lines 40 and 50. For 
example, if we wish to move from top to bot- 
tom In a left to right manner we would use 
the following: 

40X = X-64 

42 IF X + 3>163e3THEN X = X- 1023 

50 IF X -f 3 - 183B3 THEN X > 15360 

Line 40 writes X In the position directly 
below the previous X. Line 42 places the 
figure at the top of the screen after the 
figure has been printed at the bottom. The 
figure at the top is printed to the right of the 
previous figure at the bottom. If we wish the 
figure to be printed In a top to bottom, right 
to left manner, we need only substitute the 
following for line 42: 

IF X + 3>16383 THEN X = X - 1025 



Line 50 prints the figure at the upper left 
of the screen before if goes past the bottom 
right of the screen. 

Now that we can get the figure to move in 
any direction. It would be nice If we could 
switch directions at the push of a button. To 
do this we have to make use of the INKEY$ 
instruction. As an introduction, I gave my 
students the following program and in- 
structions; 

10CLS 

100 PRINT 10:GOSUe 1000 

110 GOTO 100 

200 PRINT 20:GOSUB 1000 

210 GOTO 200 

300 PRINT 30:GOSUB 1000 

310 GOTO 300 

400 PRINT 40:GOSUB 1000 

410 GOTO 400 

SCO PRINT 5D:GOSUB 1000 

510 GOTO 500 

1000 FOR X=1 TO200;NEXTX 
1010 IF INKEYS = -B' THEN GOTO 200 
1100 RETURN 

• Run the at>ove program and hit the let- 
ter B. What happens? 



• Modify the program above so that lines 
100, 200, 300, 400 or 500 get executed 
when a different letter Is pressed. 

• What does INKEYS do? 

When the program Is executed, the num- 
ber 10 is written periodically until the letter 
B is hit. At this time the number 20 Is 
printed. 

Modifying the program is somewhat dif- 
ficult. Due to a peculiarity of the INKEY$ In- 
struction, once it is accessed the value dis- 
appears. Thus, if we just used If statements 
between lines 1000 and 1 100, only the first If 
statement would reflect the key that was 
depressed. If we want to check the de- 
pressed key more than once, we must use 
code similar to the following: 

1010 BS = INKEYS 
1020 IF B$ = "A" THEN GOTO 100 
1030 IF BS = -B" THEN GOTO 200 
1040 IF BS = ■■C" THEN GOTO 300 
1050 IF BS = "D" THEN GOTO 400 
1060 IF BS = ■■£■■ THEN GOTO 500 

By Storing the value of INKEY$ within our 
program, we can access it as often as we 
like without it disappearing. 

But now we need an If statement for 
every check we wish to make. To avoid this I 
Introduced my students to the ON . . . GOTO 
instruction with the following changes in 
the program: 

1000 FOR X = 1 TO 200:NeXT X 

1010 ON VAUINKEYS) GOTO 100,200,300,400,500 

1020 RETURN 

The way the ON... GOTO instruction 
works is more clearly explained if I use the 
following example: 

ON X GOT0 100,500.200 

If X = 1 then we go to line 100. If X = 2 then 
we go to line 500. If X = 3 then we go to line 
200. If X has any other value, the next state- 
ment in the program Is executed. In line 
1010 we must use the VAL instruction be- 
cause INKEYS gives us the ASCII equivalent 
of the number we have entered. By using 
VAL the ASCII characters are converted to 
numerics. 

Now that we can move our figure in any 
direction by hitting a key, there are a few 
other things we might desire if we want to 
make this program into a game. First, we 
might want more than one figure on the 
screen. Second, we might want them to 
shoot at each other; and finally we must 
decide if the second figure will t>e con- 
trolled by another person or the computer. 

The 13-line subroutine in Fig. 1 con- 
structs a second figure whose movement is 
controlled by hitting the letters A,B,C or D. 
The values given to the W array in conjunc- 



tion with lines 3020 through 3050 and 3100 
control the direction of the figure. 

Line 3020 causes the letters A through D 
to t>e converted to the numtiers one through 
four. Line 3020 subtracts 64 from the ASCII 
equivalent of the character depressed while 
the program is running. Since the ASCII 
equivalents of A,B,C and D are 65,66,67 and 
68 respectively, this line gives variable B a 
value of one when A is depressed, two when 
B is depressed, three when C Is depressed 
and so on. Line 3030 allows only A through 
D to be depressed; all other letters set B to 
equal one. Line 3040 erases the figure. 

Line 3050 causes Y to t}e Incremented by 
a member of the array W. The values of this 
array were established in line 12 along with 
the Initial values of Y and B. The variable B 
points to the correct element. 

To Illustrate this, let us assume that C 
was depressed while Y = 16005. Then line 
3020 becomes: 



B ^ ASC(C) - B4 which means 
B = 67-B4 which means 

B = 3. 

The If statement In line 3030 falls since 
B = three. Line 3040 erases the figure that 
started at Y = 16005. 

Line 3050 translates to: 

Y = 16005 + W(3)slnceW(3) = 64 from line 12 

Y = 16005 + 64 

Y = 16069. 

The If Statements In lines 3060 through 
3090 re-establish Y if the value of Y extends 
beyond the range of the screen {i.e. 15360 to 
16363). Line 3100 then builds the new figure 
at the desired location. 

To put It more simply. If A is entered, the 
figure moves from right to left. If C is 
entered the figure goes down, and if D is 
entered the figure moves up. 

Fig. 2 Illustrates another version of this 
subroutine. In this version the computer 
controls the ship (variable Y). The 
computer's ship chases another ship 
(variable X). In addition, the computer's ship 
fires upon the user's ship (lines 3130 
through 3200). With minor modifications 
both of these routines can be included 
within the same program. I suggest chang- 
ing Fig.1 in the following manner: 

• Change the line numbers. 

• Change variable Y to X. 

• Change Y = 16379 to X = 15360 in tine 12. 

• Change the variable B to another variable 
name (such as C). 

By adding a couple of GOSUBS you'll 
have one ship chasing another. However, 
since the user's ship doesn't shoot, you had 
better add a routine for this if you intend to 
win.B 
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low's your 
love life? 



^' 




A little dull around the edgcsV 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Intedude is 

the most stimulating computer game ever conceived. 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn your love life into exciting, adventurous, delicious fun! 




Interlude is: romantic, playful... outrageous... a fantasy. Interlude is: ■ A Bed of Roses {inter- 
lude #1} ■ Mata Han Unterlude #49) ■ The Chase (Interlude #7) ■ Rodeo! {Interlude #71) ■ The King and 1 
(Interlude #60) ■ Some Enchanted Evening (Intedude #84) ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No, 30) ■ Satin Dreams (Interlude #72). 



More than 100 Interiudes are included in the program. Most arc described in detail in the accompanying manual. 

but several surprise Interludes are buried in the program awaiting that very 

special time when your interview says you're ready. (When you learn secret 

fntcrlude #99. your love life may never again be the same!) Intedude 

can give you experiences you'll never forget. Are you ready for it? jj^^ Ultimate Experience. 



Interlude 



INTERLUDE, Dept, 80. 10635 Richmond Avenue. Houston. Texas 77042. I'm really ready. Send my Interlude today. 



Apple II I16K)- TRS-SO (Model 1. 16K)- 

a Cassette t$ 18.95) Cassette ($18,95) 

Z Diskette ($21 95) G Diskette ($21 95) 

Diskette - Pascal or DOS 3 3 {$21 ,95) 
Add $1 75 for shipping and handling. 

a MASTCRCARD CVISA 
Account No. 



Poster 

D 20"x 24" reproduction of 
this ad wittiout ad copy 
($4.95— includes 
shipping charges) 

All charge customers must sign here — 
Expiration date 



Available for Immediate •hipmcat. 

Pleeisc enclose your check payable to INTERLUDE 
or complete "the charge information: 



MasterCard Bank Code 



CHARGE CUSTOMERS: Older by phone toll-free! 1-800 -2 3 1-5 768 Ext. 306 (Texas: 1-800-392-2348 Ext. 306) 

Name . — Age 

Address 
City 



State 



.Zip 



■Apple U B B registeied Iradematk of Apple Computers. Inc. "TRS-80 is s registered trademark of Radio Shack, a Tandy Co. 



APPLICATION 



This program mil lay-up your TRS-80 for more than three seconds. 



Hoops 



William Comwell 
609 Ellynn Drive 
Cary. NC 27511 

Score! Doctor J adds two more!", ex- 
claimed the television announcer. 
"Dad, how many points does Doctor J have 
now?" asked my 14-year old son. I couldn't 
tell him as I wasn't keeping score myself, 
but as I glanced up with my response, I 
noticed our Level II 16K TRS-80 nearby, but 
not in operation. 

What a great application— design a 
basketball scorekeeplng program. So in 
the next few evenings I thought con- 
siderably about what would be required. 

The more I thought, the better the pro- 
gram appeared. First, I located a video 
display worksheet and penciled in the for- 
mat of the output— team names, scores 
and fouls. I then provided lines for the 
individual players— numbers, names, 
number of field goals and fouls, total 
points scored, and number of personal 
fouls (see Photo 1). I discovered that a two- 
dimensional, 14-member array in Basic 
would handle all of this data nicely. 

With the output out of the way, I next 
considered the input data. One goal was to 
have the ability to correct any character 
keyed in error prior to entering the data, or 
provide a means of Ignoring the input re- 
quest from any character position. Based 
on my Basic experience, this precluded 
the use of an INKEYS type of routine. Also, I 
wanted any input combination to be one 
character string so the user would not 
have to continually key additional com- 
mas as field separators. This would also 
provide the flexibility of having one , two , 
and four-character input coding strings. 

Next, I started to code the Basic pro- 
gram logic, but on paper first! This turned 
out to be well worth the effort as I was able 
to develop the total program in a subrou- 
tine fashion— optimizing statements as I 
coded — and using open boxes for GOTO 



label numbers. When the Basic coding 
was finished, I wrote the statement 
numbers down tor both the Basic state- 
ments and then in the GOTO boxes. 

Since I don't have the luxury of a printer, 
the paper draft provided outstanding refer- 
ence material for debugging and cosmetic 
changes. And I made several of each. 

The moment of truth arrived as I keyed 
Run. Concept was good, but I had to make 
several other minor adjustments for better 
viewing on the output display. I was quite 
happy with the results— the paper draft 
netted a nearly bug-free implementation! 
Numerical column alignment using Basic 
with combinations of single and double- 



digit numbers was the toughest problem. 
Screen data is presented in anywhere from 
one point five to three seconds depending 
upon the number of players. 

After loading the program and keying 
Run to begin program initiation, the user is 
questioned whether or not he desires an 
explanation of the program and the in- 
structions. Assuming the user wants this 
information, he keys a Y (for yes) and a 
description of the program Is displayed. 

He is then requested to push the Enter 
key to continue program operation. The 
Help screen (see Photo 2) Is displayed. The 
next logical function would be to load both 
a home team and a visiting team. Com- 
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Photo 1. Sample Output Reflecting Box Score of 
NBA final Playoff Game Box Score (Player Fouls are Estimated). 
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Head«f Service tor facino pag* >'371-* 



TWO NFW GAMES FROM SSI FOR THE 

APPLE 
AND THE 



TRS-80! 




THE BATTLE OF SHU 



.>1 UieCiv;! W,i(. 



pitting the Confederate Aitny jyaiii^^t Gmiii^ troupe di.J uiiiuii yuiiUidts. 




TIGERS IN THE SNOW: Ghostlike Na7i Tj(^ _ id irifantiy iw«?p JCfOSb the dark 

frozen forei^ts of the Ardennes dydinst a surpnsed U.b. force in this division/ regiment- level 

siinul,itinn of HitU'r t; i,i--,t dp'^nnr.ite .Ittnck 



We know it hasn't been easy 
for you TRS-80* owners to see so 
many great made-for-Appie-oniy 
games from SS! pass you by. But 
thea It hasn't been easy for us to 
design games for a 16K cassette 
format good enough to meet our 
critical standards. 

After all. we've got a reputa- 
tion to protert. a reputation in 
strategy gaming for unsurpassed 
sophistication, innovatioa realism, 
and playability. 

Weil, our designers have been 
hard at worK and we've not only 
met but surmounted the challenge. 
We're delighted to announce two 
historical wargames — deserving 
of the SSI label — for both the 
Apple* and the TRS-80® (16K 
cassette for the TRS-80 Model I 
and III: 48K disc for Apple II with 
Applesoft ROM card). 

Combining our extensive war- 
game-design experience and superior 
pnDgramming techniques, we've 
given a fresh new look and feel to 
these favorite classic battles. 

At $24.95 each for TRS-80 
cassette and $39.95 each for Apple 
disc these are extraordinary games 
at quite an ordinary price. 

So head on down to your 
local store and check them out 
today! 

VISA and M/C holders can 
order by calling 800-227-1617. 
ext 335 {toll free). In California, 
call 800-772-3545. ext 335. 

To order by mail, send ^ur 
check to: Strategic Simulations Inc 
Dept EMI. 465 Fairchild Drive. 
Suite 108. Mountain View. 
California 94043. 

All our games carry a 14-day 
money-back guarantee. 



As part of our demaiidinn Maadard-* of cxcclk-nce, wc ust- mSXBll floppy diM:». 

Apple IS a registered trademark of Apple Computer Inc TRS-80 a a registered tradernarV of ttie Tandy Corporatiorv 




''What a great application-- 
design a basketball scorekeeping 



mands for each appear later. 

The Enter Data? request appears at the 
txittom line of the screen as a result of: 
keying N (for no) to the information request 
during program Initiation; pushing Enter 
after viewing the program Information and 
Input coding structure display; the suc- 
cessful conclusion of a previously keyed 
input command. 

Since the Enter Data? request Is where 
ail the action occurs during the course of 
this program, a more detailed description 
of the input code structure follows. After 
keying any Input code, the user pushes the 
Enter key to Initiate program action for 
that code. 

Valid single-character entries are: 

?— I have a question and need help— 
this will display the Input coding struc- 
ture (the Help screen in Photo 2) that is 
acceptable to the Enter Data? request. 
D— Display— displays the team and 
player totals. 

X— Input keying error— this character 
appearing In any one of the four posi- 
tions of the input code positions 
signals an Input error and the user can 
respond to another Enter Data? re- 
quest. 

E— Exit— exits or terminates the pro- 
gram. 

Valid two-character entries are: 

HA— Add player(s) to home team— user 
must enter a two-character number, 
push the Enter key, and then key a 
name of 12 characters or less and push 



the Enter key again. If no players' 
names exist, the user will be requested 
to key a team name with the same 12 
characters or less limitation followed 
by the Enter key prior to entering any 
player information. 

VA— Add player(s) to visiting team- 
same description as the HA code ex- 



cept information applies to the visiting 
team. 

Valid four-character entries are: * in- 
dicates that the first character will be 
either an H for a home team player or a V to 
indicate a visiting team player; the second 
character indicates what event occurred; 
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Photo 2. Sample of Help Screen Display. 



THIS IS DIGITALKER 
OUT 127,0 




This is all it takes to say this or 143 other expressions with MiCRO- 
MOUTH*. Absolutely no software drivers or subroutines to load. 
MtCROMOJTH*, the latest Circuit Cellar project can be used as an 
emergency annunciator, as an aid for the handicapped, for process 
control and automatic monitoring, and to add new dimensions to 
computer games. 

Sample phrases that can be programmed are: 
■■THE TIME IS 4 HOURS 23 MINUTES . . .{BEEPf 
■■NUMBER 4 IS 3.47 VOLTS'^ 

■THE SPEED IS 100 METERS A SECOND, , SLOWDOWN ' 
Thousands of expressions can be added by changing the ROM chips. 

MICROMOUTH* is plug compatible with APPLE II and TRS-80' com- 
puters. Directions are included for 8100, H8 and parallel 

port operation . -DIGITALKER is a trademark o< Naiior^al SemicwiductDr Corp 



Coniplct* Kit (Modal I) S1SO.O0 
AtMinblMl and iMlwt 

Appit II $1 50.00 

TRS-W Modal I w/pow«r Bupply, caM, 

cabia $175.00 

TRS40 Modal 111 S200.00I 

'WICROMOJIH IS a trademark o( Micromnt Inc 

The MicroMint Inc. >'3id 
917 Midway 
Woodmere, NY 11598 
Dealer inquiries 
iivitid. 



To order call: 

iaOO-645'3479 

lnN.y.516374-6793 
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"The program provides the basics 

for basketball scorekeeping 

and was a joy to develop/' 



the last two characters of NN represent 
the number of the player. 

*BNN— Basket scored— player NN 
scored a two-point field goal. 
"LNN— Long basket scored— player 
NN scored a three-point field goal. 
'FNN— Foul shot successful— player 
NN scored one successful free throw. 
*TNN— Two (oul shots successful- 
player NN scored two successful free 
throws. 

•PNN— Personal foul— player NN has 
committed a personal foul. 

The Help screen (see Photo 2) provides a 
concise listing for the above codes. 

For those readers who do not care about 
the Internal data structure or have no in- 
tention of modifying the program, they 
should conclude with the summary 
paragraphs. As I staled earlier, the data 
area for the program Is a two-level, 
14-member array for each field; player's 
number (A$), player's name(B$), number of 
field goals (J), number of successful foul 
shots (K), total points (L) and number of 
personal fouls (M). 

Variables N and P are used for updating 
the array fields: N is the level value— zero 
for the home team and a one for the 
visiting team. This value is determined 
from the first character of the input coding 
structure. The variable P, when it ranges 
from one to 13, represents a player value. 
When this variable is a zero It refers to a 
team value. 

For Instance, the name field, B$ (0,0) or 
B$ (1 ,0), refers to the team names. The field 
goal variable, J (0,0) or J (1,0), contains the 
number of players currently entered In the 
team list (see Fig. 1). The total points field 
for the team contains the team score, and 
the number of personal fouls field con- 
tains the number of team fouls. But this 
last value never exceeds seven for either 
team since seven will handle the foul 
bonus situations for all levels of basket- 
ball. 

In summarizing, I wanted a useful, sim- 
ple and meaningful code structure. The 
basketball scorekeeping program, I think, 
meets these original objectives. In addi- 
tion, the program, as is, applies to any 
level of basketball- professional, col- 
legiate, scholastic, or non-scholastic. The 
program can also be used with several of 
the commercial basketball games 
available such as Basket. 

The program provides the basics for 
basketball scorekeeping and was a joy to 
develop. Some possible enhancements in- 



clude: Loading the players' names and 
numbers via tape, disk or data statements; 
printing a final box score at the game's 
conclusion: saving player and team totals 
on some media for use with additional 



averaging-type programs; and, lastly, cor- 
recting any error once entered (points 
credited to the wrong player, disallowed 
baskets or fouls). I would be interested In 
copies of any such enhancements. ■ 



FMd 


VwtaWa 


Tmri MoraiaHon 


PUyar Momtatton 








P*0 


P = 1 


P-13 


Playsr*! numbw 


AS 


— Not iis«d— 


Player's rnimbaf 


Piayaf s number 


Pliyef'a nwrw 


BS 


TMmnams 


Player's rwme 


Pliyer's nam 


FitK) goals (Twte 


J 


NumtMT of iMayws 
ontMffl 


Playsf-s rtakl croals 


Player's Raid goalt 


Fouls macJe 


K 


—Not uoed— 


Plsyef'afoutsmada 


Player's fouls made 


Toiai points 


L 


Tavn poinl loisi 


Playar's point po4n1 
total 


Player's point poinl 
total 


Ptr»onal fouit 


M 


TMmp*r«onal 


Player's parvooat 
louls 


Player's persorMl 
fouls 


Fig. 1 Summary of Array Information (Home Team when N 
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when N ~ 1). 











Program Listing 

10 REH initialize: and set HAXIHUH PLAYSR limit (P-13) 

28 CLEAR 10B0!P-13 

30 DIMAS(1,P) iDIMBS(l,P) :DIMJ U ,P) :DIMIS( 2) :DIHK { 1 ,P) :DIMLtl,P}: 

0IMH(1,P) 

40 CLSiPRINT?144, "BASKETBALL SCOREKEEPING PROGRAM" 

P'ogrtm conimtMs 
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END YOUR TAPE LOADING PROBLEMS 
FOREVERI 




■ ^ ■ 






It • 






■fA-.*-. .riiy. 






THE 

DATA 

0UB8ER 






..„:::..,.. 




TH 


E DATA DUBE 


lER ,576 


THL PERIPHERAL PEOPLE 

rO BOX 2 1 ] 23 SE^VTTLL WA 081 1 1 

i;06) 632-8649 MC &. VISA O K 



EPROM-80 FOR TRS-80 

Programmer tor 2700 Typ« EPROMs 
[2704/08, 2758. 2716, 2732, 2732A. 
Mostec 2764. Intel 2764] 




fUe kHicil sWurio" lo EPPOM pfoaramming' One prMrioi 
'or all type EPflOMs Timing unfler sottware conlrol 26 fin 
itiQ wserlion tnce sachei No Bilernl power suptHias 
'itmttO 36" riDtiDn cible cornects drccl't 10 eipuiitw 

":edjce Avenge pfOflriramtiig Dme 100 isconfls per 1K 
iliei IncMdfls proorMi on disc inO cisselte Progrim 
OMntri IR two modes MoOe 1 FPROM lypeselecf Protnm 
j'WjMs user lo sei 4 roggie Swichas Mpend«n upon 
tPBOMiype Mom? Typ* 0' »citon ReMs One EDTASM 
iiie 'rom C sc or cissene ussembied ariywierc into hitter 
ReiUs EPROM om mio Dj'tei Writes eiuITbi mij to tPPOM 
Ailomitic i^enly ifter Arite Ann Moie Minimuir rewMe- 
■nenti TRS80 LEVEL 2 IBK RAM PRICE 1290 00 

CANTECH DATA .<s, 

7826 W AHGYLE, NORRIDGE. ILL 60656 
PHONE (312)887 0161 
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IfYou've Written a 
Topnotch Program- 
Wed Like to Publish It! 
Program* needed for BUSINESS/ 
OFFICE Applications: 
WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER; ARAP 
ORDER ENTRY/INVENTORY 
Start collecting your royalty 
check! aoonl Write for our free 
Programmer'! Kit today. 

INSTANT SOFTWARE, INC. -2 
Submiaaloo! I>ept. 
Peterborough. NH 0345S 



Program cwiUnuta 

5B PRINTe351,"BY" 

60 PBINTe536,"wILLIAH cORNWELL" 

19 PRIHT#600,"609 ELLYNN DRIVE" 

81 PRItrrg664,"CARY, N. C. 27511" 

90 PRIHT:PRINT 

100 REH TEST TO SEE IP INFORMATION WANTED 

110 INPUT "INSTRUCTIONS NEEDED? KEY: Y/N-;XS;CLS 

120 IF XS="N" THEN 180 

130 REH GO SHOW THE INFORMATION SCREEN 

140 GOSUB 1130 

150 REH GO SHOW THE VALID CODE SCREEN 

160 GOSUB 1270 

170 REM HAIN PROGRAM LOGIC - ROUTINE RETURN POINT 

180 XS-" 

190 PRItJT^961, "ENTER DATA"i:INPUT XS 

200 REM SET AND VALIDATE LENGTH OF RESPONSE 

210 N=LEN[X$):IF N-3 OR N>4 THEN PRINTP1000, "INPUT NOT 1,2 OR 4 

CHARS" ; :GOTO180 

220 REM SEPARATE FIRST CHARACTER OF RESPONSE 

230 I$(1)-LEPT$(X$,1) 

240 IF IS(1) - "X" THEN 180 

250 IF N=l THEN 340 

260 REM SEPARATE SECOND CHARACTER OP RESPONSE 

270 IS(2)»HID51XS,2,1) 

280 IF IS(2) - "X- THEN 180 

290 REM AND GET THE FINAL TWO RESPONSE CHARACTERS 

300 IF N>2 THEN I$(0) -MIDS [XS , 3 , 2) 

310 IF HIDS(XS,3,1) = "X" THEN 190 

320 IF MIDS(XS,4,11 * "X" THCN 180 

330 REH VALIDATE FIRST RESPONSE CHARACTER 

340 IF IS(1)-"D" THEN 1050 

350 IF IS(1) <> "H" THEN 380 

360 REM HOME TEAM SET UP ARRAY VALUE 

370 N-0:GOTO 540 

380 IF IS(1) <> "V" THEN 410 

390 REM VISITING TBAH SET UP ARRAY VALUE 

400 H-1:G0T0 540 

410 IF IS(1) <> "R" THEN 440 

420 REM RESET TEAM FOUL ROUTINE 

430 M(0,0)-OiM[l,0)-fl:PRINTei000,"TEAM FOULS RESET"j:GOT0 180 

440 IF IS{1)*"X'THEN 180 

450 REH SEE IF USER WANTS HELP 

460 IF I$(l)«"?- THEN GOSUB 1270 :GOTO180 

470 REM USER KEY / IN ERROR? 

480 IF IS(1)-"/" THEN GOSUB1270 :GOT0180 

490 REM USER WANT TO EXIT PROGRAM 

500 IF IS(1)*"E" THEN END 

510 REM CODE NOT VALID - GIVE USER ANOTHER TRY 

520 GOTO 180 

530 REM BEGIN SECOND CHARACTER VALIDATION 

540 IF I$(2)--A" THEN 630 

550 REH ADD TEAM/PI.AYEB ROUTINE H OR V SET UPON ENTRY 

560 REM EXTRACT VALUE FOR NO OF PLAYERS 

570 Q-J{N,0) 

580 FOR P-1 TO Q 

590 IP IS(0)=AS(N,P) THEN 810 

600 NEXT 

610 REM PLAYER NOT IN LIST 

620 PRINT^IOOO, "PLAYER HOT FOUND"i:GOTO 180 

630 CLS:Q-J(N,0) 

640 IF QOO THEN 680 

650 REM NO PLAYERS YET - REQUEST TEAM NAME 

660 INPUT "ENTER TEAM NAME" jBS(N,0) 

670 K=LEN(BS(N,0)) :IF K>12 THEN PRINT "TEAM NAME 12 CHARS OR LES 

S - REENTER"iK-0:GOTO 660 

680 0-Q+l 

690 IF 0<14 THEN- 720 

700 PRINT^1O00,"TOO MANY PLAYERS" ;; INPUT CS:GOTO 1050 

710 REM ADD PLAYER ROUTINE 

720 INPUT -ENTER PLAYER'S NUMBER AS TWO DIGITS (05,13) "|A$(N,0) 

730 K-LEK(AS{N,0)) :IF K<>2 THEN PRINT "NO MUST BE 2 DIGITS - REE 

NTER":K-0!GOTO 720 

740 INPUT "ENTER PLAYER'S NAME (12 CHAR LIMIT) ";BS(N,Q) 

750 K-LEN(BS(N,Q)) :IF K>12 THEN PRINT "PLAYER'S NAME HOST BE 12 

CHARS OB LESS - REENTER" iK-0!GOTO 740 

760 INPUT "MORE PLAYER'S TO ADD? KEY: Y/N";ZS 

770 IF Z$-"N' THEN S00 

780 Q=Q+l!PRINT:GOTO 720 

790 REH SAVE NO OF PLAYERS AND EXIT 

800 J(N,0}«Q:GOTO 1050 

810 IF IS(2)<>''B" THEN 850 

620 REH BASKET SCORED ROUTINE 

830 J(N,P)=J(N,P)+1 

Piogfaf conrmtrts 
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Read*' S«<».ce lo' lacino page ^572— 




Cotor Computer 4K S310 
w/Ext. Basic 16K $459 



Model II MK 
S3300 





AtarlS00 32KS7S9 



Model MM 6K 

S839 

2 OR + RS232C 

$21(» 



Theifl are )ust a few of our rnony 
fine offers — computers, periph- 
erals, modems, prlr^ters, disc 
drives and on unusual selection 
of package values. Call TOLL 
FREE today and cfieck us out for 
price and warranty. 



Factory warrantees on Apple and 
Atari equipment Oltier equipment 
carries manufacturer's warranty or 
Computer Plus 180 day exiendeO 
warranty Combined warrantees 
carry Computer Plus 180 day war- 
ranty or origmal manufacturer's 
warranty 



DEALEQ INOUIBIES ARE INVITED 

Piicai tubjsc) )o Chang* without notice 

TIfS-flO II o raglitarad UoOtmaiM ol Tondy Coiq 

call TOLL FREE 
1-800-S4B-8124 



com 




WrtI* lot yoiJ' 
tr*« catalog 



Dept. K 

245A Great Road 

Littleton. MA 01460 

(617)466-3193 



Program contmuert 

840 L(N,P)=L(N,P)+2:L(N,0)=L[N,0)+2:GOTO 1050 

B50 IF IS(2) <>"L" THEN 890 

B60 REM 3 POINT BASKET SCORED ROUTINE 

870 J (N,P) =J (N,P) +1 

B80 L(N,P) -L(N,P)+3:L(N,0)=L(N,0)+3:GOTO 1050 

890 IF IS(2)<>"T" THEN 930 

900 REM TWO FOULS HADE ROUTINE 

910 K(N,P) -K [N ,P) +2 

920 L[N,P) =L(N,P) +2:L!N,0) =L(N,0) +2:G0T0 1050 

930 IF IS(2)<>"F" THEN 970 

940 REM ONE FOUL SCORED ROUTINE 

950 K(N,P) -K (N,P) +1 

960 L{N,P) -L(N,P)-t-l:L[N,0)=L(N,0)+l:GOTO 1050 

970 IF I$(2)<>"P" THEN 1030 

980 REM PERSONAL EOUL ROUTINE 

990 IF M(N,P)<6 THEN M(N,P) = M(N,P)+1 

1000 IF H[N,0)<7 THEN M (N , ) =H (N , ) +1 

1010 GOTO 1050 

1020 REM SECOND CHARACTER INVALID - TELL USER 

1030 PRINTgl000, "SECOND CHARACTER INVALID ";: GOTO 180 

1040 REM SCREEN DISPLAY ROUTINE 

1050 CLS:N=0:P=1:I=J(0,01 :IF J(1,0)>I THEN I=J(1,0) 

1060 PRINT TAB(0) "H: " ;TAB(3) BS[N,0) ; " -> " f L (M , ) ; TAB ( 24) "TF-" ;M { 

N,0) ;TAB(33) "V:";TAB[36)BS(P,0) ;" ->";L[P,0) ; TAB (57) "TF-" ;H(P,0) 

1070 PRINT TAB(1)"» PLAYER" ; TAB [ 17 ) "G F PT PF" ; TAB ( 3 4) " I PLA 

YER" : TAB (50) "G F PT PF" 

1080 FOR Q >^ 1 TO 13 

1090 IF KQ THEN PRINT:GOTO 1110 

110 5 PRINT TAB(0) AS !N,Q) ; TAB ( 3 ) BS(N,Q) ; TAB ( 16 ) J [ N ,Q) ;STRS (K(N,Q) 

) ; TAB (23) STRS [L(N,Q) ) ; TAB (27) STRS(M[N,Q) ) fTAB(33) AS (PrQ) ; TAB (36) 

BS[P,Q) ;TAB[49) J(P,Q) ;STRS[K(P,Q) ) ; TAB (56) STRS(L[P,Q) ) ;TAB[60)ST 

RS(H{P,Q)) 

1110 NEXT 

1120 GOTO 180 

1130 REM INFORMATION SCREEN DISPLAY ROUTINE 

1140 CLS:PRINT TAB ( 16) " BASKETBALL SCOREKEEPING PROGRAM" 

1150 PRINT: PRINT "PROGRAM WAS DESIGNED FOR EASE OF USE WHILE KEEP 

ING SCORE OF A" 

1160 PRINT"BASKETBALL GAME IN PROGRESS AT ANY COMPETITIVE LEVEL 

— PRO," 

1170 PRINT"COLLEGE, SCHOLASTIC OR PICK-UP VARIETY .": PRINT 

1180 PRINT"PROGRAM FEATURES A 'HELP' FACILITY BY KEYING '?' AND 

CODES FOR:" 

1190 PRINT"2 POINT FIELD GOALS, 3 POINT FIELD GOALS (PROS), 1 OR 

2 FOUL" 
1200 PRINT'SHOTS MADE, AND RECORDING A PLAYER'S PERSONAL FOULS," 
: PRINT 

1210 PRINT"LIMITATIONS INCLUDE: 12 CHARACTER MAXIMUM FOR NAMES 
F TEAMS" 
1220 PRINT"AND PLAYERS, TEAMS CAN HAVE A MAXIMUM OF 13 PLAYERS." 

1230 PRINT: PRINT 

1240 PRINT TAB(39)"PUSH 'ENTER' TO CONTINUE" 

1250 INPUT CS 

1260 RETURN 

1270 REM VALID INPUT CODE SCREEN DISPLAY ROUTINE 

1280 CLS: PRINTgg , "VALID INPUT CODES FOR THE 'ENTER DATA' REQUEST 

1290 PRINT§133, "CODES: ? " : PRINT@14 5 , "HELP NEEDED, DISPLAY THIS 

SCREEN" 

1300 PRINT@205, "D" :PRINTP209 , "DISPLAY TEAM AND PLAYER INFORflATIO 

N" 

1310 PRINT?269,"R" :PRINTe273 , "RESET TEAM FOULS TO ZERO" 

1320 PRINT0333,"X":PRINT§337, "INPUT KEYING ERROR - IGNORE (IN A 

NY POSITION) " 

1330 PRINTe397 , "E" :PRINT@401, "GAME OVER - EXIT FROM PROGRAM" 

1340 PRINTg460 , "HA" :PRINTe465 ,"ADD PLAYER TO HOME TEAM LIST" 

1350 PBINTg524,"VA" :PRINT@529 ,"ADD PLAYER TO VISITING TEAM LIST" 

1360 PRINT@580,"( * = 'H' FOR HOME TEAM, 'V FOR VISITING TEAM B 

ELOW) " 

1370 PRINT@650, "*BNN" :PRINT@657 , "2 PT FIELD GOAL BY PLAYER NN" 

1380 PRINTe714 ,"*LNN" :PRINT@721 , "3 PT FIELD GOAL BY PLAYER NN (P 

ROS/LONG SHOT) " 

1390 PRINT@77B,"*FNN" :PRINTe785,"l PT FOUL SHOT HADE BY PLAYER N 

N" 

1400 PRINTe842, "*TNN" :PRINTfi849, "2 PTS ON FOUL SHOTS MADE BY PLA 

YER NN" 

1410 PRINT@906 , "*PNN" :PRINTe913 , "PERSONAL FOUL AGAINST PLAYER NN 

1420 RETURN 

1430 PRINTe998,"PUSH 'ENTER' TO CONTINUE" 

1440 INPUT CS:RETURN 
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THE 

SWIT 

SWITCH TO^'^" DOUBLE DENSITY 



t IXDmtbler S/s 



1 



FEATURES 

• 5- and 8-inch* disk drives 

• Single- & double-density 

• Any size and density in any mix 

• Read Model I, II* and 111 disks 

• 5- or 8-inch* system disk 

• Single & double sided disk drives 

• DOS-t- 3.3.9 included, with Disk 
BASIC. 

• 6 month warranty 

• Up to 3.75 megabytes online 

• Easy installation - plug-in & run 

• Analog phase lock loop data 
separation 

• Precision write precompensation 

• Regulated power supply 

• Guaranteed operation at 4MHz 

• All contacts gold plated 

• Solder masked & silk screened 

• Runs under DOS-*- 3.3.9. TRSDOS 
2.3, NEWDOS 2.1, NEWDOS/80 
1.0. LDOS, NEW DOS/80 2.0, 
and ULTRADOS 

• Reads 40- and 35-track disks on 
80-track drives 

• FD1791 controller + your FD1771 

• Fits Model I expansion interfaces 

• Fits LNVV expansion interfaces 

• ' Track configurations to 80-tracks 

• 5 inch disk storage increased to; 

161,280 bytes - 35-track SS/DD 
322,560 bytes - 35-track DS/DD 
184,320 bytes - 40-track SS/DD 
368,640 bytes - 40-track DS/DD 
368,640 bytes - 80-track SS/DD 
737,280 bytes - 80-track DS/DD 

• 8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1.182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double -density 

COMPLETE - The LNDoubler 5/8, 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double -density disk 
operating system (DOS-t- 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density. 5- or 8-inch operation, 
complete versatihty is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track. single-sided 5-inch drives 
will store up to 184,320 bytes 
{formatted storage) - that's an 80*"< 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
~ that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double -density 



hoard you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 
$ 



219.95 



L)K.A,LERS - You too can 
make The Switch. 




Jj]\ff^RESEARCH CORPORA TION 



2620 WALNUT Tuttin, CA. 92680 (714)544-5744 (714)641-8850 

**■■ tifive operaiinn wtuirw »p«i«l (ablp. 8" dtnibk dciwily rpqinrw .^ .55.MHjj CPU ■('•'•■J-uiJ ii..«liiiu.iioi. ..r LNW-ftO 4MHi ...mpult-r TRS BO « U IrademarWuf Tandy Coriit-raliyn. 




Just 55 hours ago, 5.3 million pounds of thrust from two solid fuel boosters sent the 
Space Shuttle Columbia into orbit. Now, on-board computers performing 325,000 
separate operations every second will help guide the Columbia safely and gracefully 
home to Earth. 

Instant Software's SPACE SHUTTLE puts you in the command pilot's chair of America's 
first reusable space vehicle. And, until commercial space flight becomes a reality, this is 
the closest you'll get to the Ultimate Flight. 



0332RM1 Model I & III Level II 16K $14.95* 

.-we 

Inslant Software 



VISA 



PETERBOROUGH, N.H. 03458 



TO ORDER: 

See your local 

Instant Software dealer 

or Call TollFree 

1-800-258-5473 

■ I'rteis only 

In New Hampshire 
1-603-924-7296 

■Ajn Fii 00Odm-4Xpn> ES T 



'Plus shipping 



Dealer inquiries inviled 



CQniinue<] from page Tr7 



'To help us recognize the 'programs* or 
levels of thought in our own minds, 
Hofstader engages us in various mind games. 



pie. There is no psychological proof to chart 
the metamorphosis of neuron action to 
symbol recognition to iteration. To help us 
recognize the "programs" or levels of 
thought in our own minds, Hofstader en- 
gages us in various mind games. This Is the 
purpose ot the fictional dialogs that follow 
each chapter of Godel, Escher, Bach. 

The main characters of the dialogs are 
the Tortoise and Achilles. The choice of 
these figures was inspired by Zeno and by 
Lewis Carroll. Zeno, a Greek mathemati- 
cian, wrote a tale about a foot race between 
the Tortoise and Achilles to illustrate his 
theories of paradoxes of motion. Lewis 
Carroll, the author oi Alice in Wonderland 
and a Nineteenth-century mathematician, 
borrowed the Torloise and Achilles from 
Zeno to write a dialog about reasoning 
Carroll's dialog is reprinted in Godel, 
Escher, Bach. Each dialog in the book helps 
us conceptualize the intricate methods of 
human thought. 

Hofstader's dialog titled "Crab Canon" 
tells the story of a chance meeting between 
Achilles and the Tortoise in the park. In the 
middle of their conversation, they are inter- 
rupted by a friend, the Crab. The title, "Crab 
Canon," has more significance in relation 
to the dialog. 

"Crab Canon", you'll recall. Is a theme 
followed by Itself In reverse. The notes read 
the same melody backwards and forwards. 
In Hofstader's "Crab Canon" the lines are 
virtually the same when they are read from 
the end or from the beginning. For instance, 
the opening lines of the dialog are: 



roto/s« Good day, Mr A. 

Achilles Why, same lo you 

Tortoise: So nice to run Inlo you 

Achilles That echoes my thoughts 

Tortoise. And It's a perfect day (or a walk 1 ihink I'll 

tie walking home soon. 



And the closing lines: 



Achilles. And Its a oerfoct day (or a walk I think 

t>e walking home soon 

Torloise: That echoes my thoughts 

Achilles. So nice to run Into you. 

Tortoise. Why, same to you. 

Achilles: Qood day. Mr. T, 



When the Crab appears, he's full of 
multiple-entendres and self-references. He 
talks about himself, saying he "would crab 
up a storm." Of course, his name, the Crab, 
is self-reference within the dialog. But the 
Crab's words also hint at the structure of 



the dialogue. "'Which came first— the Crab, 
or the Gene?' That is to say, 'Which came 
last— the Gene, or the Crab?"' (His refer- 
ence to his genes reflects on the structure 
of meaning in yet another way. Unless 
you're familiar with the genetics of crabs, 
you'll have to read Godel, Escher. Bach to 
appreciate the allusion.) 

The conversation between the Tortoise 
and Achilles touches on a print by Escher in 
which interlocking crabs are formed by the 
figure and the ground, and also on a crab 
canon in Bach's Musical Offering. In less 
than four pages, the word "crab" has ac- 
quired a myriad of symbolic meanings. 

The "Crab Canon" is a highly structured 
piece of writing that causes numerous sets 
of operations lo be carried out within the 
reader's cognitive system. But we use such 
deep and intertwined levels of interpreta- 
tion dally. While I was reading Godel, 
Escher, Bach, I dreamed one night that I was 
an Al researcher. My dream Is a less 
sophisticated story than Hofstader's "Crab 
Canon." But it is a clear example of several 
levels of implicit meaning within the hierar- 
chy of my own thought processes. 

An Al research pro|ect I had been working 



S^'Z-.^ 



on for many years was reaching Its culmina- 
tion. Yet, I felt the answers lo many of my 
questions were beyond my reach. I had ac- 
cess to a vast computer system and lo sev- 
eral microcomputers. None of them could 
help me form ideas. I left the lab to walk 
along a secluded beach at twilight. 

I walked up and down the beach for sever- 
al hours. I contemplated subtle distinctions 
between the minds of men and the minds of 
machines. Finally, I laid down beneath a 
cluster ot palm trees to sleep. As I listened 
to the waves, I thought to myself, "At least 
In this way, the human being will always be 
different from computers." I had struggled 
with ideas and depression, and 1 had been 
comforted by nature. 

When I awoke at dawn one of my micro- 
computers was beside me. It presented me 
with an exhaustive catalog comparing and 
contrasting the most current tacts about 
human and machine intelligence. I hadn't 
programmed the computer to generate the 
list. It had acted on its own volition. 

In many ways, the dream is a synopsis of 
Godel. Escher. Bach. First, some thought 
patterns Hofstader stresses are evident. 
There's a circular pattern of self-reference. 




M. C. Escher's Hand Drawing Hand 

■■",. BEELDRECHT, Amsterdam VAGA, New York 1981 CoUeclion Haags Gemeentenuseur 



192 • 80 Microcomputing, October! 981 



NEED A PRINTER? 

UP TO 25% DISCOUNTS! — same day shipment! 



RADIO SHACK \ 
LINE PRINTER IV / 



^ CENTRONICS 739 ( 

With Graphics and 

Word Processing Print Quality 



• 18 X 9 dot matrix: suitable tor word 
processing • Underlining • proportional 
spacing • right margin justiticatlon • serif 
typeface • 80/100 GPS- • 9'^' Pin 
Feed/Friction teed • Reverse Platen • 
80/132 columns 'Top of form 

CENTRONICS 739-1 (Parallel) (List $995) $765 

CENTRONICS 739-3 (Serial) (List $1045) 815 

GRAPPLERTm Apple graphics Interface S166 




ANADEX 





Dot Graphics, Wide Carriage 



• 1 1 X 9 dot matrix; lower case descen- 
ders • Dot resolution graphics • Bi- 
directional, logic seeking • Up to 200 
OPS • RS 232 Serial & Parallel • Forms 
control • X-ON/X-OFF • Up to 6 pan 
copy. 

ANADEX 9501 (List $1650) tCM 

QRAPPLER''^" Apple graphics Interface tIM 



VISTA - C. ITOH STARWRITER 



Daisy Wheel Letter Quality 

• 25 CPS (Optional 45 OPS) • Typewriter 
quality • Centronics parallel • RS 232 
Serial (Optional) • Proportional spacing • 
Bidirectional • Programmable VFU • Satf 
test • Diablo compatible • Friction feed 
(Optional tractors) • 136 printabte columns 

• Manufactured by C. ITOH. 



VtSTAV300(C.ITOH)STARWRITER {Llst$1895) $1575 

IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 

^yjy^ ^ 9 wire printhead 

■"^^^^i^^P (460) with lower case descenders • Over 

ISO CPS • bi-directional, logic seekmg 
• 8 character sizes; 80-132 columns 
• Adjustable tractors* High-resolution dot 
graphics • Proportional spacing & text 
justification 

IDS 4600 9 wire printhead, graphics (List $1094) $Call 

IDS 560G wide can-iage, graphics (List $1394) $Call 

aRAPPLER'''"Apple graphics interface "*S 

CALL FOR INFORMATION & CATALOG 

(800) 854-8275 

CA,AK, HI (714) 630-3322 

RETAIL PRINTER STORES: 

store #1 3150 E. La Palma, #t Anaheim, CA (714)630-3622 
Store »2 13804 Ventura Bl.. Sherman Oaks, CA (213) 501-3486 

Store Hours: M-F 10^ Sat. 10-4 






EPSON MX80/MX70/MX100 



Low- Priced 
Professional Print Quality 

• 9 X 9 dot matrix • Lower case descenders 
f^ 'SO CPS • Bidirectional, Logic seeking • 
40, 66, 80, 132 columns oar line • 64 special 
graphic characters; TRS-80 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 

We also carry a full line 
of Epson Accessories. 

EPSON MX80(& MX80FT) (List $645) $Call 

EPSON MX70 Dot graphics, 5x7 matrix (List $450) $Call 

EPSON MX100 wide carriage, graphics (List $945) $Csll 

GRAPPLER"'^" Apple Graphics Interface $165 

QRAFTRAX 80 ■ triX80 Dot Graphics $ 06 

MX80/70 FRICTION FEED KIT 

User Installable kit for single sheets. 

Easv 30 minute installation S 75 

ANACOM 

Low Cost, High Speed, Wide Carriage 

•9x9 dot matrix • Lower case descenders • Wide carriage • 
Adjustable tractors to 16' ■ ISO CPS, Bidirectional, Logic Seeking 

ANACOM 1 50 (List S13S0) tOS6 



NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • Bidirectional • Plotting 
portional spacing. 

5510 RO, Serial (List $3055) $2575 

5530 RO. Parallel ■■■ ■ .^^,^. ...^^■, ■:■■■-,■■•■ - (List $3055) 

TELEVIDEO CRT'S 

AT DISCOUNT PRICES! 

TVI910 A 

k TVI912C I Please Call Toll Free 

^^^^^mmim^fm rv/l 920C f Prices are too low to 

-r\/i acrt I advertise 

QUANTITY PRICING AVAILABLE I VI SOU ^ 

CRT'S 
ADDS VIEWPOrNT (List $698) $««. 

PRINTERS 

MALIBU 165widecarrtage. graphics. lelierquaiiiy (List$1975) $1325 

QUME 5/45 typewdier quality (List $2905) $2659 

DIABLO 630 $Call 

INTERFACE EQUIPMENT 

EPSON ACCESSORIES $ Call 

ORANGE INTERFACE forApplell 

parallel inlerface board & cable $ 110 

MICROTRONICS Atan parallel interlace * W 

TRS-80 CABLES to keyboard or Exp inierface • Call| 

NOVATION D-CAT direct connect modem S 180 



KOronge micro 



■ST 



inc. -2* 

3150 E. LaPalma. Suite G, Anaheim, CA 92806 



Phone order WELCOME, same d«v shipment Free use of VISA & MASTER- 
CARD. COD'S accepted. Manuracturer's warranty Included on all equipment. 
Prtces aubjact to revision. 



"The debate over artificial intelligence is 

a two-step strange loop, an infinite quest represented 

by an interplay between questions and answers." 



not unlike a Strange Loop. While I was 
asleep l dreamed; and in that dream, I 
dreamed I fell asleep. 

Within the dream, I awoke at dawn. For 
me the image ot awaking al dawn is— 
through isomorphism— a symboi of human 
discovery. When I actually woke up the next 
morning, I'd gained insights to Godel. 
Bacher. Bach. 

The dream's synopsis of the book begins 
with Its recognition that the distinctions 
between human and computer intelligence 
are apparent. Scientists and researchers 
have a relatively strong understanding of 
the thought processes of number computa- 



tion, and to some extent ol logic. These 
things we have programmed into com- 
puters with measured success. 

The dream also recognizes that the gap 
between the two intelligences is currently 
the burden of human intelligence. To us 
volition and creativity are mysterious pro- 
cesses, and so far unprogrammable The 
achievements of programs such as 
SHRDLU help us understand our own in- 
telligence. And as our understanding of our 
own intricate thought processes increases, 
it seems inevitable that computer in- 
telligence will advance. At the conclusion 
of the dream, the question "Can machines 




M. C. EscherS Waterfall 

^'BEELDRECHT, Amsterdam VAGA. New rock 1961 Collaclioo Hufis QsmMOlsnuHum 



think?" is overshadowed by a new question. 
"Can machines feel emotion?" 

Alan Turing, the computer scientist 
quoted at the opening of this article, be- 
lieved the complexity of the operations and 
responses a machine is programmed to 
handle is related to the quality of its in- 
telligence. Hofstader gives a great deal of 
consideration to Turing's suggested test 
for computer intelligence, and also to the 
common objections to machine intelli- 
gence which Turing anticipated But 
Hofstader also considers a response to Tur- 
ing's proposals by the philosopher J.R. 
Lucas. The following remarks are from 
Lucas' paper Minds, Machines, and Godel. 
A lengthy excerpt Is Included in Godel, 
Escher, Bach. 

"ComplffKlty ottan does inltoOuce gualtialive dillei 
encM Although I1 sounds ImptBusiDle it might turn 
Out that above a cailBm lavei of compiexily, e 
machine ceased lo be prediclaDle. even m principle, 
and started doing things on lis own account. o<. to 
use a very revealing phrase. II mighi begin lo have a 
mtnd ot lis own It would begin lo have a mind ot its 
own when it was no longer enlirety predictable ar>d 
tnliisiy doclte. but wts cipible of domg things 
which we recogniied as intelligent, and nol just 
mistaKes o< raixtom shots. Out whicti we h«d not pro- 
grammad into it 6ul then il would cease to be a 
machine, wllhin the meaning ot the act What Is at 
siahe in the mechanist debate Is r>ol how minds are, 
or might be. brought into being, but how they 
opArat*. " 

Here is a new question, closely related to 
the question presented by the dream If we 
learn how minds operate, and if a machine 
is programmed to act like a human mind, 
and if that machine acts of its own volition, 
is it still a machine? 

A friend of Hofstader's once commented 
that Al should have its own incompleteness 
theorem because "Once some mental func- 
tion is programmed, people soon cease to 
consider it an essential ingredient of 'real 
thinking.'" The paradox of artificial in- 
telligence is that it exists (at some levels), 
but that existence cannot be proven. We 
know too little about human intelligence to 
bear the burden of proof- 

The debate over artificial intelligence is a 
two-step strange loop, an infinite quest 
represented by an interplay between ques- 
tions and answers. When one question is 
answered, another will always arise. This is 
the central message of Godel. Escher, 
Bach: An Eternal Golden BraidM 

Nancy Rat>»nson it f/ie lormm neivi »<iilor lot SO Micro- 
computing. SAe (s now Imog ana writing in PsWborougfi. 

M. C. Escher photographs courtesy of the 
Vorpal Galleries. 
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PRESTO! Accessories shipped in 24 Hours 

Wo have a large stock of accessories available 

for immediate shipment, including ribbons, 

interfaces, cables, thimbles and other items 

for Anadex, Epson, Centronics, NEC and 

Okidata printers. We also stock the printers 

for the accessories. We stock Amdeck 

.^33 monitors, terminals by TEG, Telray, and 

Micro-Term, and the Altos Microcomputer 

Product line. Make us your stocking source. 




H 



T^sv: 




ANADEX DP-9000 

All functions are 

program accessible, 

Hi Res Graphics. 



CENTRONICS 739 

A great printer 

with many new 

features 



NEC-3500 

A New 
Spinwriter at 
a lower cost 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorns 

Talk To Bill Tokar On 

Applicationa 



CALL TOLL FREE 
U.S.A. 

1-800-521-2764 

MICHIGAN 

1-B00-4B2-B393 



Ramambar: 
We ara open 
8:30 AM to 
6:00 PM EST 
Monday — Friday 




MoCrwIit 
CwdPsnaltv 



WRITE TO: 

"The Stocking Source" 
24069 Research Driwa 
Farmington Hille, Ml 
48024 
313-474-6708 



SAY MERRY CHRISTMAS^,.^, 



^liiyi 




with 




microcomputing 



Give all your friends who own a TRS-80* the best possible Christmas present — 
80 Microcomputing. 80 Microcomputing is the only journai devoted to the TRS-80* 
and Its users. the only Journal packed with reviews, programs, applications and hun- 
dreds of dollars worth of software. 80 Microcomputing — the best idea for Christmas 
yet. for only $25.00 a year. ^kJ.^^^^^^ 

Bill: : : Me '.: MC ET VISA :: AE VH^HR^9 

Card « ,Explre Date 




Sianature 


Interbank « 






Mv Name 






Address 








Citv 


State 


Zip 




Rease enter a one year gilt subscnplion to: 
Name j^tr^ 


Address 


Citv 


State 


ZID 





Canadian $27/1 year only. US fund*. Foreign $35/1 year only, US lunda. 

All Ctirlstmas Gift Subtcrlptiont will begin with the January 1961 lasua. 

80 Mlcrocomputlr>g • PC Box 9S1 • Farmlngdale NY 11737 



fllABl 



• S«« Utt 0/ AOotriisen an page 386 
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CONSTRLCTION 



Correcting a failure to communicate. 



Tape Regenerator 



Cass R. Lewart 

12 Georjean Dr. 
Holmdet, NJ 07733 



The tape recorder is an inexpensive and 
popular means o1 program and data 
storage for the TRS-80. Even disk owners 
stil' need the tape recorder to transfer pur- 
chased cassette programs to disk. Unfor- 
tunately the tape recorder brings its share 
of problems to the unwary. One of the 
most frustrating moments for a TRS-80 
owner is when, after spending several 
minutes loading a new program, the letter 
"C" or a permanent double asterisk ap- 
pears in the right upper corner of the 
monitor screen. 

Frequently a Basic tape may seem to 
load correctly, but wiil produce a garbage 
listing. 

Regardless of the symptoms, the 
diagnosis is the same— an irrecoverable 
error occurred during program reading. 



(At this point, grown men and women have 
been known to cry.) The only way to load a 
program *rom a poor y recorded tape is to 
find by repeated trial and errc the very 
narrow range of volume control settings 
good for this particular taoe. There is also 
no assurance that the volume control set- 
ting will work the next time around even 
with the same tape; a slight recorder head 
misadjustmerit may require repeating the 
whole procedure. 

The Problems 

The reason for difficulties in loading 
commercial tapes such as Radio Shack's 
is that they are reproduced on high-speed 
audio machines not specifically designed 
for digital encoding and not always kept in 
tip-top condition. The ideal signal wave 
form and the typical good and poor wave 
forms found on commercial copies of 
Level II programs are shown in Figs. 1 and 
2. The superimposed noise, 60 Hz hum, 
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amplitude distortion, ringing, and, what -s 
worst— the incorrect displacement of the 
data pulses relative to the clock pulses- - 
make It difficult or even impossible for the 
computer to read the tape. 

If a single reading error occurs, e.g., one 
out of 100,000 pulses in a typical program 
IS misread, then the whole program cannot 
be executed. Once a Basic program has 
been properly loaded one can make a good 
backup copy of it with the CSAVE com- 
mand. It is not as straightforward with 
System programs. Monitors such as T-Bug, 
M0N3, HSM or TRCopy will generate a back- 
up copy o' a System program, but with se- 
vere limitations, i.e., the original program 
has to be readable and the pr-ogram cannot 
overwrite the monitor. 

The Solution 

The Tape Regenerator, on the other 
hand, will take any TRS-80 tape with Level 
II Basic or System programs, even if it is 
poorly recorded, and generate, using the 
TRS-80 computer, a backup copy of the 
programs on a second tape recorder. The 
Tape Regenerator circuit and the 
associated program Regen reshape and 
retime the pulses on the new tape, thus 
producing a tape that is easily read by the 
TRS-80 circuitry. 

The Tape Regenerator does not care 
whether a program consists of multiple 
segments with separate loader or whether 
there is more than one program on a tape. 
Regen operates on one pair of clock/data 
pulses at a time, and unlike the monitor 
programs it does not store the whole pro- 
gram in computer memory. Thus tapes 
with multiple programs can be handled in 
a single run and even a 4K computer can 
back up copies of large programs. 

It should be mentioned that several 
commercially available hardware devices 
(Data Dubbers) were designed for the 
same purpose as the Tape Regenerator. 
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"The backup tapes produced from 

these devices. . . retain and may 

even worsen the timing jitter. . . " 



However, these devices only reshape the 
clocK and data pulses and do not retime 
them in respect to each other as Regen 
does. The backup tapes produced by these 
devices, though better in some respects 
than the originals (thanks to pulse reshap- 
ing) retain and may even worsen the timing 
Jitter— one of the major causes of tape 
reading difficulties. 

To test the soundness of the regenera- 
tion approach, multiple generations of the 
same program were made by generating 
tape 2 from 1, tape 3 from 2, etc. The test 
was run through five tape generations with 
a fairly long System program. It was found 
that a fifth generation tape would load on 
the computer as easily as the first genera- 
tion tape with no apparent degradation in 
quality. Backup copies were also made of 
commercial tapes that, due to poor record- 
ing, would not load properly at dozens of 
different volume control settings. The 
backup copies loaded then with no dif- 
ficulties. 



Circuit Description 

The circuit shown In Fig. 3 reshapes the 
clock and data pulses received from the 
first tape recorder and feeds them to the 
computer for processing. The audio 
transformer T1 provides DC separation 
between the tape recorder and the rest of 
the circuit. Switch SI and diodes D1 and 
D2 allow selection of the better halt of the 
pulse (see Control Adjustments). Zener 
diode D3 and transistor Q1 further shape 
the incoming signals. 

The NOR gate In IC1 decodes the IN 
command from the computer Indicating 
that it is ready to accept data for further 
processing. Spare gates In the 101 serve as 
buffers and open the gate in 102 to let the 
clock/data pulses pass via Pi connector to 
the data bus in the computer. LEDI. LED3 
and LED2 indicate respectively that the cir- 
cuit Is powered, that the Regen program is 
running and that the tape recorder is send- 
ing data at the proper level. 
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"The signal is partially reshaped. . . 
still it frequently can be read. . . 
where the original tape could not." 



Transformer T2 in conjunction with the 
voltage regulator )C3, full wave rectifier 
RECT and two capacitors provides 5V to 
power the transistor and ICs. J2 provides a 
"quick and dirty" direct output to the 
TRS-80 if no backup copies are required. 
The signal at this point is partially re- 
shaped but not retimed. Still it frequently 
can be read by the computer where the 
original tape could not be read. 

Regenerator Program Regan 

The Regen program shown in Listing 1 
takes care of retiming and reshaping of 
Level II clock and data pulses. After clear- 
ing the screen, displaying a message with 
the author's name, and putting a graphic 
character in the upper right corner of the 
screen, the program waits for the clock 
pulse from the first tape recorder. After 
finding it another test is made to make 
sure that It was not a transient, 

When the clock pulse Is confirmed, it is 
put out after a 200- microsecond delay 
using subroutine output. This subroutine 
produces a perfect signal, as shown in Fig. 
4, via the computer plug leading to the 
recording (AUX) jack on the second tape 
recorder. The graphic screen character is 
changed every time a clock pulse is 
detected to indicate that something is 



happening. A search for the data pulse 
now begins. A delay of 500 microseconds 
excludes any residual ringing from the pre- 
ceding clock pulse. 

If no data pulse is found during the 
following 700-microsecond window, the 
search for the next clock pulse starts 
again. If a data pulse is found, It is tested 
to exclude a transient; if the data pulse is 
confirmed, it is put out at the end of the 
1000-microsecond interval that started at 
the beginning of the preceding clock pulse 
as shown in Fig. 4. A data pulse appearing 
any time between 500 microseconds and 
1200 microseconds after a clock pulse is 
thus correctly retimed to occur exactly 
1000 microseconds after the clock pulse. 

The program then continues after a 
100-microsecond delay with the search for 
the next clock pulse. The above-mentioned 
delay constants of course could be modi- 
fied to operate on Level I programs, or to 
make Level II programs generated on the 
Model I computer more readable on the 
Model III computer, with its slightly dif- 
ferent optimum tape-timing requirements. 

Regen can bo loaded either from Listing 
1 using EOT ASM or one of the monitor pro- 
grams, or it can be loaded by running an 
equivalent Basic program mentioned in 
the parts list, which will POKE the program 
Into memory. 



Operating Instructions 

1. Turn off the power, then make all con- 
nections between the tape recorders, com- 
puter, and the Tape Regenerator as shown 
in Fig. 5. 

2. Turn the power on to the computer 
and the Tape Regenerator. LED1 should 
light up and the Memory Size question 
should appear on the screen. If it does not, 
check all connections, in particular the 
40-pin connector from the Tape Regen- 
erator to the CPU or the expansion inter- 
face. Repeat steps 1 and 2 if necessary. 

3. Load the Regen program and run it. 
LED3 should now light up, author's name 
should appear in the middle of the screen, 
and a stationary graphic character should 
appear In the right upper corner. The pro- 
gram is in an infinite loop and will run until 
you reset the computer or turn it off. 

4. Start playing the tape from tape 
recorder 1 and set the polarity switch and 
the volume control on the tape recorder as 
explained under Control Adjustments. Re- 
wind the first tape recorder. 

5. Start tape recorder 1 in play mode and 
tape recorder 2 In record mode. Observe 
LED2 and the changing graphic character 
on the screen. When LED2 goes dark and 
the graphic character stops changing, you 
are finished with the recording. Turn off 
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"The Tape Regenerator will 
only process tapes having 
complete program information." 



everything. The 40-pin connector can be 
left in place as it does not interfere with 
normal computer operation. 



Control Ad}u8tiTwnts 

There are two controls to be set to prop- 
erly read a poorly recorded tape: the polari- 
ty switch in the regenerator circuit and 
the volume control on the tape record- 
er. Make both settings while the tape 
recorder 1 is in play mode. The settings 
wilt vary from tape to tape depending on 
the machine on which it was recorded. 
However, your own backup tapes produced 
with the Tape Regenerator or CSAVE com- 
mand should all work with the same set- 
tings. First, set the polarity switch to the 
position giving a stronger signal as evi- 
denced by LED2 being brighter at a low 
volume control setting. Then find the opti- 



volume control setting by one of the 

following methods: 

• Turn up the volume control until LED2 
lights up brightly, then back up slightly. 

• Turn the volume control slightly above 
the point when the graphic character in the 
corner of the screen starts changing. 

• Observe the Incoming pulses with a 
scope at point TP1 (best method) and ad- 
just the volume control for cleanest and 
widest pulse shape. 

Program Limitations 

The Tape Generator will only process 
tapes having complete program informa- 
tion. Tapes with eighteen-minute gaps (see 
history books) or those with pulses of very 
unsteady amplitude or embedded in noise 
are not acceptable. Neither the Tape Regen- 
erator nor any other device will restore 
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"Neither the Tape 

Regenerator nor any other 

device wiii restore them. " 



them. The hardware and software de- 
scribed here will only work with a Model I, 
Level II computer. 

Construction Hints 

Keep all wires as short as possible; use 
of a printed circuit board Is highly recom- 
mended. As only four contacts are being 
used on the 40-pin connector you can 
spread the remaining contacts with a 
screwdriver for easy insertion. Before turn- 
ing the power on, check all connections. 



Proper care may prevent unexpected fire- 
works. 



Nots for Disk Us*rs 

The Regen program Is fully relocatable 
and can be stored at any convenient loca- 
tion In memory not Interfering with DOS. 
The Dl instruction at the beginning of the 
program will assure that the Internal clock, 
which would Interfere with tape operation. 
Is not running. ■ 
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80788 OUTPUT 


LD 


A, HIGH 


[PULSE OUTPUT 




4A5A D3FF 


00710 


OUT 


(CASS) ,A 


(PULSE HIGH 




4ASC a612 


00720 


LD 


B,DL158 


(150 MICS DELAY 




4ASE 10FE 


00738 DEL2 


DJNZ 


DBL2 






4A6B 3Eae 


00740 


LD 


A, LOW 






4A«2 D3FF 


00750 


OUT 


(CASS] ,A 


(PULSE LOW 




4A64 0612 


80760 


LD 


B.DLlSB 


ll50 HICS DELAY 




4A66 IBFE 


08770 DEL3 


DJNI 


DEL3 






4A68 3eB4 


08788 


LD 


A, CENTER 






4A6A D3FF 


88798 


OUT 


(CASS) ,A 


(RESTORE TO CENTER 




4AGC C9 


00688 


RET 








4A6D 54 


08810 TABl 


DEFM 


'TAPE REGEN 


PROGRAM' 




4Aei 43 


0882B TAB2 


DEFH 


'COPYRIGHT (C) 


1981 CASS B. LEWART' 




4ABa 


08838 


END 


REGEN 






BBBBB TOTAL 


ERRORS 














Listing 


1. Regen Program 





101U/€/f=OR 

MICROCOMPUTER 
no.45 




lOlU/ETFOR 
fiDCfiD 

MICROCOMPUTCR 
no.5 




^ 




an 



.-See L(SI of Adve:lisets on page 3S6 
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CONSTRUCTION 



Make your computer a sophisticated 80. 



Real World Interface— Part I 



Elliott K. Rand 
P.O. Box 552 
Melbourne, FL 32901 



do not jump suddenly from 50 degrees to 70 
degrees; velocities do not change Irom to 
60 mph in an instant. However, computers 
use numbers that appear to change abrupt- 
ly. There is no such thing as a fraction of a 



bit. Obviously, some translation is needed 
in txjth directions. 

Input/Output 
Our goal Is to get Information on the data 



With a few trivial exceptions, every byte 
of information in your system got 
there through a keyboard. Missing is a real- 
time, nowcommunication with thephysical 
w^rld: complex communication, not just 
turning a switch on or off. Sensing the real 
world, the computer can be programmed to 
respond intelligently and control the out- 
side world. With additional sensors to 
monitor its action, the system becomes 
self-adjusting. 
The world is continuous— temperatures 




Fig. 1. I/O Control = Bus Signals In the 
TRS-80. 



Data byta at Port (rt) Is transtarrad to accumulBtor. 

Format: 



Opcode 
IN 



Opeiands 
AJ,n) 



' i"i I '"i I 



.1 I ', 



I I 1 



Doscrlptlon: 

The ooerand n Is placet) on the bottom half {AO throush A7)o( ttw addresa bus to select the I/O device at one of 256 
possible porta. The contents of the Accumulator also appear on ihe top half (A8 through A15) of the address bus at 
this time. Then one byta from tba saiected port Is placed on the dais bus ar>d written Into th« Accumulator (rsgla- 
let A) In the CPU.! 

M CYCLES: 3 T STATES: 11(4,3,4) 4 MHZ ET: 2.75 

Condition BUS Affected: None 

Example: 

If the conlenis of the Accumulator are 23H and the byte 7BH Is available at the peripheral davlca mapped to I/O 
port address 01 H, then attar the execution of 

INA,{01H) 

the Accumulator will contain 7BH. ' 

Fig. 2. Out Control - Bus Instruction. 
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INPUT 
PORT 
#(N,) 




ADDRESS 
BUS 



) 

AO 



CONTROL 
BUS 



^ 



ADDRESS 
DECODE / 

DEVICE 
ENABLE 

(LOOKS FOR 
PORT ADDRESS 
(N)]. 



DATA 

BUS 



ENABLE 



D7 



DO 



DEVICE 
#IN1 



OUTPUT 

PORT 

#(N2) 



A7 

AO 



ADD 

BUS 



RESS \ 



CONTROL 
BUS 



ADD DECODE 

DEVICE 
ENABLE 

(LOOKS FOR 
PORT ADDRESS 
N2), 



D7 



DO 



DATA 
BUS 






DEVICE 

♦ (Ng) 



Fig. 3. Connection of data bus to data register of external device. 



Op«falion: A— (n) 

Format: 

Opcode Operands 
OUT (n).A 



—I — ] — ? — I — 1 — I — r- 

1 1 1 1 1 

I I L_l I I I 



□3H 



"1 — r' T T T 



J 1 I I I I L 



Deacriptton: 

The operand n Is placed on the bottom halt (AG throuQli AT) of 11^ address bus to select the I/O device at one of 256 
possible pofls.T^econtentsol the Accumulator also (register A) appear on the top half [A8 through A15) of the ad- 
dress bus at this time. Then the byte contalr^ed In the Accumulator Is placed on the data bus and written Into the 
selected peripheral device. 

M CYCLES: 3 T STATES: 11(4,3,4) 4 MHZ E.T: 2.76 

Condition Bits AHectad: None 

Example: 

II the contents of the Accumulator are 23H, than after the exacutkm of 

OUT{01H),A 

the byte 23H wlU have been written to the perlpt>WBl device mapped to IfO pert address 01H. 

Fig. 4. In Control = Bus Instruction. 



A/DD/A LAB 80 

A Real World Interface 
for your TRS-80 

MOD l&lll. Control 
motor speed & direc- 
tion, measure voltages 
— any analog to digital 

or digital to analog 
operation. For details, 

see article or next 
month's advertisement. 

SPECIALS: 

16K add on memory 

prime NEC 200 nsec $18 50/8 

"Shades" green filter $18,00 

ATHANA quality 5% floppy disk- 
ettes with hubrings in plastic 
library case 

(soft, 10, 16 sector) 

10/34.25 

100/32185 

BOOKS 

6809 assembly language prog 

$16.99 
Learning Levell I $15.95 

The Basic Handbook $19 95 

Microsoft Basic decoded & 

other mysteries $29.95 

TRS-80 disk & 

other mysteries $22,50 



H-I,S, -^^ 

COMPUTERMATION, INC. 




roger wilson 
vice president 
1295 Cypress avenue 
MELBOURNE, Florid* 32935 
13051 254-9399 



Fot tail dfiivcfv spnti cpflitied clietfcs, moi 
call to anange bank w«p 
tianitPTs Perional tx com- 
panv cKetks require h*0 ID 
three wttks to clear Add H 
trjr shipping charges 



I'V orders o( 



VOX 



••Sm List of Advwilaan on page 386 
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"Apply power to the real world 
interface; all LED's should be lit. 



bus into the outside world and convert infor- 
mation from tfiat world into a format ac- 
ceptabie to the data bus. This information 
must arrive at the data bus at a precise 
time; otherwise it will be missed or conflict 
with other signals, resulting in chaos. Pro- 
perly synchronized signals are generated 
by the central processing unit (CPU) for I/O 
control. 

Fig. 1 shows how In and Out control-bus 
signals are generated. The Z-80 responds to 
"OUT (N), A" (Fig. 2), by outputting a logic 
on pins 20 (lORQ*) and 22 (WR*). A logic 1 
appears on pin 21 (RD*) as the Z-80 forbids 
RD* and WR* signals from being low simul- 
taneously. The lORQ* and WR* signals are 
AND-ed in a 74LS32 and buffered by a 
74LS367 providing the TRS-80 OUT* con- 
trol-bus signal whenever those outputs are 
low, as indicated by the asterisks. 

At the same time, the CPU outputs the 
second byte of the Instruction (a binary 
number between 00000000 and 11111111) 
onto the lower eight lines of the address 
bus causing connection of the data bus to 
the data register of the external device (see 



Fig. 3). 

The "OUT (N), A" instruction also trans- 
fers data trom the Z-80 accumulator to a 
latched data register in the external device. 

The "IN A, (N)" command (Fig. 4) is 
similarly handled. Data flow is from the ex- 
ternal device to the 2-80 accumulator, 
Register A. input normally does not require 
latching hardware. 

Instead of the variety of Integrated cir- 
cuits required for signal control, output 
latching and Input buffering, an 8255 
Programmable Peripheral Interface is used. 
Depending on software, this 40-pin device 
has three eight-bit ports which may be used 
for input or output; a Iri-state bi-directional 
bus transceiver; or a 12-bit output port with 
an eight-bit * input port and a four-bit 
status port. 

For our purposes the 8255 is pro- 
grammed for simple I/O with ports A and B 
as latched output ports, and port C as an 
unlatched input port. Port B is uncommitted. 

Some Introductory Experiments 

Fig, 5. shows the real world interface cir- 



cuitry required for these experiments. Inte- 
grated circuits U5, U6, U7 and transistors 
Q1 and Q2 are not used and need not be in- 
stalled. A well-regulated (4.75-5.25 v. max.) 
-t-5-volt DC supply capable of delivering 
one ampere is required (see Fig. 6). 

Before attempting these experiments 
remove the power from your TRS-80 and the 
power supply. Never leave power on while 
setting up test hardware. 

Before installing the interconnect cable 
to the TRS-8Q and the real world interface, 
connect the power supply to the real world 
interface's + 5 and ground terminals. Turn 
on the power supply. Eight light-emitting 
diodes should light up. II not, disconnect 
the power supply and examine the board for 
soldering defects. 

If all indications are normal, turn off the 
power supply, but do not disconnect It. 

Install the 40-pin card-edge end of the In- 
terconnect cable to the TRS-80 expansion 
port with the ribbon cable exiting upward. 
Pin 1 of the 40-pin DIP plug goes to pin 1 of 
socket SO 1. 

Apply power to the real world interface; 



FROM 
THS80 
EXPANSION 
PORT 



sot 

(40 PIN 

DIP) 



+ 5V 



RESET 



30 



zz 



3Z 



26 



2B 



24 



20 



AO- 

Al - 

GND- 



29.37 



IN ' 

A2 
A6 
A3 
A4 
A5 

A7' 



40 



36 



34 



31 



3S 



36 



U2 
74LS04 



^ 



RESET 



DO 



D2 



D3 



D4 



D5 



D6 



D7 



AO 



35,39 



^ 



38 



U2 
74LS04 



3 



cs 



Ul 
74LS3I 



36 

34 

33 

32 

31 

30 

29 

26 

27 

9 

B 



PORT 



U4 
B255 



PORT , 
A 



26 



CIO 
'lO>iF 



^C2 



■CI 
O.I^F 



■C3 

'O.I^F 



UI,U2,U3 



? 



Be 



IOK{ALL) 

Wk — I I 



83 



B2 



Bl 



BO 



07 



-W\i— < I, 



C6 



C5 



S02 
PORT B 
SEE 

NOTE 



SD3 
> SEE 



NOTE 



74LS04 



A7 



AG 



^> 



10 9 



47011 
-v\^ — 



2 3 



^ y on 

^ — "^ 



'12 II 



"^{X-^ 

"^>^^ 



470n 
— w>» — 



470X1 
— w^ — 



VCC 




-t-SV 



AO 



MJ3 V 



470fl 



C4 

O.lpF 



SOS 

SEE NOTE 

NOTE-. 

UNIDENTIFIED LED's AND RESISTORS ASSO- 
CIATED WITH SOCKETS S02,S03,S04, AND 
305 ARE MOUNTED ON 16 PIN DIP HEADERS, 
NOT ON CIRCUIT BOARD. 



Fig. 5. Real-World Interface Circuitry. 
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RNNOUNCING R R€VOLUTION 
IN TH€ COST OF PROFCSSIONflL SOFTUiRRC 




VISflCCOUNT is o fully integrated business ond occounting 
system designed for use in small businesses. Visflccount is 
extremely comprehensive and professional, yet it is very easy to 
use. The system is controlled from o series of interconnected 
menus permitting user-friendly operation. €verything you need to 
set-up and operate the system is provided luith the Visflccount 
pochoge. 

ALL SVSTCMS is oble to provide you Visflccount ot this incredible 
loLU price because it runs on so mony different machines. Through 
volume soles uue ore able to substantially reduce our prices. 

OUR GUnflflNT€€ - Buy both our softujore and that of our 
competitors (luho ujill no doubt chorge severol times our price 
becouse they need to recopture their development cost). Compere 

the tujo systems and Lue knouj you'll return theirs (moke sure 
they'll let you return their softLuore). If you decide not to keep our 
system, then return it Luithin 45 days for o full refund. Once you've 
used our system lue're confident you'll be delighted. 

t Mi< nicompute.'s fo' Business Appllcatlort. 1 9T) 



VISflCCOUNT 



lUhot Vou Receive 

• Nine 5'/4' double censit,j disks (or six 6" si^.g.e 
density Disks) 

• Cosv-to-use operator s monuol (over 200 poge^) 

• Self-study guide on bookkeeping ond occounting (over 
180 Doges) 

" Cossette boscd instruction program or set-up ond 

operotion 
flvoHoble for TflS-80 I, II Si III. Apple* ond most others. 
•The Apple version requires the Mifosoft Z80 softcord. 
CSCR has CBflSICE, CP/M ond Microsoft Z80 softco'-a in stock. 



MIMMM KDOI* 



IKtOIJHTS »*«llf 



MVtMTMV MMMKMWtNT 



MCOWHTl MCIIVMM* 




FIXiD NIMn 
IKCOVHTINO 



FRCC: MRIIINO LIST PROOftAM 

fleqjif-erents- ASH CBflSK 2 
2 OISK DPIVeS CP/M 




Send $159 for the VISACCOUNT system 



nLL J Y J I tlVl J 559 Cost 30th Street New Vork, New Vork 100S6 

/- Order Toll free 1-800-221-2466 
For Neiij Vorh ond Technicol Number 1-212-685-009C 



RLSO 


OJORD STAR 


$290 


SUPCRCRLC 


$249 


DATA BASe SVSTCM 


$190 


CP/MforTRS80MOD€LII 


$ 99 


T€RMINAL PROGRAM for 




MOD€L II CP/M 


$ 39 



Nome 



flddress 



-i^ 






City/State/Zip 

1 Moster Chorge T: Visa l 1 flmericon €zpress 

No. , Expires _ 

Vour System 



1981 Computer Sarvnci Ccxpo'orioi-. o' Bmen 



Disk Size i ! 5 'A" double density 6" single density 



■ See Lis< ot Aaverlissrs on pugp 38h 
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"You may return to Basic at any time 
without losing programs in memory." 



all LED's should be lit. 

Turn on the TRS-80 power. A normal 
memory size start-up routine should occur. 
No memory need be reserved for these ex- 
periments, so press Enter to get into Level II 
Basic. 

Enter and run the following Basic pro- 
gram: 



10OUT 127, 137 
20OUT124, B5 



('Conflgurea B255) 
[■Loada 55H Into Porl A) 



Every second LED should be lit. Change 
line 20 to: 

20 OUT 124, 170 {'LowJo AAH Into Port A) 

Run it. You should observe the first, third, 
fifth and seventh LED lit. You may want to 
try other values in the second term of line 
20. 

Next enter and run the following Basic 
program: 

10 OUT 127, 137 

20 FOB N = lo 255 

30 OUT 124, N:NEXTN 

40 GOTO 20 

The LEDs should continuously cycle from 
zero through 255. Because the count is 
rapid, the two least significant digits on the 
right appear to tie on all the time. 

Insert the following line into the program 
and run it: 

25 FOR M = TO 100:NEXT M 

Now the two least significant (right-hand) 
digits should clearly blink on and off and 
the count can be visually followed. 

Next, enter the sanrw program in machine 
code using either the Basic POKE com- 
mand, or load the T-Bug, RSP*^ or EDTASM 
System programs. Keying in the hex words 
with T-Bug or RSM is fastest and easiest 
(see Table 1). 

Refer to your system's instructions In 



Decimal 


Decimal 


Hex 


Hex 


Mnemonic 


Address 


Inalructlofi 


Address 


Inslriiclion 




24576 


62 


eooo 


3E89 


LD A, 89M 


24677 


137 








24578 


211 


S002 


D3 7F 


0UT7F 


24579 


127 








24580 


22 


6004 


16 00 


LD D, OOH 


24581 


00 








24582 


122 


6006 


7A 


LD A, D 


24583 


211 


B007 


03 70 


OUT 7C,A 


24564 


124 








24585 


20 


6009 


14 


INC D 


34586 


58 


600A 


3A40 38 


LD A, (3a40H) 


24567 


64 








24588 


56 








24580 


2» 


6000 


E6 04 


AND 04 


24590 


04 








24591 


194 


600F 


C2 19 lA 


JP NZ.1A19H 


24592 


25 








24503 


26 








24594 


24 


6012 


18 F2 


JR6006H 


24^5 


242 












Table 1. 





loading this program. The first few instruc- 
tions using the POKE command appear as 
follows: 



10 POKE24576,6^:POKE^45n,137:POKE24578.^11. 
POKE 24579,127 (etc.) 

Execute the program at 6000H. In Basic 
this is done by entering the System com- 
mand. When an asterisk appears on your 
screen, type /24576 and press Enter to com- 
mence execution at 6000H. All the LEDs 
should be on, although the more significant 
(left-hand) bits may appear slightly dimmer 
than the least significant bits. The micro- 
processor is counting near its maximum 
speed— around 100,000 counts per second. 

Next, delete the last line of the program 
and Insert Table 2. 

Execute the program beginning at 6000H. 
The instructions slow the count by a factor 
of approximately 300. The count now ap- 
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fig. 6. Typical + 5 volt, and ± 15 volt dirsct current supply. 
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pears at about the same rate as the Basic 

program running at its fastest speed. 

To slow the machine code program down 
to where all the bits may be visually ob- 
served, delete the last three program in- 
structions and insert Table 3. 

These steps slow the microprocessor by 
a factor of around 100,000. You may want to 
try loading different values into register pair 
BC. Loading BC with OOOOH decrements it 
r* (65,536) counts before both B and C are 
zero again. Loading BC with 0001H causes 
the minimum delay. 

You may return to Basic at any time with- 
out going through Reset and losing pro- 
grams in memory by pressing and holding 
the Break key until the Basic prompt ap- 
pears. It may take a second to work through 
the delay routine and get to your break sig- 
nal. You may return to the machine code 
routine by exiting Basic with a System com- 
mand, then answer the asterisk prompt as 
before. 

When in Basic, enter and run: 



ID OUT 127, 137 

20 CLS:INPUT 'ENTER A NUMBER BETWEEN AND 

265 INCLUSIVE';N 

25 IF N<0 OH N>255 GOTO 20 

30 OUT 124,N 

35 SI = INKEY 5: REM WAIT FOR ANY KEY DOWN 

40 GOTO 20 



For each decimal numtwr entered the LEDs 
should Indicate the equivalent binary num- 
ber. 

Here's one for the Trekkies. Enter and 
run: 



DBS... 

true data base management 
for your TRS-80 " 

Your Model II is not a toy... and neither is MDBS. 
MDBS is the serious tool for applications development. 



Harvey M, Weiss, 

an independent 

software reviewer: 



ONLY MDBS has 
all these features! 



■MOBS IS truly a data base management system.... not a fire 'nanagement system " 

'"MDBS. . . offers the data manipulation, query, and report-wnter capabilities of a DBMS 
found on much larger and more complex compuier syste^^s " 

"MDBS has come to the 'escue w th, .products whose ability to reduce development lin-e 
and implement processes not avai'able elsewhere make them invaluable to integrators and 
developers of ^c-based systems [With MDBS., .. .program development and data base 
description is simple " 

For the complete Weiss rev ew. see ' Oowr^scaling DBMS to the Microworld." Mini-Micro 
Systems. April, 1981. pp 187-195 

Flexible, powerful data strLclunng capabilities, network and hierarchical data structures 
including direct many-tO' many relationships (not available elsewhere). 

Genuine data base management capabilities far surpasses file management m data 
independence, automatic maintenance of relationships, and control over data redundancy 

rng';sh-'-Ke. nonprocedural Query tanguage interface- ad hoc queries result in theautomalic 

generation of desired repo'ts. tab'es, files, and relations. 

Host language nterfaces, including various BASICs, COBOLs, PASCALS, FORTRAN. PL/I, 

C, and several assemblers. 

Extensive built-in data access security (256 levels). 

Automatic transaction logging and data base recovery. 

Dynamic data base restructuring . and many other advanced data base management 
features. 

MOaS IS written in Z-80 machine language and runs under TRSDOS or NEWDOS with TRS 

DISK BASIC, under CP/M» (and simitar derivat.ves) with CBAS1C2. PL/1, PASCAL Z 
PASCAL M. PASCAL MT *, BDS C, CIS COBOL, and Microsoft COBOL, FOHTRAN. or BASIC 
MDBS code size is only 18K to 20K bytes for Models I and II 

MDBS IS independent ot the types and sizes o' disi< drives. Supports data base spread over as 
many as eight disk drives 

lb learn more • For free literature about senous data base management on Models I and II. call, write, or TWX 
us. We'll include a pamphlet on features to consider when choosing a software tool for 
application system development 

f^or a practical introduction to true data base management for small computers, please send 
S?0 (Indiana residents, add 8CC tax) for PRIMER/GUIDE booklets. 

'For a comprehensive DOCUMENTATION PACKAGE consisting o* THE PRIMER plus user 
manuals covering the MDBS. QRS. RTL. a.nd DRS, please forward $60 (+ $2.40 (nd. tax). 



Is MDBS right 
for your system? 



r-n 



Fiee pampdiet 



Setting Btandante of •icvlltnc* lor data iMt* 
sottwar*. . .wortdwhto. 



iUicrc 
Dotn Bosc 
SusTcms. f tic. 

Box 24B 

Lafayette, Indiana 47902 

317-44e-1616/TWX 810-342-1881 

Dealer/distributor/OEM incpiizies invited. 




□Please send me free literature on the MDBS. 

D$20 (Ind. tax 809) enclosed for MDBS PRIMER 
and GUIDE (total 97 pages). 

a$60 (Ind. tax $2.40) enclosed for Complete 
MDBS DOCUMENTATION PACKAGE. 



Name 



(PleM» print) 



Title 



Company 
Addresu - 



City _ 
Phone 



(State) 



(Zip) 



MAIL TO: Micro Data Base Systems, Inc. ^315 
Box 248-M 
Lafayette. IN 479(J2 



^Sff# List ot AOverlisers on pegs 386 
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"With a feyv trivial exceptions, every byte 

in your system got there through a keyboard." 



5 


OUT 127, 137 


6 


CLS: PRINT@320 "PRESS 'L' TO GO LEFT 




PRESS 'R' TO GO RIGHT 


10 


A$ = INKEYS:IF AS = "L" GOTO 30 


20 


IF A$ = "R" GOTO 80 


25 


GOTO 10 


30 


A = t 


40 


OUT 124, A 


45 


F0RX = 1 TO10:NEXTX 


50 


CS - INKEYS;IF CS = "R" GOTO 80 


60 


A=2*A: IF A>12gGOTO30 


70 


GOTO 40 


80 


A = 12B 


90 


OUT 124, A 


95 


FORX = 1T0 10:NEXTX 


100 


CJ = INKEYS:IF CS = ■'L" GOTO 30 


110 


A = A/2 


120 


IF A<1 GOTO ao 


130 


GOTO 90 



24594 


06 


6012 06 00 


LDB,0 


24595 


00 






24596 


16 


6014 10 FE 


DJNZFE 


24597 


2S4 






24598 


24 


6016 18 EE 


jReooe 


24599 


238 






- 




Table 2. 





Press L to go left. Press R to go rigtit. Neat. 
This is still just a fancy version of turning a 
switch on and off. 

Now that digital information is released 
from the confines of the personal computer, 
it remains to be convefted into a form mean- 
ingful to the physical world. 

Next month we will explore the applica- 
tions of digital-to-analog conversion as a 
means of sophisticated control. ■ 



24594 


01 


6012 


01 00 00 


LO BC.OOOOH 


24595 


00 








24596 


00 


6015 


08 


DECBC 


24597 


11 








245S8 


121 


6016 


79 


LOA, C 


24599 


176 


6017 


BO 


ORB 


24600 


32 


6018 


20 FB 


JRFB 


24601 


261 








24602 


24 


601 A 


18 EA 


JR6006 


24603 


234 


Table 3 







TRS-80 OWNERS 
~— r REJOICE! 



-^; 



Our professional quality software 
development tools let you program 
your TRS-SO with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our full 
screen editors. These editors are not 
just patched up word processors. 
They have been specialty designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide full screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features like this 
with the finest and most extensive 
documentation in the industry and 
you will see why programming a 
TRS-80 is now better than ever 



T-ZAL: TAPE BASED ASSEMBLER: Assem- 
ble to memary or tape. Create relocatable 
SYSTEM tapes' includes relocating LOADER 
pgm, 8 ctiaracter symbols with XREF. 
Upgrades to disk when you do! 

Mod 3 Cat t> 1250-20 S 49.95 

FULL SCREEN PROGRAM TEXT EDITORS: 

All CAU lull screen editors support four way 
cursor motion and scrolling with user selec- 
table auto repeat and scroll speeds. Tolallv 
visual character insert, delete, and change. 
Block move, copy. del«te Global find and 
change Editor tor BASIC also provides 
automatic line renumbering and 26 user- 
detinable macro keys. 
For Tape and Disk BASIC: 
Mod 1 Cat # 1010-20 S24.95 
Mod 3 Cat # 1210-20 S29.95 
For Mod 1 EDTASM source (lies: 
Tape Cat tl 1010-30 S24.95 
Disli Cat tt 1010-31 S34.95 

IDiih vtision shipped on lipi j 



M-ZAL: DISK EDITOR/ASSEMBLER: 

Modular Assembler Language development 
system includes lull screen tenl edilor. multi- 
pass assembler, and objecl modute linker. 
Allows 8 character symbols and source tile 
chaining/nesting with "INCLUDE cmd Full 
support lor relocation and global symbols. 
Symbol table wrth cross reference Reg, 32K 
Disk system. 

Mod t Cat # 1050-10 St49.D0 
Mod 3 Cat tt 1250-10 S149.00 

XBUG: DEBUGGING TDOL & MONITOR: 

Display/Modity memory and regs. Set up to 
10 invisible and transparent breakpoints. 
Multi-speed single step Load/Copy/ Create 
SYSTEM tapes Uses only 2.5K and can be 
dynamically relocated to any address. 
Mod 1 Cat tt 1020-10 519.95 
Mod 3 Cat tt 1220-10 519.95 

Note: these products are not available for 
level 1 machines. 

When ordering specify Model. RAM size, tt of 
disks. 

Send check, money order, or MC/VISA 
numbers and expiration date tO' 
Computer Applications Unlimited 
PO Box 2U, Dept EEW 

Rye. New York 10580 

N Y. Stale residents add applicable sales lax. 
Allow 4-6 weeks lor delivery. 
Dealer Inquiries Invited, 

rif / COMPUTER 
'^U APPLICATIONS 
Am unlimited .. ^107 

a [In Dl CftU Ire 

Quality*ReliabilJty*ServJce 

•Tl^SaO -i a TMol Tandy Corp 
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UJHIIT DOES 

80 micRocompuTinc 



IT 



DO FOR YOU? 



provides you with more information on your TRS-80* than any other single source 
gives you 20-30 new programs to use each month 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80 — its good points and its limitations 
{80 Microcomputing is not affiliated with Tandy) 

• lets you save money— lots of it— by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• lets you in on what is really happening in the industry 

• brings you Wayne Greens outspoken 
and often controversial editorials every 
month 

• and best of all it gives you a no risk 
subscription offer — 



Subscribe today — if you are not satisfied with 
the first issue— write "cancel" across your 
invoice and send it back. 
The 80 Microcomputing is yours to keep. 




I want 80 Microcomputing 

Bill me $25,00 tor a year's subscription 
Bill my ^ AE MC VISA 

Check enclosed 



Canadian! year only/US funds $27.00 Foreign 1 year only/US funds $35.00 

80 Microcomputing • PC Box 981 • Farmingdale, NY, 11737 

■TRS-80 IS a trademark of Tandy 
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REVIEW 



The greatest pro-am Radio Shack has released. 



Profile 



Profile 

Tandy/Radio Shack 
Ft. Worth, TX 
$79.95 Models I & Hi 

$180 Model II 

Bill O'Brien 

11 Dongan Place 

New York, NY 10040 

Profile is probabiy the greatest program 
Radio Shack has released, far surpass- 
ing the potential of Microfies, although it 
costs $20 less. 

What makes it so great? The higher 
priced Microfiles lack useability; the user 
can access data stored in Profile, using it to 
provide information for programs which 
can be manipulated and output outside the 
Profile environment. 

Profile is a data storage/retrieval system 
available for the TRS-80 Model I. It consists 
of four sub-programs — Init, Access, Print 
and Profile— and uses Disk Basic with one 
drive, with additional drives and a line 
printer optional. 

The User's Manual begins with a general 
description of the terms used throughout 
the instructions, and the reminder that you 
cannot use the lowercase driver to enter 
iteta. Standard computer format is data en- 
Try with uppercase characters only. Lower- 
case is great for word processing, but it's 
not that great a loss. (For those of you keep- 
ing score, Microtiles has the same restric- 
tion.) 

Profile is a machine language program 
that loads through DOS and asks the user. 
"How Many Drives (1 -4)?" Be sure you have 
the program disk in drive 0, there are calls to 
othe*' routines stored on that disk. Also, a 
formatted disk should be in any other 
drives. 

In a few seconds your screen will be 



ablaze with life as the Profile program takes 
control. You will see a program header at 
the top of your screen, what appears to be 
operating instructions at the bottom of the 
screen (they are non-f jnctional at this point 
in the program), and below that, the impor- 
tant message: Set Up Your Form— Press 
<Break> When Done. 

Creating the Field 

First, using the arrow keys to move the 
cursor, retitle the file by overwriting the pro- 
gram title line: -'PROFILE DATA FORM*- 
can be changed to: --MY DATA FILE--, or 
any other heading you want to give it. Then 
create the fields you want to store data in: 

ACCOUNT NAME: 

INVOlCt* 

3Alt: ..I. J.. 

AMOUNT: 

PG/JOBt: 

POS'ED'PAID: ..I.. I. . 

CHLCKEEW: 

Field headings can be whatever you 
choose, and are created by typing each 
literal (the field names are literals, while the 
values we will insert are variables), a colon 
and a space (which Profile recognizes as a 
delimiter), and whatever characters you 
decide to use to mark the size of the fields. 
(Periods are acceptable, but, as in the ex- 
ample, other characters are permissable— 
dollar signs, for instance, to mark monetary 
fields.) Keep in mind that the top line of the 
screen is used solely for the file title, and 
the total space available for field informa- 
tion is 255 characters. If you exceed this 
limitation (after entering all those dots and 
slashes) a Data Too Long message appears 
and you must reformat the file content. 

If you find that you've made a mistake 
anywhere, use the arrow keys to position 
the cursor over the error, or use<shift> D to 
delete a character, or <shift> I to insert a 



space (to add a character or align the field 
names for a professional look). Make sure 
that once you finish, the field names and 
lengths are exactly the way you want them. 
When you press the Break key you're stuck 
with it, and making changes later is a lot of 
trouble. 

Sorting 

After entering data you can sort it by any 
o* the fields you established. When the pro- 
gram looks at an entry, it sees it exactly as it 
has been typed. If we sort by a numeric field 
in ascending order (included in Profile is a 
search routine where the same rules apply), 
and two of the entries are $1104.20 and 
$9.68, something strange will happen- 
Any common fool can tell that $1100 is 
more than $9, but the computer is no com- 
mon fool; Ifs a very special kind of half-wit 
that takes everything litefaily. Therefore, as 
the computer sees it, nine is greater than 
one, so one comes first. Any numeric entry 
should have all spaces filled with zeroes. If 
our field is seven characters long, then 
0023,89, 1404.13, and 0002,66 will produce 
the correct sort and search responses. 

Searching for a particular entry or group 
of entries is accomplished by stating the 
field heading, and then specifying what 
qualities the found entries should have in 
relation to a comparator, which you enter 
using FORTRAN-like specifiers (NE, EQ, 
GT, LT, LE or GE for not equal, equal, 
greater than, less than, less than or equal 
to, and greater than or equal to,) For exam- 
ple, if you have an invoice number you want 
to search for, use I NVOICE# as the field, EQ 
as the comparator and the number in re- 
sponse to the Search For question. If you 
want a range over or above the number 
specified, use GT and LT, or GE and LE if 
you want the entered number included. 
The final option available is the printout. 
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Ever tried to read computer sales literature? 

Ever tried to talk to a computer salesman? 

Ever tried to make a decision about 
which computer to buy? 



Yes. . then you know what frustration is. 
Help is on its way. Desktop Computing pre- 
miers this fall The first and only computer 
magazine wrlttan in plain E ng lish, Preposter- 
ous? Not at all. It Is possible to explain com- 
puters without all the "computerese." That is 
what Desktop Computing will do each month. 
Send the card today for a no- risk subscription 
that will give you the kind of understandable, 
useful Information on computers you've been 
waiting for. 

Why do you need a plain-En g lish explanation 
of desktop c omputers? Because they have Just 
come of age and are saving thousands of busi- 
nessmen like you an amazing amou nt of 
money. They not only save money, do things 
faater. provide access to more information, 
allow a smaller staff to do more work, they also 
allow you to get into services for your custom- 
ers which were not practical before. You can 
provide more services at lower cost. To get In on 
the savings and expanded customer services, 
you need information Desktop Computing will 
bring you that information Desktop Com- 
puting win cut through all the technical 
hocus-pocus. 

In this time of high interest rates, a truly low 
cost desktop computer system (usually a micro- 
computer system) is a welcome event. Let Desk- 
top Computing explain what these systems can 
do for you. The subscription price is $25 a year 

but as a charter 

subscriber you can 

get the first year 

for only $17,97, 

totally tax 

deductible, 

C«U toU-frt*: 

(800) S8A-M73 

or nuUtha 

coupon tMlow. 




Here's a look at some of the articles $17.97 will 
bring you; 

• When a small Business Computer 
Arrives, What Happens to the 
Small Business? 

• Letter to Hemingway RE: Word 

Processing 
•Professional Be Small Business 
Microcomputers: Buying, Using 
and Fixing a System, 

•Adequate Backup: Protecting the 
Data in Your Computer, 
Wayne Green, the pubUsher of Desktop Com- 
puting (and also of Kilobaud Microcomputing 
and 80 Microcomputing— both successful 
computing pubhcatlons) has gone through both 
the agony and joys of working with computers. 
He has lost a quarter of a million on a mainframe 
big boy computer only to come out on the other 
side with all the frustration necessary to run a 
200 employee publishing firm on several 
TKS-80's 

Wayne has a reputation for being honest and 
unafraid. He'll make sure you get the truth. In 
the meeting Introducing the idea of Desktop 
Computing to his staff Wayne said, 

"Our objective is to be the only com- 
puting magazine written In plain 
English." 

So that Is what you'll be getting— honesty and 
directness. Desktop Computing wrill give you all 
the information you need on computers in plain 
English. 

This charter subscription is available for a 
short time only. Send the card today for the 
premier issue— October 1981— and get the Infor- 
mation you've been needmg for only $17.97, 

Desktop (kmrnnting 



Relief is here for only $17.97 



D 



wrpo Si^ me up as a Charter Subscriber to Desktop 
*■ ^'■^ Computing. I vrAl get one year of the only comput- 



ing magazine wruter. In plalii English for 117.97 (a savings of 60% 
off the newsstandi My subscripUon will begin with the premier 
Issue— October 1961. 
Your Cvr^t isstie will be ajTiulni by midOctober 19B1. 



Canadian 1 yr. only/US funds $19 97 Foreign I yr. only/US funds $29 97 



NAME _ 
ADDRESS 

CITY 



STATE, 



ZIP. 



SIGNATUKE. 
CAKD# 



EXPIRE DATE. 



.INTERBANK # 



ec Pl:iH airvB'. Peierboroutfi. NH 03466 31ABa 



.-See Lis- oI Adve'iise'i on page 386 
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FLOPPY DISK DRIVES 

^275 

Famous make 40 Track drives, in grey 
textured enclosure with power supply. 
FiiHy tested and guaranteed. 

ADD $20 FOR "FLIPPY. " 

80 TRACK "FLIPPY" $395 

40/40 DOUBLE SIDED $395 

EPSON PRINTERS $CALL 

C. ITOH PRINTERS SCALL 

CORSAIR COMPUTER CORP. 

7952 Highway 80 West 

Fort Worth, TX 76116 

817-244-8051 



"TRS80 color 

rfo-!- the January 1961 issus o( the CSRA Computet 
Ciub newslenai 



Thete *a5 some amusemenl al ttie Ncvem- 
Der meeting wfien Bie HaOio Suae* repte- 
sentatives staled mat t^e software m me 
ROM cartnilqes couW not t>e copiod This 
month s 66 Uiao Journal teponed Ihey had 
3rsassemble0 me programs on ROW Ciy 
covering some ol ttie connftdoi piis with 
tape They promise Oetaitsnejitrnonth Neve* 
le* a hotibyisl someirung cant he done' This 
magazine seems lo De the only source SO tar 
o( tedinical inlormanons or the THS-80 color 
compulei'' Devoted lo 5S-50 6600 ana 
6609 machines up to now. 68 Mioo Journal 
plans to indude me TRS-flC 6809 unit m 
'utute issues 



T3 get the MOST Irom your 6609 CPU ■ This a tie 
BEST SOURCE' The ONLY Maoaims tcr the M09 
Computer Motifhs Ajiead <^ All Others' 



68 MICRO JOURNAL 



1 Vr SIS SO 2 •■ . 132 K 1 'r »« W 
■foragn SuMjce AOd SI2 Vr lo USA Price 
f wag-i Al' Marl AM jas Yr 10 USA Price 

■CanaOa S Me.(co*aaIS W V' loUSAPt-ce 



M 



NEW! 

'The Wizard's City 



8K 



*. 



A FANTASY ADVENTURE GAME 

Search for gold as a Fighter, Dwarf, Elf, 
Haltling or Magic-User in the dungeons 
beneath the WIzard'sCtty or surrounding 
forest. Evil monsters lurk everywhere to 
protect the gold. AM in graphics! 
Cassette S12.95 Disk S16.9S 

Financial Statement 16K SI 4.95 

Income Tax 8K 19.95 

Income Deductions File 8K 10.95 

Stock Charting SK 15.95 

Mail List Labler 32K dish only 22.95 

Ada S4 for disk except Mail List 

Add S 1 50 ihippng t handkig 

All programs for TRS-80 Mod. 1 Lev. 2 

BAP$ Software 

6221 Richmond, Suite 220 

Houston, Tenas 7705T 

713/783-3433 

TRS-BO I* ■ lag. Kaaamark ol Ux Tanoy Co>i> 



". . . the computer is no common fool; 
it's a very special kind of half-wit 
that takes everything literally." 



During the display/eidit mode you can get 
hard copy of the entry displayed. 

If it is your first run through the printing 
section, you will be asked to construct a 
print format. This consists of three lines of 
data: the title line, the column headings and 
the data line(s). One hundred and thirty-two 
columns of print are available; the screen 
scrolls sideways as you pass the 64-column 
mark that would normally terminate a video 
line. Again, the choice of literals is up to 
you. although title headings should have 
something to do with the field headings you 
entered. The field hieadings themselves 
may t>e used as colunnn titles. 

When you're done, tell the computer 
which fields are to be placed in what 
spaces. You then specify which field you 
want, its relationship to the comparator 
you've selected, and the program begins to 
print. 

Fooling Profile 

The one thing Microfiles has over Profile 
is that itwill work witti a serial printer whose 
driver you have loaded into memory while 
Profile won't. Whoever created the program 
included a routine to check if there was a 
printer attached to the parallel port (there's 
a memory location in the machine that gets 
loaded with a certain value; if that value 
isn't there. Printer Not Ready is written on 
the screen). 

Remember I said it was a machine lan- 
guage program: and you're as big a klut2 
with machine language as 1 am, right? Don't 
fear, pilgrim, there is something you can do 
(no, not call Texas). Have you got a copy of 
NEWDOS or T-BUG around? (Aw, cmon, 
everybody's got a copy of T-BUG.) 

The offending portion of the code in the 
Print program looks like this: 



7086 21003E 
7C8EZ22040 
7C91 214875 
7C94 CD2752 
7C97 CD4552 
7C9A CDCE76 
7C9D FE01 
7C9F CA2152 
7CA2 FEOD 
7CA4 280E 
7CA6 18EF 



LO 

LD 

LD 

CALL 

CALL 

CALL 

CP 

JP 

CP 

JR 

JH 



ML,3eX)H 

(4020H),HL 

HL.7548H 

5227 H 

5245H 

76CEH 

01H 

Z.6221H 

ODH 

2,7C84H 

7C97H 



7Ca4 3AEB37 


LD 


A,[37EeH 


7C87 FE80 


CP 


BOH 


7C89 381D 


JR 


C.7CA8H 



Bear with me, its not that complicated. I 
did it right, and as far as I'm concerned, Bill 
Barden might as well be reciting The Epic of 
Gilgamesh in the original Sumerian. 

The NEWDOS Fix 

If you have NEWDOS, run Superzap. With 
a backup copy of Profile in the drive, select 
the DD option, the disk drive number, track 
C, sector 9 (that's the position it was in on 
my copy). Look for the sector display that 
matches Fig, 1, Type MOD Ci (This is the 
position in the sector of the first disk loca- 
tion we will modify.) The screen will blink, 
an M will appear at the beginning of the line 
and you can now proceed to modify it. To do 
this, type "0" 72 times, covering the values 
3A through EF. Press Enter and Y, making 
the modification permanent. This changes 
the instructions in the listing above to NOP. 
which is the same in machine language as a 
line number, and a colon followed by a 
blank line in Basic. The computer knows the 
lines are there, but skips over them, since 
there is No operation to be performed. 

We just changed the code that told the 
computer what it is supposed to do. Origi- 
nally it was supposed to load a value into 
the A register from memory location 
37E8(hex) (LD is a machine code load in- 
struction), compare it (CP is machine 
language for compare) to the hex value 80H 
(128 decimal), and if it found them to be the 
same, proceed to memory location 
7CA8(hex) (JR C,7CA8H is a jump instruc- 



18C90e 


7221 


BB71 


0684 


7EFE 


2020 


1A2B 


1001 


B2D0 




10C910 


7BFB 


2100 


3t:22 


2040 


2107 


7 5CD 


3952 


0602 


. . ! .>".§! . . .9R. . 


10C920 


CD3C 


^2CD 


3F77 


C39A 


77AF 


32BD 


7206 


84DD 




10C930 


21BF 


7 2FD 


2121 


70FD 


3600 


0121 


3872 


7EFE 


! .. . M ..6.. IB.. . 


10C940 


2826 


2DCD 


C57A 


0E01 


FD34 


0023 


7EFE 


2028 


.{' 4.*...( 


10C95 


03 0C 


104F 


DD7E 


85B9 


3801 


7 9DD 


7705 


1106 


8 


10C96e 


B0DD 


193A 


BD7 2 


3C32 


t5D7 2 


fE20 


3008 


1804 


...:..■ 2 . . . 


lflC97e 


23FD 


3400 


10C8 


CDFB 


7621 


603C 


2228 


4021 


».4 1 .<".gl 


I0c9ee 


F-E7b 


tD27 


5211 


003D 


CD57 


52FI: 


01CA 


2152 


. . . ' R . . = . WR . . . ! R 


ieC990 


TEOl 


B258 


7C02 


CA4C 


7CED 


5332 


7622 


3476 


. . .X...L..S2."4. 


10C9A0 


1140 


3DCD 


5A52 


FE01 


CA21 


5279 


3236 


7611 


.e-'.ZK.. . 1R.26.. 


iac9B0 


8030 


2137 


76CD 


■JD52 


FLBl 


CA21 


5278 


3258 


.-!7. . .R.. . 1R,2X 


10C9C0 


763A 


E8 37 


FESfl 


3810 


2100 


3E22 


2040 


2148 


.: .7. .8. ! .>".eiH 


i0C9Da 


75CD 


27 5 2 


CD45 


5 2CD 


CUlb 


FE01 


CA21 


52FE 


.. "R.ER !R. 


10C9EB 


0D2g 


DEIB 


Ef 




















21 


003E 


2220 


4021 


2475 


CD 27 


.{...!->".?!!..■ 


10C9FB 


5 2Af 


3 2 AC 


7332 


9175 


2 IFF 


FF22 


EE5D 


CD70 


R.2..2.. !.." 






F<g 


J, The Sector Display Minus the Spaces 
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IS YOUR PfONTER SMARTER 
§ THAN YOUR WORD PROCESSOR? 

^ THEN MOVE UP TO 
PROSOFrS NewScript: 



Easy-to-use Full Screen Editing 

Headings, Page Numbering, 

Centering 

Global Search and Change 

Table of Contents, Indexing 

All 12 MX-80 fonts + underimmg 

Itahcs on GRAFTRAX MX-80 

Supports Diablo, Microline, Anadex 



Typehead — ^never loses 
keystrokes 

Form Letters, Big Documents 
Double Width, Underlining 
Sub-scripts, Super-scripts t 
Proportional font right-margin 
justification on 737, 739, LP. IV, 
and now R/S Datsywhe«l 11 



' 160 pages of excellent documentation includes "EZEDIT", "EZSCRIPT", 
self -study tutorial, and hundreds of examples 

• runs under TRSDOS, NEWDOS, NEWDOS/80, LDOS, DOSPLUS 

* Requires 48K TRS-80 with one disk drive. Specify Model I or Model III 
TSome features work only if your printer has the mechanical capability. 



NewScripl 

Nailing Labels Option 

Special: New Script + Lal>eb 



$ 99.95 
$ 29.95 
$115.00 



UU TOLL FREE For Onten Mt 

1800] mim. Operator 422 

U: (800) 852 7777. Opcritor 422 

AlisktfHiwaih (800) 824-7919 



FASTER 



RPM 

RPM measures the rotational speed and variation of your disk 

drives, and reveals a common cause of unexplained errors. Simple 

one-key operation, runs under any DOS, interchangeable between 

Models I and IIL Shows current and average speeds, plus 

fluctuation history. Recovers from severe errors. Documentation 

explains how to adjust drives. Use RPM monthly for best results, 

32-48K Model I or lU disk: $24.95 



Monitors your BASIC programs while they run, then displays a simple 
change (usually one line) that can reduce run-times by as much as 50%. 
No hardware changes, and handles programs that cannot be compiled! 
Complex programs benefit the most. See review in Personal Computing, 
May, 1981. 

16-48KModelIorin,tapeanddisk: $29.95 




Order from your Software dealer, or irom: 



QUICK COMPRESS 



PRom 



Box 839 
North Hollywood, CA 91603 

(213) 764-3131 



Small (276 bytes), fast (processes 800 lines in under 3 seconds) 

utility removes blanks and remarks from your BASIC programs. 

Produces smaller, taster programs, and doesn't alter the 

original logic. 

1 6 -48K Model I or III, tape and disk : $ 1 9.95 



SPECIAL FASTER -f QUICKCompress: $39.95 



ORDERING INFORMATION: We accept checks. Mastercard, Visa, Money Orders, C.O.D. 
(tinder $50.00, add $2.00), and even cosh. Please, no Purchase Orders. Caliiomia residents 
add 6% sales tax. 15% outside North America. 



^See List of Advertisers on page 386 
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TRS■80■^6^ 

COLOR GAME 

LIMITED OFFER! 



WE LL 5END YOU OUR SONUS G*Me OF 'ME MONT^ 
WHEN VOll ^EHO US A SELF *00>>E SSE Q STIUBEO 
ENVELOPE fOB OUH FBEE COIOB PBOGBtM i iS' 



STARBASE ATTACK ^'^^^ 

ttVMM BMBWtm i '2V5 

HHiM SPEi T URCJOE CiME 

KQSMic mmnttu '18.95 

jOYsr;CKS REO'D '^\:;;.; c\^ ' 

CEBIlf rEDCneCKS On MONE' OBDtltS ONtV 

^^ iiusf-ated r-os-rnor-y bonks 

S PO.BOX 289 

^ WILLIAMSTOWN. UA. 01267-0269 
EXPIRES 12-15-81 "CASSETTE 



r Smartmodem A 




^ 



► Auto-Answer* Auto-Dial • Repeat 
I Programmable - Use Any Language 

• Touch-Tone and Pulse Dialing 
Audio Monitor - Listen lo Connection 

• FCC-Approved Direct-Connect 

• Full or Half Duplex. 0-300 Baud 

' RS-232C Interlace • 7 Status LED s 
• Two Year Limited Warranty 

$249 

Send certified checlt or money order 
Allow two weeks for personal checK 
Florida residents add d°o sales tax 

fiC€ COMPUT6R PRODUas 

f^265 of Florida Inc. 

1640 N.W 3rd STREET 
DEERFIELD BEACH, FLA 33441 J 



HORSERACE 
HANDICAPPER 



Uses past performance dafo from daily racing form 
fo predict probable order of finish. 

SIMPU and FAST. Evoluofe a horse in seconds. 
Handicap an entire race in minufes. 

Often reveals lonoshots missed by oft>er meffrods. 

TRS-80- 

Tape $29.95 Disk S39.95 

Disk $39.95 

Tope $34.95 LJsrinfl $24.95 



MODEL I orlll 
MODEL II 
POCKH 

BUSMiSS 
PROBLEim 
SOi¥eR$ 



250 Richards Rood. No. 254 

Kansas Cify, MO 64116 

(816)471-8660 

^448 



". . . if no printer is attached, 
or the driver program 
was omitted or overwritten, 
your machine will hang up." 



■ TiMetnov of TonOy Ccfp Missour reswenn p4eQse ooo 4 i% soles ton 



tion if the C register contains a 1, which is 
the computer's way of saying that the com- 
parison matched). 

Otherwise, the computer continues on its 
merry way down the instructions and we 
wind up with a Printer Not Ready message. 
We could have told it to jump there if the C 
register did not contain a 1 , (JR NC.7CA8H 
is a jump if not); this can be done by typing 
the same Mod instruction, pressing the 
right arrow Itey 11 times and then pressing 
zero once, changing the line from: 381 D, or 
in assembled form: 381D JR C,7CA8H, to: 
301 D, or in assembled form: 7089 301 D JR 
NC.7CA8H. 

We changed the 38, which the computer 
understands as "jump if", to a 30, which 
tells it to "jump if not" — ID(hex) or 29 ad- 
dress locations, depending, In this case, on 
the value in C. If we had done it that way, 
and later hooked up a parallel printer, the 
value would have to be changed back again 
or we would get a Not Ready message any- 
way. 

If you want to do serial printing under the 
display/edit mode, (H)ardcopy option of 
Profile, one more change has to be made. 
The code contained in the Access program 
looks like this: 



7311 3AE837 


LD 


A,(37E8H1 


7314 FE80 


CP 


80H 


7316 3809 


JR 


C.7321H 


7318 21D372 


LO 


HL72D3H 


731BCOBF72 


CALL 


72BFH 


731EC36471 


JP 


7164H 



Still using NEWDOS and Superzap's DD 
option, select the drive number that the 
backup copy of Profile is in. For my copy, 
the track number was 10, the sector was 3. 
If it isn't on yours, just match up the sector 
display with Fig. 2. 

Locate the hex digits beginning with 3A 
(these are the numbers in the second 
through eighth columns of the listing, the 
group of six numbers in the first column Is 
the hex address of the program location on 



the disk) and ending with 71. Fill these 32 
places with zeros, and press Enter and Y to 
make the modification permanent. 

You should now have a copy of Profile 
that will run with a serial printer. However, 
you should note that if no printer is at- 
tached, or the driver program was omitted 
or overwritten, your machine will hang up. 

That wasn't so difficult, was it? And 1 real- 
ly don't know how to program in machine 
language. All It took was a burning desire to 
get printed output, and some plowing into 
the Editor/Assembler manual. (And perhaps 
a truckload of perseverance!) 

Now for T-BUQ Users 

It should be a lot easier for you. but I 
haven't tried to do it this way. Load the print 
program. Hold down the Break key and 
press the reset button. Get into the System 
mode and load and run T-BUG. 

PRINT loads from 7000H to 70FEH, 
T-BUG uses 4000H to 42E8H, so there is no 
conflict of memory. When the asterisk ap- 
pears, type M 7084. You should see: Ivl 7084 
3A. Now type GO. The next memory location 
should be displayed: 7085 E8. Again type 00 
and keep doing that until you've gotten to 
memory location 70A7. This is the last 
memory location you will zero out. 

Press Break, put a blank tape in the 
cassette drive, set it up for recording and 
press P, T-BLJG's Punch command, used to 
write memory locations to cassette. We 
need now specify a start address, end ad- 
dress and entry point, plus a name. The 
start address is 7000, the ending address is 
70FE. Here's where the fun starts. 

According to NEWDOS, the entry point is 
402D. Normally we would assume that a 
program's starting point and entry point are 
the same, but not necessarily. You'll have to 
try it both ways. Use Print as the program 
name. The punch line will look like this: P 
7000 70FE 402D PRINT, or P 7000 70FE 
7000 PRINT, depending on which entry ad- 



11C300 


C370 


71ED 


4BEE 


5DCD 


4B52 


C3D2 


71 
3A 


E837 


K.. .KR.. . : .7 


11C310 


PE80 


3809 


2ID3 


7 2CD 


8F72 


C364 


71 
3A 


2940 


..8.1 oe 


11C320 


rE32 


3805 


3E0C 


CD3B 


0006 


0B21 


4030 


0140 


.28.>.. ; . ., ie<.e 


11C330 


3273 


C511 


7073 


0140 


00ED 


B0E5 


EB2B 


0640 


2 e + .e 


11C340 


7EFE 


2020 


082B 


10Fe 


2170 


7306 


0123 


0436 




11C350 


0D21 


7073 


7ECD 


3B00 


2310 


F9E1 


€110 


D3B6 




110360 


053E 


0ACD 


3B00 


3E0D 


CD3B 


0010 


F4C3 


7071 




11C370 


01B2 


B173 


3AF1 


5DB7 


2009 


21C6 


7 2CD 


8F72 




11C380 


C364 


7172 


C03F 


2220 


4021 


1C5E 


CD27 


52CD 




11C390 


4552 


FE59 


2804 


FE4E 


20F5 


CDfl0 


67FE 


4 EGA 


ER.Yt. .N K. 


11C9A0 


7071 


3AEF 


5A3D 


4721 


9D55 


36C0 


2310 


FBED 


.. : .Z=Gl .U6.»... 


11C9B0 


4 BEE 


5DCD 


4E52 


2AED 


5A23 


22ED 


5A21 


9D56 


K. . .NR*.Z#'.Z1 .V 


11C9C0 


CD2A 


5 2CD 


27 52 


AF32 


F15D 


3E01 


32E9 


5DC3 


.*R. 'R.2..>.2.. . 


11C9D0 


6471 


1140 


3FCD 


5752 


FE01 


CA64 


71FE 


02CA 


.. .??.WR 


11C9E0 


6471 


ED53 


0D71 


220B 


7111 


803F 


CD5A 


52FE 




11C9F0 


01CA 


6471 


0132 


3174 


7932 


1071 


11C0 


3F21 


21. .2 ?! 




Fig. 


2. The Sector Display for ACCESS Minus the Spaces 
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k'E'UB l\O VLV! 
Wcu' ice cat! o^^t^^n {^ciitu^ and 

Jncluding UPS apcn icqaeit/ 



DUAICASE* 

UPPER lowercase, fufi time from power-up; 
NO software; Standard typewriter keyboard 
operation (shift to UPPERCASE); Control charac- 
ters can be displayed; 128 Total character set 
plus full graphics. 

SWITCHABIE* 

No switches. No driver. Operates frorri key- 
board Totally disables "PATCH" functions, 

KEYBOARD DEBOUNCE* 

Extra keyboard debounce, full time from 
power-up; NO software. If dirty keys are a prob- 
lem, this is for you. 

BLOCK CURSOR* 

Replaces the underline style cursor directly. 
Easier to locate on a full screen. No distracting 
blinking. 

SHORT CASSETTE LEADER* 

For tape based systems. Does NOT change 
baud rate. Only shortens recorded leader. Saves 
four seconds of waiting time. Great for data files! 
No conflict with high baud rate cassette systems. 

ELECTRONIC SHIFT-LOCK* 



No extra keys or switches. Simply tap either 
shift key, UPPERCASE lock, normal shift unlocks. 

TRS-80 is a Trademark of Tandy Corp, ORDER INFORMATION 



"THE PATCH" is not only a lowercase modi- 
fication, but a complete system offering many 
of the enhancements you would like available on 
your TRS-80. How is this possible? "THE PATCH" 
is a "smart chip" which monitors the same ad- 
dress lines as the ROM In your TRS-80 Model I 
Level II. "THE PATCH" recognizes certain ad- 
dresses, turns off the Lll ROM, then substitutes 
its' own byte of data. This "Patching" is what 
allows ALL these enhancements with NO soft- 
ware overhead, thus NO software conflict. In 
fact "THE PATCH" is the ONLY lowercase modifi- 
cation that is compatible with both Basic and ma- 
chine language programs AND the ONLY all 
hardware lowercase modification. 

You install "THE PATCH", no need to send 
your TRS-80 away so there's no hidden installa- 
tion cost. Detailed instructions guide even the 
most inexperienced owner to complete installa- 
tion in about 30 minutes. Works with the two or 
three chip ROM set. "THE PATCH" unit plugs into 
the ROM sockets (does not replace existing ROM). 
Lowercase does require installation of the extra 
video RAM (supplied with "THE PATCH"). 

"THE PATCH" is compatible v/ith any v.'ord 
processor, any DOS and also other languages 
which use ROM sub-routines. "THE PATCH" is 
never obsolete. As new features become avail- 
able they can be installed in your "PATCH". 

"THE PATCH" is covered with a one year 
limited warranty on materials and workmanship, 
(Does void Radio Shack's 90 day warranty). Ask 
for details . . . we can install for a small fee. 



CALL NOW 
(208) 772-9571 



CECDAT, INC. 

p. O. Box 497 
Hayden Lake, ID 83835 

"THE PATCH" is a Irademark of CECDAT, INC. 



Name 

Street ^ 

City - - — - -. State 



"THE PATCH 2" S^Jtchable 



S9d 97 ea. 



ZIP 



Signature - -. 

rn Check. Money Order, Bank Draft 

n VISA, ^^ASTERC MARGE. Purchase Orders (add 3^r) 
Card/PO No ... _. , 

Expiration Date .. . . Today's Date -. 

You must check one: 

□ "MEfA Slit" □ "WEfAORY SIZE" 

Price valid through December 3 1, 1 981 



OPTIONS: (please check* 

n "Electronic Shift-Lock" Add S30.00 

f"| "Short C.isserie LeacJer" Add $10.00 

f I "Block Curso'" No Charqe 

Q "Debounce" No Charge 

Ship, & Hand, ^'i 2 50 ej, 

COD ADD 5% , . , . 

ID Sales Tax 3% (Id Res) 

TOTAL ORDER .... 



•See Lis! oI Advertisers on page 386 
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"Always experiment on backup copies of data. 
Tattoo that on your arm somewhere." 



dress you've used. Press Enter and the tape 
should start recording the program. Now go 
back to DOS and run TAPEDISK to create a 
disk file with the same Print- 
When you've done that, or if you find that 
the entry address doesn't work, turn the ex- 
pansion interface and the CPU keytward 
off. Take any disks out of the drives first; 
this will ensure that all memory locations 
start up clear. You should then repeat the 
procedure for Access, modifying addresses 
7311 to 7320 with 00 as in Print. Again we 
are faced with the entry point problem, giv- 
ing us the following punch lines: P 7000 
7460 402D ACCESS or P 7000 7460 7000 AC- 
CESS. You don't have to press Enter this 
time, since the file name is six characters 
long. Make sure there is a blank tape in the 
cassette recorder set tor record twfore you 
type this out. T-BUG starts the process au- 
tomatically. Run TAPEDISK again, creating 
the file Access. 

When you create the disk file, do not use 
an extension (/CMD, /BAS. whatever) on the 
file name. You may specify the destination 
drive. When you're creating the tape file, 
make sure you start the tape on the tape 
and not on the leader. I only mention this 
because I've done it myself. There you have 
it. See, it was easier than using NEWDOS 
(maybe). Rememtwr, even hate mail costs 
money to send. 

Data Manipulation 

You still can't specify a range of data 
within the data base. (Please remember that 
attnough Microfiles is advertised as 
creating a data base, it actually compiles 
only a data set. not something that can tw 
accessed, and the data manipulated, used, 
or modified by an alien program source as 
may a true data base.) Nor can the data be 
acted upon in any way but the ways Im- 
posed by Profile. But hang in there. 

When Profile initializes the disk it grabs 
up all the available space it can and formats 
the disk as if it had files to store there. Take 
a look at Fig. 3. If you get the chance to 
look at a formatted diskette, you will notice 
that the only data is coded E5. See the d)f- 
fecence? Think of the asterisks as claim 
markers that Profile uses to mark off disk 
space. It's a shame all those neat rows of 
asterisks have to be spoiled by the periods. 

Notice that the data stored is 2A, and as 
long as there is a 2A there is an asterisk. 
When we have a period, there is an OD. If we 
realize that 2A is a hexadecimal number 
whose decimal equivalent is 42 (2*16 + 

I • 10), and then look at page C/2 in the Level 

II manual, we would see that 42 is the ASCII 
decimal code for an asterisk. 00, on the 
other hand, i3decimal13(l6»0 -f 1'13),and 
that's a carriage return (where there is an 
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ASCII character available for the code dis- 
played, we see it; where there is none, 
Superzap places a period In the spot). 
Wouldn't it be nice if there was a function in 
Basic that creates a string like that, and 
something in Disk Basic that handles such 
a file? Oh, but there is! Ever hear of line in- 
put? Let me quote to you those blessed 
words from the Book of DOS, chapter 7, 
verse 42: 

UNEiNPUT (Of LINE tNPUT-ine Space is oplional) reaos 
everything Irom I he tirsi character up to: 

1) an <EN> character f>ot preceded By <LR> 

2)tr>eend-ol'fil» 

3) the 255th data character (this 256ih chaiacter Is in- 
cluded In the siring) 

Although the TRS-60 generates a line feed 
(LF) with a carriage return, only the carriage 
return is stored (OA is the hex value of a line 
feed). We seem to satisfy the requirements 
of line input for data retrieval from disk and 
at the same time, answer the burning ques- 
tion why we cannot store more than 255 
characters. 

Take a look at Fig. 4, It shows a sample 
set of data filed using the fields we speci- 
fied at the beginning of the article. As usual, 
the first column of six numbers is the disk 
storage location of the data. If we go back 
for a moment to the file we set up and count 
the total elements in all the fields, we'll find 
our file length is 63 characters. If we then 
count out 63 hex numbers (each hexadeci- 
mal number is a pair, so the first line con- 
tains 16 numtwrs, the first of which is 49, 
followed by 4E, 20 and so on), at the end of 
63 of them we find our friend OD. To read 
this data all we have to do is write a pro- 
gram: 



100 OPEN -I -, 1, ■■PR0DAT:0-:nEM IF PROOAT IS ON 

DRiVE 
110 PRINT-DO YOU WISH TO ACCESS A FILE?" 
120 AS = INKEYHF Moy AND AS<>-N" THEN 

120 



130 IFA$=-N' TMENZIO 

140 IF E0F(1) THEN PRINT "END OF FILE 

REACHED GOTO 220 
150 LINE INPUTil. DATAS 
160 IF LEFT$(0ATAJ,1|= . THEN PRINT END OF 

DATA- GOTO210 
170 IF LEFTRDATAS.t) = CHRt(192) THEN PRINT 

DELETED FILE F0RX=1 TO SOONEXT X CtS 

GOTO 140 
leO PRINT OATAS 
190 PRINT' ANOTHER ''■ 
200 At » fNKEYHF A$< >"r' AND Alo'N"' THEN 

200 
210 IF A* = Y- THEN CLS GOTO 140 
220 CLSCLOSEEND 

This is the skeleton of a sequential ac- 
cess program that can be used to read the 
disk data. We can customize the program to 
search for a particular value contained In 
the 64 character string (63 data characters 
plus the carriage return) using MIDS. To 
handle the data, we would again use the 
MIDJ function to break down the main 
string into substrings. We could then con- 
vert any numeric data we need from string 
form with the VAL function. Unfortunately, 
it's not simple to use sequential access to 
write to the disk file. We would have to input 
all the data, modify it, and then rewrite the 
entire file back to disk again. Otherwise, 
writing to disk under that mode would set 
the pointer back to the beginning of the file 
and all stored information would t>e lost- 
Always experiment on backup copies of 
data. If you make a mistake, the data will 
still be available. Tattoo that on your arm 
somewhere. 

Suppose we wish to write some modified 
data to the file without entering Profile, us- 
ing random access techniques. When we 
deal with random access, we retrieve or 
store data with the GET and PUT com- 
mands 256 character buffers. When we deal 
with less data than would fill a buffer, we 
can form the small data packets into a large 
group, using an array that wilt fill the buffer 
more efficiently. Using the same array, we 
can also retrieve the data. 



106100 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **•••••••••••••• 

196110 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A ••••••••**•***** 

106120 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A •••*••••**••••** 

106130 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2AflD *•*•••*••..•••* 

Fig. 3. The tNFOFILE acquires disf( space by tilling vacant fifes witfj asterisks. 



H5I?S !S®" 2'" **"" *"• *"*■ 2E20 494E: 432E IN. HOCK. CO. . INC. 

116510 2020 2020 2020 2030 3535 3231 3130 362F .VissniSie/ 

}}tUt ^"^ ^^^^ ^"3" 3"^^ 382E 3437 2020 4E2F 12/800063. 6B. .N/ 

116530 4120 202e 2E2E 2E2E 2E2E 2E2E 2E2E 2E0D A. . . . ! . 



Fig. 4. 63-Cf}aracter File 



"None of the MK functions allow 

for the storage of a single byte; 

it must be converted using ASCII. " 



By accident, our file contains a totai of 63 
characters plus tfie CR. Colncldentally, 64 
can be divided into 256 an even four times. If 
we planned to use random tectiniques, we 
should make sure our data adds up to a 
number that, plus 1, v^ill be evenly divisible 
into 256, as the Profile manual suggests. 
That means3, 7, 15, 31,63, 127 or 255. (Pro- 
file files are dumped to disk one after the 
other. If we try to access a file that does not 
conform to the above lengths we will find 
each buffer's remainder contains data 
which will be left out of the next GET call.) 
We could use a program like this: 

100 Open ■■R", 1, "PRODATiO" 

120 eF = L0F(1) 

130 FOHPF = OT0 3 

140 FIELD 1, (PF.64) AS DUMMFILES. 63 AS DATAS 

ISO NEXT PF 

160 INPUT'TILE NUMBER: "iN 

170 IF N> EF.4 THEN PRINT "OUT OF RANGE":F0R 

X = 1 TO 500: NEXT X:CLS: GOTO 160 
180 FP^ ((N-1)M) + 1 
190 PN= N-{(FP.4>J) 
200 GETl, FP 
210 IF LEFT$(DATA«PN),1) = CHft*192) THEN PRINT 

-DELETED FILE":FOR X = 1 TO 500: NEXT X:CLS: 

GOTO 160:REM CHR$(192) IS USED TO FILL THE 

POSITIONS IN A DELETED FILE 
220 IF LEFTS DAT A$(PN),1) = ■"■■ THEN PRINT ■'NO 

SUCH FILE": FOR X= 1 TO 500: NEXT X:CLS: 

GOTO 160 
230 PRINT DATA$(PN) 
240 PRINT"ANOTHER,, ,?" 

250 AJ = INKEYtlF A$<>"Y" AND At<>"N" THEN 250 
260 IF A( = "Y"THENCLS:GOTO160 
270 CLS CLOSE: END 

Again, it's a skeleton program. Flesh it 
out for specific fields, to change drives if 
more than one is used for storage and to 
search for particular pieces of data in 
string. 

Infoflta 

Did I just say "change drives"? How the 
heck can the program know If I have more 
than one drive? Allow me to introduce you 
to Fig. 5a. This is a section of a diskograph 



for another file created by Profile, called In- 
fofile. 

The first pair of hex digits (a hex pair is 
called a byte) 18, convert to decimal 24. It 
just so happens that in this file I have stored 
24 records. In tact, the first two bytes in this 
record of Infofile contain the number of rec- 
ords currently in the Prodat file. It is saved 
to disk using the MKI$ in a random file 
mode, since it will always be an integer If it 
had a numeric value larger than one byte 
(not simply 1800, which has no value in the 
second byte), it would not necessarily have 
been directly readable without using the al- 
ternate CVI function to reconvert it to a nu- 
merical value. 

The next two bytes (A007) are the MKI$ 
converted value for the maximum allowable 
number of files, followed by the single byte, 
01, which is the maximum drive number. 
(This value is stored as CHR$(n) where n is 
the maximum drive number. None of the MK 
functions allow for the storage of a single 
byte; it must be converted using ASC) The 
two bytes, 0000, note that there are no delet- 
ed records in this file. Had there been any, 
their number would have been stored here. 
The next piece of data, 40, is the length of 
the record, 64 (63 characters for the file data 
plus the carriage return). As with the max- 
imum drive number and the following byte, 
07, (which is the number of fields assigned 
at initialization) this was stored as a 
CHR$(n) and can be converted to its numer- 
ic value with the ASC function. The last four 
byte pairs tell us what the highest file num- 
ber is on drives 0, 1, 2 and 3 respectively. 

Fig. 5b is the second sector of Infofile, 
showing our field names and a small 
amount of additional data. The first 13 bytes 
are allotted to the field name itself, while 
bytes 14 and 15 are the MKI$ equivalent of 
the screen print position, plus 15360. 
{Therefore, if printing to the screen we 
would use Print @, CVI{x$)-15360.) Byte 16 
is the length of the field. If we look at the 



F0eB00 1800 A007 0100 0040 077B 029F 0700 0000 

F00010 00DC 559D 0500 0000 0000 0000 0000 0000 --U, 



Fig. 5a. The first set of numbers. 18, Is the hex equivalent of 24, the total number of files 
on record. 



F00100 4143 434F 554E 5420 4 £41 4D45 204E 3C17 ACCOUNT. NAME. N< . 

F001ia 494E 564F 4943 4523 2020 2020 208E 3C06 INVOICEI <. 

F0ai20 44 41 544 5 2020 20 20 20 20 2020 20CE 3C08 DATE <- 

F00130 414D 4F55 4E54 2020 2020 2020 200E 3D07 AMOUNT -. 

F00140 504F 2F4A 4F42 23 20 2020 2020 204E 3D07 PO/JOBt N= . 

F00150 504F 5354 4544 2F50 4149 4420 20eE 3D08 POSTED/PAID. ..= . 

F00160 434B 454 3 4B23 2020 2020 2020 20CE 3D04 CHECK* = . 

Fig. 5b. The Second Sector of INFOFILE, Showing the Titles of the Established Fields 



64K COLOR 

TRS-80' COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for Mtmdod basic. 

EXPANSION KITS 

64K $375 16K $35 
32K $75 XBASIC$90 

CaN for dataHa on othar TRS-80 
computart A accaaaorlaa. 

SOUND CENTER .4^ 
RADIO SHACK DLR 
Los Alamos, NM 87544 
(505) 672-9824 

'TRS-80 la a tradamark of 
Tandy Corp. 



ENGINEERING ANALYSIS 
SOFTWARE ^569 

Box I0S9 

Highsiown. N,|, Oe»0 

(201) 367-5735 

Crkicil rah (CPM) Projc<! Confol 
[□mpuies nti-oft iHivwop (tjici -•l^' Icui 
pnrtj tost jr*J [>ro[e?i ^[j^us f»ikuiTKn^ repfin 

TKS40 |i II i mi i NofiN Sur im DO 

Tub* Bcndini — (jb™il«jn Oixi hr Wm lut* ifupoi 

inpuE bfftd ridius ind nodr toonj.iyces 

(ompuits Ifibe tu[ kcrtgih benti ind plioe in^k: segmenl 

kcnglhs ind rftjftdrel ilop WTIing required br bending 

nuchinet - TR^UI(I 11. 1 III) t North Sw tl2S 00 

Lifwv Pro|rwn(nin| — lompuiti nui/min (oii iuiKLions 

equjtioni irt eniertd uung frw-lorm tficmi 

TRS-SO (I II i III) i North ;ii> W M 

CuMoir iDplniTPOni oi (fHi progrj.T lo (ompiire ktd nun 

ft ittun tttnd\ mfjt rmiutfi. Eli ire i-iibb>e 

ijM lo"" ^uom 

OlSfr Enginefnnj Prog>aim -ntHiSini MO Soft-ift 

SpJIC 'rime SlruttuUl ArulflH 

HVAC Loid Compum-om 

fire Spnnkler DeUpi 

Hjrdf Cron W«er ijutm AiutfUl 

ShKi r^rul hiinui>Fie 



DOUBLE DENSITY - 179K OH SA-400 

ALLTTL-NOFDCChIp 

PLUGS INTO CARTRIDGE SLOT 

UCSD Pascal' COMPATIBLE 

COLOR 
COMPUTER 

$99.95 

FLOPPY 
DISK 

DISK ROUTMES I, DOUC MONITOR »tOM $$4.95 
MK trtt RAH cMp ADAPTER ROARO $19.99 

•^T-.ii«™=.:'""^ 9009 W. 95th St. 
MS^h^Lles overland Pk.ics 66213 
W/mJS^^i^^ 19131SS1-558B 



'See Lisi of Adveftisers on page 366 
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• D»n«D«OD«n»n»n»a»on»D "a^a 
LNW80 COMPUTERS D 

lOOZ TRS-8Q* MOD 1 OR 3 a 

compatible! + HI-RES BW • 
AND COLOR GRAPHICS! D 

IN STOCK NOW!! call for d 

SPECIAL DISCOUNT PRICE! • 

D 



a 

D 
D 

D 

a 

D 

a 



RAK Electronics 

7180 WOODROW wi 
LOS ANGELES^ CA 



|ru\ uuc^ I nun ik.o 

180 WOODROW WILSON dr. 



a 
n 

a 

• 

D 
D»a«D»D«D«D»a«D»D»D«D»G»n»D • 
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Dynam/c Report Generator 



No Programming Required 



• Maintain drffarant data filas, aacti with iti own mt 
of int«rnsl logical rfllalionthipt. 

■ Pvrmits uMr ta daflix cuitomizad rtport tormati 
and column headingi. 

■ Spscify arithmatic relations^ ipi b«tWMn columns. 

• Automatic lorting and file comprasuon. 

• Kayad index for rapid retnaval of data. 

■ Radefine index by ixchsnging it with other report 
coluinn). 

• flexible add, delete, and lilt model. 

■ Edit mode allows heading* and aritfimetic ralation- 
ihipi to be altered without re-entering data. 

• Li$t mode altowi for lelacted ranges and optional 
(ub-totali. 

FOR USE ON 48K-TRS-80 MODI. 
1 DISK AND PRINTER. 

PRICE: $14.95 INCLUDES DISK, 

44 PAGE BOOKLET, SHIPPING AND HANDLING. 
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Portiont copyriohlM bv MicroiotT. 1980. 
TRS-80 II a i»giit«r>c] Iradcmaik ot Tindy Co'p 



"The user's manual gives a great program 

for extracting this data 

from a specified file number." 



line that contains the field Account Name, 
we see the final byte ia 17. 23 decimal, the 
length of our entry for that field. 

Procedures 

The first thing we must do is define some 
variables. We'll use the ones that are provid- 
ed in the Profile user's manual: 



NR TTw Numt>er of Records In Prodat. Including any 

Oeleled records 
MX The Maximum Numbor of Records Allowad 
MD The Maximum Drive Number 
NF The Number of Fletds tn \he Record 
D(l} "I" Is an Integer between and 3. 0(1) Is the 

highest record number stored on disk 

drive "I" 

And now some program lines: 

100 CLS: CLEAR 1000 

110 OPEN "R",!, "INFOFILEO" 

120 FIELD 1, 2 AS NRS. 2 AS MX$, 1 AS MDS, 2 AS 

DR$, 1 AS RL$. 1 AS NFS, 2 AS D$(0), 2 AS D$(1). 

2ASD$(1) 

2 AS D$(2), 2 AS DJ<3) 

Usually when dealing with a random ac- 
cess file, we'd use an array to break down 
the elements in the 256 character buffer. 
However, here we are only Interested in the 
elements we need for the program. 

130 GET 1,1 

140 NR = CVI(NR$):MX = CVI(MXJ); MD = ASC<MDJ); 

NF = ASC(NFS). FOR ON = TO 3: 0(DN) = CVI(D$ 

(DN)): NEXT DN 

Normally, we would then get the second 
buffer and discover the field names and 
lengths. The user's manual gives a great 
program for extracting this data from a 
specified file number. As we already ftnow 
these things, we can bypass that section. 

1S0 CLOSE 1 

We will assume that the first 90 lines of 
the program load all the account names 
and addresses into a matrix in memory, 
MASTERLISTS, which will be used to coor- 
dinate the data from PRODAT. (Otherwise, 
we should have three disits on line, two for 
Profile and one for the account data.) In the 
program lines that follow, we will use the 
variable EF to indicate the numeric position 
of the final entry In MASTERLISTS and the 



variable RP to indicate any intermediate 
relative position within the matrix. 



160 DN = -.DNS = STRSfDN) 

170 OPEN''R-M,"PRODAT";DNJ 

180 FORI = OT0 3 

190 FIELD 1. (1.63) AS DUMMYSTRINGS, 23 AS NM$(I), 

6 AS IN«I), 8 AS DTHI), 7 AS AM$(IK 7 AS PO$(l) 

8 AS PD$(I), 4 AS CKS^I) 
200 NEXT I 



Now use the data In MasterfileS to check 
out the status of the accounts stored tn 
PRODAT. 

210 FOR HP = 1 TO EF 

220 FOR BN = 1 TO INTiD(DNV4) 

230 GET 1,BN 

240 FOR I = TO 3 

250 IF LEFT$(NMS(I).1) = CHR$(42)THEN280 

260 IF LEFT$<NMS{I],1) = CHR$(192) THEN 1000 

270 IF NMS(I) = MASTERFILE$(RP,1) AND LEFTS<PDJ(I),1| 

= ■■;■ THEN 2000 
280 NEXTI. BN 

Line 250 precedes to the next record in 
the subfile if the entry being currently ex- 
amined was deleted. Line 260 sends the 
program to a controlled error message if the 
end of the stored data has been reached 
and no information has been recovered for 
a given account name. 

290 DN = DN = 1. DN$ = STRJ<DN):IFDN>MDTHEN310 
300 CLOSE 1- OPEN "R", 1, ■ PRODAT; -DNtGOTO 220 
310 IF DNOO THEN DN=0: CLOSE 1; DNS = STRHDN1: 

OPEN "B", 1. ■■PRODAT: "iDNS 
320 NEXTflP 

The loose end, lines 2000-xxxx, is merely 
a print statement that will send the informa- 
tion to our line printer (formatted to reflect 
page number of account statement on a per 
account basis) and performs the addition 
necessary to give total due amounts. 

Fig. 6 is a small program for single disk 
users that will read each of the Prodat en- 
tries over a given range of dates (for in- 
stance, if you wanted the entries for August 
you would use 08/00/80 in response to the 
Greater Than question and 09/00/80 for the 
Less Than prompt), print the account name, 
invoice number and amount with pagina- 
tion and, when done, print the total amount 
involved. More fields for manipulation can 
be specified and other actions performed 



Program Listirjg 




10 CLEAR loee 

39 CLSiOPEN "R",1,"PR0DAT:B" 

56 EF-LOF(l) 

6B DIH FS{EF) 

70 FOR J"0 TO 3 

90 FIELD 1, (64*J) AS DUMMYS, 63 AS FS(J) 

110 NEXT J 

115 PRINT § 320, "MONTH OF i "filNPUT MSsCLS 






Program continues 
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''But what good is collecting information 
if you can't do whatever you want with it?" 



Program continued 

120 PRINT g 320, "DATE RANGE: ";: INPUT"GREATER THAU: 

";GTS:PRINT g 448 , " " ; : INPUT'LESS THAN: "jLTS 

130 CLS 

180 FP=1 

190 GET 1,FP 

195 FOR RP=eT03 

197 IF LEFTS(FS(RP) ,1)=CHR$(42) THEN 290 

199 IF LEFTS(FS{BP) ,1)-CHRS(192) THEN PRINT TiGOTO 202 

200 IF RIGHTS{FS{RP) ,4)=" • AND 

MIDS{F$(RP) ,30,e)>GTS AND MIDS (FS (BP) , 30 , 8 XLTS THEN 
GOSUB 400 ELSE 2B2 

201 NS=LEFTS(FS(RP),23) ; INS-MIDS (FS (RP) , 24 ,6) :AH= 
VAL(MIDS(FS(RP) ,38,7) ) : T-T+AM:LPRINTNS f " 
■;INS;" "; :LPRINT USING"#III.II";AH: LS=LS+1: 
IF LS>50 THEN 500 

202 NEXT BP 

204 FP=FP+1:IF FP>EF THEN 29B 
210 GOTO 190 
290 LPBINT " 



300 LPRINT " 

";:LPRINT USING"SSIIIi . t*";! 

310 CLOSE 

320 END 

400 IF FL>0 THEN RETURN 

410 PN-PN+IjFOR X=1T02: LPBINTCHRS ( 13 ) j iNEXTX 

:LPRINT"COpyQUICK<LF>107 EAST 42ND<LF><LF> 

CHARGE DATA MONTH OF ";MS;" 
PAGE "; 

415 LPRINT USING"»#i";PN:LPRINT'<LF>";!LPRINT"ACCOUNT 
HAHE INVOICE* 

AMOUNT" : FL=1 : RETURN 
500 F0RX=1T06:LPRINTCHRS(13) ; : NEXTX : FL=0 :GOTO202 



on the data by simply following the pattern 
the program provides. 

That's it. Those few lines are all It takes to 
turn Profile into more than just an over- 
priced in-memory Information system for 
disks. We now have available to us a feature 
seen on many, if not all. of the large multi- 
user computers: an accessible data base of 
information! For a relatively small machine 
such as the TRS-80 that is some ac- 
complishment! 

If you're not a business and have no ac- 
counts receivable to take care of. don't 
think you can escape Profile. Do you collect 
comics? Magazines? Computer Programs? 
What atiout all you CB and amateur radio 
operators? Want your logs up to date? 

Forget about MIcroflles. Its' expanded 
entry formatting is very nice if all you want 
to do is enter data and recall it according to 
the parameters present in the program 
itself. But what good is collecting informa- 
tion if you can't do whatever you want with 
it? 

Profile gives you this added flexibility, 
and at a cheaper price. (Isn't that against 
the law?)H 



STEREO 



STEREO— Separation by instrument! 
For example, play trumpet and otx)e 
ttirougti cixinnei A. clarinet and agan 
ttirougti channel B You can switch 
instruments from channel to channel 
at any time! 

PERCUSSION - Now you can add a 
wide fonge of percussive sourKls and 
special effects to your music' 
Existing Orchestra-80 files load and play 
in stereo automat icaltvl 
Optional 5tti Voice for use wflth 
speed-up mods! ^ 



AND PERCUSSION! 

New editing feotures and commands' ^^^0^\\^^^W0^ O f?'^ 

Plugs intoanv 16k IVIocJelIkeyl3oard Of ^^IWrlCSTrCI'OO 

expansion interfoce without voiding A^ A^\ ^%C 

warrantyi ^^ 2 7.73 



New editing feotures and commands' 
Plugs into any 16k IVIocJel Ikeyi^oordof 
expansion interface without voiding 
warranty! 

Irxrludes tape orxJ disk versions on 
■ cossette, 4 sample music files, rrxanual, 
and fully assembled end tested printed 

circuit board' 



plus S2 00 postage or^ handllrvt 

(55 for overseas aifTTKiii) 

CA residents odd 6% soles fox 

MosteiCofd orKl Visa 

accepted 



ORCH|SF3 



-85 



axf^ 



eoKo"^^' 



^^-twv%« 



v^^ 



TAJrt_„ 



'J 



O^^ 



sortWAi 



Ai*** 




•«ft* 



WRITE FOR INFORMATION ON: 

• Upgrading -Orchestra-80 to OfChestro-85. Switch to Stereo! 

• Greatest Hits— Volumes I and H All new music' Ready to lood and play! 

• Orche5tra-90 "—Model III version of Orchestra- 85. Available soon i 



MooMaaoann 



Software Affair 

->v 858 Pubis Drive. Sunnyvale, CA 94087 
(408)295-9195 



• See List ot Attvertlsers on page 386 
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APPLICATION 



A home inventory program that remembers the little things. 



Wordly Goods 



John E. Fail 
6170 Downey Ave. 
Long Beach, CA 90805 



Have you ever wondered about the pos- 
sibility of your house being burgtarlzed 
or burning down? We live with this possibili- 
ty every day whether we are at home or not. 
In the event of such a catastrophe your in- 
surance should cover the loss. However, 
when the insurance man comes to call, will 
you be able to accurately recall all the items 
you have lost? Chances are you will remem- 
ber the tv set, the couch, the computer, the 
major items in your household; it is the little 
items you will not easily recall— tools, pic- 
tures, jewelry and the like. 

This program, for a 48K system with two 
disk drives, catalogs 300 items per room 
and provides a line printer routine. 



InvenlOfy tor Livino Room 



Number Hem 
1 



Depending on the total items in your In- 
ventory, you could utilize one file for all 
items in your household. Included in the 
program are full correction and deletion 
routines. Categories included in an indivi- 
dual file are: location; Item; data purchased; 



Couch 

Serial Number None 

Comments: Gold with Fiowef Patterns 

Ctiair 

Serial Number None 

Comments: Gold with Flower Pattern (Set of 4) 

Television 

Serial Number 43566961 

Commenis: Motorola Model 33^799.1 

Lamp Floor 

Serial Number None 

Comments: With Shade 

• ■■•Continue C Finisl>e<l 'F' ....?_ 



Fall Family Household Inventory 

Directory 

1 = Load Data From DIsIt 

2 = Look at List lor Living Room 

3 = Save Data on Disk 

4 = Printout of Data on File 

5 = Delete an Entire Entry 

6 = Correct an Entry 

7 = Add Entries to File 

8 = Prinl Total Value of Lhiing Room 

9 = Item Search by Name 
Your Selection Please? 

Fig. 1 Directory Layout 



Cost 
S 995-00 



Mfr/Dealer 
Sears 



S 140.00 Sevs 

$1000.00 Dooleys 
S 40.00 Sears 



Date 
02fl56ffl1 



03W1/81 



04/01/80 



01/01/81 



Fig. 2 Print List Sample 
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initial cost; business the item was pur- 
chased from; serial number; and com- 
ments. 

The program is straightforward, user 
oriented and prompting at all points. The 
scheme is to set up individual files on a 
separate disk by room. The other alternative 
is to file your inventory on the program disk 
providing the inventory Is not too large. The 
inventory program can be used by 32K sys- 
tems by adjusting the clear statement in 
line 20 and the dimension statements in line 
25. Line 30 should be changed to fit your 
family name. 

After you have run the program, entered 
files for your inventory and are ready to save 
to disk, you will be prompted by the pro- 
gram to provide a filespec for writing to 
disk. This list of filespecs will be provided 
just prior to loading from or to disk. The user 
should change lines 13010 and 13020 to his 
or her own filespec if those In the program 
are not acceptable. 

A word of caution— plenty of string 
space Is provided in the clear statement in 
line 20, however, don't get too carried away 
with large comments or string space will be 
used up fast. 

When first running the program and en- 
tering files, the first item entered will call for 
a location. No further locations will be 
asked for during the course of the entries. 
The program will automatically print that 
location In all entries after numtwr one. If 
you are not using separate files for all 
rooms in the house but use one file for the 
entire household, a single filespec will be 
used to answer the location question. On the 
first entry use a word such as "household." If 



you are using separate files for each room, 
assign that room's name to the location 
question and separate the rooms by file- 
spec when saving and loading from disk. 



Search, Delete and Correct 

The search section is based on key 
words. When searching for an item, the item 
variable is compared against the first three 
letters of the search request input. For ex- 
ample, suppose you have three chairs in a 
room. When you are requested for an item 
to search for, enter chair. The program will 
then search out the first chair encountered 
and print it out. The program will then ask if 
this is the correct chair; if not, the program 
will continue the search. If no comparison 
is found, the program will so advise you. 
When entering data into the item section, 
use the major subject first, such as chair, 
couch, television, computer. If you still can- 
not find the item you are looking forthereis 
always the 'Look At List' function on the 
menu to locate an item. 

The deletion routine is very straightfor- 
ward. When an item is deleted, all other 
items are moved up one to fill the space left 
by the deleted item. When the deletion rou- 
tine is called, the program will check with 
you to be certain you are indeed deleting 
the item you wish to delete. 

The correction routine operates much 
like the deletion routine. It checks to make 
sure this is the item you wish to correct, and 
then displays an input form similar to the 
normal entry input routine. You need only 
enter the portion to be corrected. If the item, 
cost and dealer information is correct and 
you only want to enter a new serial number, 
merely press Enter for the items you do not 
want to change and enter the new data in 
the serial variable. All information in the 
other columns will remain unchanged. 

The Line Printer Routine 

The line printer routine is set up for 
80-column printers to maintain compatibili- 
ty with most any printer in use these days. 
The printer function is very handy for keep- 
ing a permanent record of the inventory. 
You can run out a copy of each listing and 
keep it in a safe place, such as a friend's 
home, your place of employment, or a safe 
deposit box. This ensures the list will not 
disappear with the house or burglar. It may 
be a good idea to keep a separate copy of 
the program disk and data disk outside the 
home also. The listing automatically prints 
"a value of room routine" at the end of the 
printout. This function is also available on 
the video for a quick check of the total value 
without a printout. 

Readers without line printers should re- 
move the 4000 series of line numbers lo pre- 



vent locking up the program in case of inad- 
vertently going to that function. This pro- 
gram can also be used by cassette- based 



systems merely by changing the 1000 and 
3000 series of line numbers to accomodate 
cassette l/O.H 



Ifivenlory lof Living Room 

Page: 1 Last Revision: 6 April 1961 

Number Item 

1. Couch 
Commenls Gold with Flowef Palterns 

2. Chair 
Commenls: Golfl with Flower Pattern (set 0l *) 

3 Television 
Comments Motorola Model 333.8799.1 

4 Lamp Floor 
Commenls. With Shade 

5. Lamp 
Comments: Matched set of 2 Table Lamps 

6. Clock Digital 
Comments: With Alarm and FM Radio 

7. Table 
Commenls Col'ee Table with Glass Top 

8 Stereo System 
Comments: Wittt 50^0 Records In Cabinet 

9 Painting 
Comments The Mona Lisa O'tglnal f'f Da Vtnci 

Tola! Value ot Living Room (13.044.00 

Fig. 3 Line Printer Print Sample 



Cost 


MlrfDeaier 


Date 


Serial Number 


S 995.00 


Sears 


02/05/81 


None 


S 14000 


Sears 


03A)1/81 


None 


$1000 00 


Oooleys 


04/01(80 


43566981 


S 40.00 


Sears 


OlfOtBI 


None 


S 100.00 


Wards 


02«2ffll 


None 


$ 30.00 


Sears 


12/25/80 


322479 


S 14000 


Sears 


02/02/81 


Nor>e 


S 600 00 


Wards 


09/16«1 


5559091 


S9999 00 


Arl Shoo 


01W1/81 


Hone 



^;^ 



Program Listing 

20 CLEAR25000:T=300:US='SI«*».««":VS="$*», I ##.»«■ 

25 DIMLS{3 00) ,15(300) ,C (300) ,D$(300) ,HS(300) ,S$(300) ,CO${300) 

30 B5=L$(1) :SK^0:SW=0:CLS:PRINTTAB(15) 'PAIL FAMILY HOUSEHOLD INV 

ENTORY":PRINTSTRINGS{63,"=") j PRINTTAB( 24) "DIRECTORY" : PRINTSTRING 

S(63,"=") :PRINT"1 = LOAD DATA FROH DISK" :PRINT"2 = LOOK AT LIST" 

35 PRINTe337,"FOR ";B$ 

40 PRINT"3 = SAVE DATA ON DISK" : PRINT" 4 = PRINTOUT OF DATA ON FI 

LE":PRINT"5 = DELETE AK ENTIRE ENTRY" : PRINT"6 = CORRECT AN ENTRY 

50 PRINT"7 = ADD ENTRIES TO FILE":PRINT"e = PRINT TOTAL VALUE OF 

55 PRINT§729,BS 

57 PRINTe768,"9 = ITEM SEARCH BY NAME" 

60 PRINTe832,STRING$(63,"=") 

70 PRINT:PRINT@B96,"YOUR SELECTION PLEASE" ;: INPUTA: IFA<10HA>9G0T 

030 

80 ONAGOTO1000r2000,3000,4000,5000,e0 00,70 00,8000,90 00:GOTO30 

1000 'LOAD FROH DISK ROUTINE 

1020 GOSUB13000 

1025 CLS:PRINTTAB(20) "LOAD FRCW DISK ROUTINE" : PRINTe448 , "PLACE D 

ATA DISK IN DRIVE AND PRESS ENTER" ;: INPUTAS 

1029 ONERRORGOTO14020 

1030 0PEN"I",1,FSS 

1040 CLS:PRINT@448, "LOADING FILE «" 

1100 F0RL=1T0T 

1110 PRINTe462,L 

1160 INPUTn,LS{L) ,I$(L) ,C{L) ,M$(L) ,DS(L) ,SS(L) ,CO${L) 

1180 IFEOF(1)THEN1980 

1500 NEXTL 

1980 CLOSEl 

1990 BS=LS(1) 

1999 GOTO30 

2000 'LOOK AT LIST ROUTINE 
2010 B$=L$(1) 

2020 GOSUB12500 

2025 H=0 

2030 F0RL=1T0T 

2035 IFLEN(LS(L))=0THEN12700 

Progiam corfmues 
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C. C- WRITER 
TRS-80* 
Col or Computer 
WORD PROCESSING 

mMssisasssBssssxssssssssassszss 

USER HODIFIABLE EX. BASIC N/PA6E 
FORHATTINe, HOVE, TABS, DELETION 
INSERTION, GLOBAL SEARCH ti EDIT 
CENTERING, INDENTING, PAGE PAUSE 
ASCII CODES, JUSTIFY, 32K OPTION 
THIS AD PREPARED HITH C.C. WRITER 
ITRS-BO is a TH of Tintfy Corp. 
Stnd t30 Check or Honey Order to 

3CZCSSXCSESZSZSSSSKSSSSSSXXHZHH 

C-C_ WRITER .44 

TRANSFORMATION TECHNOLOGIES 

194 LOCKMOOD LANE 

BLOOfllNGDALE, IL 60108 



MODEL III 
TREASURE HUNT 

FIND THESE: 

Relocating macro assembler, linking 
loader, symbolic debugger, text editor, 
print spooler, interactive editor/assem- 
bler, disk-disassembler, command 
processor, disk exam/modify, disk 
utilities 

ALL FOR $99.00 

PDS ^'' 

ALLEN ASHLEY 

395 SIERRA MADRE VILLA 

PASADENA, CA 91107 

(213)793-5748 

A)so Cioss assemblers tor 8048, Z 8, ^B0^. 3870. 
S-2000. COP-400 - $75,00 each. Call for details. 



^ MODEL III \ 

TAPE EDITOR/ASSEMBLER 

Hun Hadio Shdtks Taoe Editcr/AssembitT 
(EDTASMi for Model I on the Model III using our 
ASPTCH Simulv 'oaI tDTAS^'. f*-r. \q^1 ASPTCH 
and T'jr .iir^t? lo*J possiL'le i Ai; ^DTAS^1 leatues 

■ FjII M(Mel I souice tape compatibility 

■ Assemble a:rectly to memory or tc tape 

■ Execute your object and return to EDTASM 

■ Change cassette speed wtiile in EDTASM. 

■ Verify souite tape after "W"" command. 

■ Display and edit memory 

■ Recover from reset without tape re-loac) 

(Requires TRS-80* Model III 16K and up Also 
available Model I A5PTCH (specify) and other Model 
111 software products 

Send checKc^- money orderfor Sn95'or A5PT!."h 
tape and detailed instnjctions to 

BYTE MISER SOFTWARE 

720 W. Haven Blvd. 
Rocky Mt. NC, 21801 ^45S 

\ "T-'S-aC ; i r«:emar- y TAMD' 



Program cor^tirfuea 

2036 IFSK=1ANDLEN(LS(L) ) =0THENPRINT@448, "NO DATA ON FILE FOR ITE 

M »";ID;'' PRESS ENTER" ;: INPUTAS : GOTO5100 

2038 IFSW=1ANDLEN(L$(L) ) =flTHENPRINT@448,"NO DATA ON FILE FOR ITE 

M t ";ID;" PRESS ENTER" ;; INPUTAS:GOTO6080 

2 040 PRINTL".';TAB{7) IS(L) ; : PRINTTAB ( 29) USINGUS; C ( L) ;:PRINTTAB(4 

l)MS(L) ;TAB(54}DS(L) :PRINTTAB(7} "SERIAL NUMBER: "SS(L) :PRINTTAB( 

7) "COMMENTS: "CO$(L) : H=H+3 : IFH=12GOSUB12580 

2045 IFSK=1GOTO5050 

2050 JFSW=1GOTO6050 

2800 NEXTL 

2999 GOTO30 

3000 'OUTPUT TO DISK ROUTINE 
3005 GOSUB13000 

3010 C1.S:PRINTTAB(15) "OUTPUT DATA TO DISK ROUTINE" : PRINTe448 , "PL 

ACE DATA DISK IN DRIVE AND PRESS ENTER" ;: INPUTA$ 

3020 CLS:PRINr@448, "SAVING FILE I" 

3025 0PEN"0",1 ,FSS 

3030 F0RL=1T0T 

3040 PRINT@461,L 

3070 IFLEN(IS(L))=0THEN3998 

3075 LS[L)=BS 

30 80 PRINT»i,CHRS(34) ;LS(L) ;CHRS(34) ;CHRS(34) ;IS(L) ;CHRS[34} ; C ( L 
);CHRS(34) ;M$(L) ;CHRS(34) ;CHRS (34 ) ; DS (L) ; CHRS (34 ) 
3090 PRINT#1,CHR$(34) jS$(L) ;CHRS(34) ;CHRS(34) ;C05(L} ;CHR5(34) 
3500 NEXTL 

3998 CLQSE(l) 

3999 GOTO3 

4000 'LINE PRINT ROUTINE 

4010 CLS:PRINTTAB{15) "LINE PRINTER PRINTOUT ROUTINE" :PRINT: PRINT 

"ENTER THE DATE TODAY" ; : INPUTDA3 

4015 PRINT:PRINT"SET PRINTER TO WIDE CHARACTERS AND PRESS ENTER" 

; :INPUTLPS 

4020 CLS:PG=0:GO5UB12800 

4025 PRINT@640, "PRINTING ITEM #:" 

4030 FORL^ITOT 

4035 PRINT@656,L 

4040 IFLEN(LS(L) )=0THEN4230 

4060 LPRINTL; ". ";TAB(6) IS(L) ; : LPRINTTAB ( 28) USINGU S;C ( L) ; :LPRINTT 

AB{3 8)M5(L) ;TAB(53)D$(L) ; TAB( 6 3) SS ( L) : LC=LC+1 :GOSI;B14000 

4065 LPRINTTAB(6) "COMMENTS; "CO$(L) :LC=LC+1 :GOSUB14000 

4070 LPRINTSTRINGS(79,"-") : LC=LC+1 :GOSUB14000 

4220 NEXTL 

4230 SW=liGOTO8000 

4980 SW=0:LPRINT"":LPRINT"TOTAL VALUE OF "jB$;" " ; : LPRINTUSINGVS 

;RT:LPHINTCHRS{12} 

4 999 GOTO30 

5000 'DELETE ENTRY ROUTINE 

5010 SK=0:CLS: PRINTTAB(15) "DELETE ENTRIES ROUTINE ": PRINTg448 , "WH 

AT IS THE ITEM NUMBER TO BE DELETED" ;: INPUTID 

5015 IFID<1ORID>300THEN5010 

5020 CLS:SK=l:L=ID:H=0:GOSUB1258fl 

5040 GOTO2036 

5050 PRINT@448, "CORRECT ITEM TO BE DELETED ( YES/NO) " ; : INPUTAS 

5060 IFLEFT$(AS,1}="N"THENSK=0:GOTO5100 

5065 CLS:PRINT@448,"DELETEING ITEM #: " ; ID 

5070 FORX=IDTOT 

5080 LS(X)=LS(X+1) :IS[X)=IS(X+1) :C(X)=C(X+1) ;MS(X)=MS[X+1) :DS{X) 

=DS(X+1} :SS(X)=SS{X+1) :C0S(X)=C0S(X+1) 

5085 IFLEN(LS(X) )=0THEN5100 

5090 NEXTX 

5100 CLS:PRINTTAB{15) "DELETE ENTRIES ROUTINE" : PRI NTe448 , "DELETE 

ANOTHER ITEM ( YES/NO) ";: INPUTDK S 

5110 IFLEFTS(DKS,1) ="Y"GOTO5010ELSESK=0 : GOTO30 

5999 GOTO30 

6000 'CORRECT ENTRY ROUTINE 

6010 CLS:PRINTTAB(15) "CORRECT ENTRY ROUTINE" 

6020 PRINT@448,"WHAT IS ITEM NUMBER TO BE CORRECTED" ;: INPUTID 

6025 IFID<1ORID>300THEN6010 

6030 SW=1:GOSUB12500 

6040 L=ID:H=0:GOTO2038 

6050 PRINTe448, "CORRECT ITEM TO BE CORRECTED ( YES/NO) ";: INPUTAS 

6060 IFLEFT§(AS,1)-"Y"THENCLS:SW=1:L=ID:PRINT@192,"ITEM # ";ID-G 

OTO7110 

607 IFLEFT$(A$,1}=-N"THENSW=0:GOTO6080 

6080 SW=1:CLS:PRINTTAB(15) "CORRECT ENTRY ROUTINE" : PRINT@448 , "CHA 

NGE ANOTHER ITEM ( YES/NO) ";: INPUTDKS 

60 90 IFLEFT$(DKS,11="Y"GOTO6010ELSESW=0:GOTO30 

6999 GOTO30 

7000 'ADD ENTRIES ROUTINE 
7010 CLS 

7050 F0RL=1T0T 

7100 IFLEN(L$(L))=0THENPRINTTAB{15)'ADD ENTRIES TO LIST ROUTINE" 

:PRINTSTRING$(63,"=") :PRINTei92 , "ITEM ♦"jLELSE7900 

7105 PRINT@192,"ITEM »";L 

7110 IFL=1THENPRINT§256, "ENTER ROOM : " ; : INPUTLS (L) 

7115 IFL>lTHENPRINTe256,L5(l) 

7120 PRINTe320,'ITEM (19 MAX) ■; : INPUTIS(L) 

P'ogiam corhnues 
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Color computer owners 




Yes, that's right - for as little as 
S298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00. and you can add the disk 
interface later for S99.00. 

-Just plug the Color Computer In- 
terface (CCI). from Exatron. into 
your expansion socket and "Hey 
Presto!" • an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
Qoth a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine land change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card"! 
Well as we said it's only an extra 
.S99.00, but you'll probably want 
Exatron's CCDOS which ts only 
S29.9.'} - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only S19.9."). 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 71111, or clip the coupon. 




excellence /n electronics 

exatron 




DEALER E.\QnRIES INVITED 



Kxatron, ►'MO 

181 Commercial Street, 

.Sunnyvale, CA ;U08B 



^. Please send a :)2K Color Computer 
inlerfaie for $199.00 

L Please send a CCI Disk Card fur .■?99.(X) 

r: Please include fC'DOS and manual 
for $29-95 

~ Also include a ROM Backup adaptor 

for S19.95 

Please add $,').(K) for shipping to all orders, 
and ti perc-ent sales tax ui California. 

Name 

Address 



City 

State Zip 

Charfje my: 

L. MasterCard Interbank Code 

r Visa Kxjjiration Date 

Card 

C Check eritlot-ed lor 

r"j Ship COD ($-2.00 extra) 



Sij:nature 



■ ;jk K VM lilu-Dlsl. liltrrfa 



. irinli'iniirk i.f Tjnili 



."^r 



CHURCH DONATIONS 

TRS'80 MODELS 1 &. II 

Manages, stores and reports on the 
offerings made by a church congrega- 
tion, 

Modet I handles up to 1000 members 
and 4 categories of offerings Operaies 
under TRSOOS 2.3 or Newdos Si 25 00 

Model (I handles up to 3O00 members 
and 1 5 categories of offerings Includes 
Mailing list and operates under TRSDOS 
2-0. SI 75 00 

CUSTOM DATA 

PO. Box 1066 
Alamogordo. NM 88310 

Phone (505) 434-1096 

.-413 



TRS-80' COLOR Computer 

BORED 

with SLOW Cassettes 

Put your BASIC program into 
a ROM CARTRIDGE. Instant 
run at power-up! More data 
space! IT'S EASY! Send us your 
program on cassette and we'll 
quickly return it in a ROM 
CARTRIDGE. 

Prices start at $45.00 

(Quantity Discounts Available) 



Elgen 
Oystems 



-610 



P. O. Box 10234 
Austin, Texas 78766 
(512)837-4665 

—Assembly Language Rom Cartridges 
— Custom Programming Services 
TRS'-80 is a trademark of Tandy Corp. 



TRS-80 

COMPUTER 
DISCOUNTS 

• Factory Direct 

• Best Prices Anywhere 

• No Out-of-state Taxes 

• Full Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 N. Delsea Drive ^«io 
Vineland, N.J. 08360 
(609)691-7100 






Pfogiar" continued 

713B IPLEN(I$(L) ) >19THENPRINT#335,STRING$(4fl,- ') -.GOTQllld 

7140 PRINTg3a4,"COST (7 MAX I.E. 9999 . 99) " ; : INPUTC ( L) 

7160 PRINTe4<6 ,"HANUFACTURER/DEALER (11 MAX) " j : INPUTMS (L) 

7180 IFLEN(M${L) )>llTHENPRINTe478,STRINGS(20," "):GOT0716B 

7200 PRINTe5X2,"DATE PURCHASED (MM/DD/YY) " ; : INPUTD5 ( L) 

7210 IFLEN(D$(L) } >9THENPRINTg539,STRINGS{20," ")tGOTO7200 

7220 PRINT§576, 'SERIAL I (14 MAX) " ; : INPUTSS[L) 

7230 IFLEN(SS(L) )>14THENPRINTe594,STRINGS(20," "):GOTO7220 

7240 PRINTe640, "COMMENTS (40 MAX) " ; : INPUTCO$(L) 

7250 IFLEN(COS(L)) >40THENPRINTe659,STRING5(45," ■):GOTO7240 

7300 PRINTe896,"IS ABOVE DATA CORRECT (YES/NO) ";: INPUTF$: IFLEFTS 

(F$,l)='Y"THENPRINTe896, STRINGS (40,- ") 

7310 IFLEFTS(FS,l)="N'THENL==L:CLS:GOT071i5 

7315 IFSW=1GOTO60B0 

7320 PRINTe896 , "ENTER 'A* FOR ANOTHER ENTRY. 'R* RETURN TO DIREC 

TORY-;;INPUTGS 

7340 IFGS="A"THEN7900ELSE30 

7900 CLSiNEXTL 

7 999 GOTO30 

8000 'TOTAL VALUE OF ROOM ROUTINE 

8040 BS=L$(1) 

8050 CLS:RT=0 

8055 PRINTe448, "TOTALING VALUE OF ■;B$ 

B070 FORL-ITOT 

6090 RT=C{L}+RT 

6130 NEXTL 

8140 IFSW=1GOTO4980 

8150 CLS:PRINT@448, "VALUE OF "18$;" " ; : PRINTUSINGVS; RT : PRINTe960 

, "PRESS ENTER" ;: INPUTAS1GOTO30 

8999 GOTO30 

9000 ■ SEARCH FOR ITEM ROUTINE 

9010 GOSUB1405fl:PRINTp448,' NAME OF THE ITEM YOO ABE SEARCHING P 

OR"; :INPUTSE$ 

9020 GOSUB14050;PRINTg448, "SEARCHING FOR "iSES 

9040 F0RL=:lT03fll 

9045 IFL-301ORLEN{1S(L))-0THEN9250 

9050 IFLEFT$(IS(L) , 3) -LEFTS (SES , 3 ) THENGOSUB125e9ELSE92«B 

9060 PRINTL".'iTAB{7)IS(L);:PRlNTTA8(29)USINGUS;C(L);:PRINTTAB(4 

1)M$(L) ;TAB(54)D${L) :PRINTTAB(7) "SERIAL NUMBER: 'SS (L) :PRINTTAB( 

7) "COMMENTS: "CO${L) 

9070 PRINTe448,"IS THIS THE ITtW YOO ARE LOOKING FOR (YES/NO)"!* 

INPUTS IS 

9075 IFLEFTS(SIS,l>-"Y"THEN910fl 

9080 IFLEFT$(SIS,l)="N"THENGOSUB14050:PRINTe448, "CONTINUE SEARCH 

FOR ".-SES" (YES/NO) ■; :IKPUTSJS 
9090 IFLEFT$(SJS,l)-"N"THEN9100ELEE928fl 

9100 GOSUB1405e:PRlNTe448, "SEARCH FOR ANOTHER ITEM (YES/NO) "t : IN 
PUTSAS:IFLEFT$(SAS,1)="Y"THEN9010ELSE30 
9200 NEXTL 

9250 PRINTg448,STRINGS(40,- ") : PRINT8446 , "NO FURTHER DATA AND/OR 
DATA ON FILE FOR ' ; SES t FORZ=lTO100e :NEXT2 :GOTO910e 

9998 GOTO30 

9999 END 

12500 CLS:PRINTTAB(20) "INVENTORY FOR " j 8$: PRINTTAB ( 1 ) "« " ;TAB ( 7) " 

ITEM";TAB{29)"COST";TAB(41)"MFR/DEALER",TAB(55}*DATE":PRINTSTRIN 
GS(63,"-") 

12550 RETURN 

12580 H-B:PRINTe98fl,"**** CONTINUE 'C FINISHED 'F' ****'t:INPUT 

JS 

12590 IFJS-'F"THEN30ELSEGOSUB125 

12600 RETURN 

12700 PRINT§960,"END OP LIST FOR "jBS;" PRESS ENTER" ; 1 INPUTK$:GO 

TO30 

12800 LC-0:PG-PG+1:LPRINTTAB(25)"INVENTORY FOR " ; BS : LC«LC+1: LPRI 

NT" ";LC-LC+1:LPR1NT"PAGE:"PG;TAB(45)"LAST REVISION: ■;DAS:LC-LC 

+1 

12805 LPR1NTSTRINGS(79,"-"):LC*LC+1:LPRINT" -:LC=LC+1 

12810 LPRINTTAB{1) ■»";TAB(6) "ITEM" ;TAB{ 28) "COST" ;TAB(38) 'MFR/DEA 

LER";TAB{54) "DATE" ; TAB(63) "SERIAL # " : LC=LC+1 : LPRINTSTRINGS (79, "- 

') :LC=LC+1 

12820 RETURN 

13000 CLS:PRINTTAB(2a)"FILESPEC KEYWORD LIST" 

13010 PRINT :PR1NT"THE FOLLOWING FILBSPEC WORDS ARE AVAILABLE: ": P 

RINT: PRINT-RADIO ROOM = RADIORM" : PRINT'LIVING ROOM ■ LlVINGRH"iP 

RINT'DINING ROOM = DININGRM" 

13020 PRINT"KITCHEN - KITCHEN" : PRINT"MASTER BEDROOM = MASBEDRM": 

PRINT"KIKES BEDROOM = MIKER0CT1" : PRINT'GARAGE ■= GARAGE" : PRINT"PAT 

10 = PATIO" 

13030 PRINT@96B,"PILESPEC DESIRED" f : INPUTPSS 

13040 RETURN 

14000 IFLC=6aTHENLPRINTSTRINGS(5,CHRS(10) ) !LC»0:GOSUB128flB 

14010 RETURN 

14020 RESUHE14fl30 

14030 CLS:PRINT§460, ■•***•**•*• PILE SPEC ERROR *••*******- .pORz 

=lTO100fl:NEXTZiGOTO30 

14050 CLS:PRINTTAB(19)"SEAHCB FOR ITEM ROUTINE" :PRINTSTRINGS ( 63 , 

■-■] 

14060 RETURN 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now th» wjdafy acclaimed 
JPC Cassette System is a¥allabl» 
tor your TflSM* computer. 
The price is only $90.00 

T( -i Ousetle Syslmt 
JPC Products 
Albuquerque, NM 
Kit: S90 
Assembled: $120 

by Cart A. KoUar 

I guess I don't have to tdl any TRS-80 owners 
how frustrating ihc cassette system that 
comes with the computer can be. Even with the 
failory mod thai'", available, ihe annoyance of 
loading and checking programs becomes jusl 
barely tolerable. 

If you're like me, after you've jusl plunked 
down a chunk of money for a Level II I6K ma- 
chine, "you ain't got nultin lefi" foT even one 
disk drive ai 500 bucks apiece. So you suffer. 

.\ reasonable alternative is the Fxatron 
Stringy Roppy (ESF). This will cost you aboui 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still loo steep, have I got a 
device for you! 

Tlif Df vke 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sons of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bylesona 10-minule ca.ssette." "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly 190) bucks? How could 
this be? A call lo .Albuquerque answered a few 
questions: Yes, il had its own power supply, 
and, il siored programs Tive times faster be- 
cause it utilized higher density data, rhe com- 
puler outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
il even if you have never soldered before. JPC 
would make it work, if you couldn'l — for free. 
I was sold, 1 placed my order, and it arrived 
about two months later (parts shortage). 

I work in etccironics, so I found the unit ex- 
ceptionally easy to build. It look about an 
hour. The manual is superb. {That's better than 
great.) It was clear, conase and exact with no 




FOR TRS-80* 



[Reprint of June 1980 Review, 60 Microcomputing] 



ambiguities. Important pans placements arc 
aressed (polarity markings on elect rolytics, 
bands on diodes, etc.). 

JPC was right! With these insiruaions. you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and pans locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plaied-lh rough 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjuslmenis or 
settings to bother with. 

The documentation is a sheaf of 8'': x 1 1 pa- 
pers stapled together, li is written in the nicest 
formal I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English— not computeresc. 

C«mmand<i and Fealuns 

SAVF"nien«nM!"-. Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the ncxi BASIC program from 
ihe cassette. 

1.0An"fiteiiame": Searches for and loads the 
specified file from cassette. 
LOAD? ami EOAD?"nienBme": Reads file 
from cassette, and compares contents to mem- 
ory. 

I.OADN: Prims a lisl of all the programs on a 
cassette, unlil interrupted by the "break" key. 
LOADN" filename": Same as above excepi the 
lape will slop at the end of the program named. 
KILL: Removes ihe file manager program 
from memory so that the extra memory can be 
used by large programs. 
RSLT: Allows the operator to rewind and posi- 
lion the tape on tape recorders ihat have these 
functions tied to the motor control jack. 
Rl'N"nie»iime": TC-8 searches for a specified 
program and runs it immediaiely. 
PUT"nieiiame": Same as SAVE "filename", 
except il is for use with system tapes. 
GVJ: Same as LOAD, excepi it is for use with 
system tapes. 

GET"ni«Bame": Same as LOAD "Tilename". 
except il is for use with system lapcs. 
GET? and Gin"?"rUefi«me": Same as LOAD? 
and LOAD?"filename", excepi il is for use 
with system tapes. 
GF.TN and C.F.TN"rilenamc": Same as 



I OADN and LOADN" filename", excepi it is 

for use wiih \ysiem tapes. 

OPF.N: Required before cassette input or oul- 

pui of a data file can be aiicmpted. 

CI.OSF.: Required lo end a cassette data file. 

PRINT#: Allov^s numerical or siring data to be 

output 10 a cassctic file 

INPIIT*: Allows numerical or siring data lo be 

mpui trom a cassette file 

I haven'l counted ihem, so 1 don'i know 
about ihe "one load in a million bvics" claim, 
bul m> son. Anihonv (ape 1 1). loaded about .W 
of his programs from his Radio Shack formal 
tape to a new TC-8 lormal lapc. He's run ihem 
all and tound no bud londs. 

Unlike ihe standard uipc system, you can po- 
sition your tape anywhere bctorc the program 
you warn and noi have to look for a blank spoi 
between programs. The TC-8 palicnily waits 
for Ihe program you wani and then siarls load- 
ing wiihoul gelling confused b> the portion of 
ihe previous program you jusl fed il. 

Try lhat on your regular casselie sy.stem; 
you'll wear out the reset bution, ■ 

ORULK \OV> 

To order your TC -K kii. send your i.hcv.k or 
money order loi SW.(K) plus SW) ptisiagc 
andhandlingioJPt PR()DU( IS( (>.. 12021 
Paisano Cl., Albuquerque. NM 8''I12 (New 
Mexico residenis add 4'^« sales lax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We wilt otherwise 
immediaiely ship you ihc TC-8 kit. ihe cahmet, 
the ribbon cable, the power adapter, an insiruc- 
lion manual, and a cassette containing the 
software. 






.^190 



JPC PRODUCTS CO, 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 



■SM Lilt Ot Atfvffrfatrs Of* p«9« 396 
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ALIEN DEFENSE 

MOD III with Sound 




By Larry Ashmun 
/ 



irS HERE! 

"If s more than just another 
machine language arcade 
game." 

irS AN EXPERIENCE 

Super Fast 
1 or 2 Player 

MOD III ONLY 

Tape version $19.95 

Disk Version Coming Soon 




SEE OUR EXPANDED AD 

IN 80 US JOURNAL 
for more product information. 




Lorry Ashmun Is Back . . . 
and Brings You . . . 

SUPER VADERS 

With Sound - Mod I & Mod ill 

•1981 Soft SeotOf Mort(»ting ir>c 

The third in the evolution of the 
most popular space invaders games 
for Tandy machines. Now for 1 or 2 
players, 10 levels of play. 

Cassette (goes to disk) $19.95 

Ask for uporade informotion tor TOS-Supef 
^invoOers or invaden-Ptui 



MOD III ROM 
COMMENTED 

"981 Soft Sector Marketing, inc 

Only 522.50 

+S2,50 Shipping & Handling 

Not just a rehash of old infornrtation, 
but detailed comnnents on tt>e ROMS 
in the latest machine from Tandy. 



Now In its 3rd printing! 
Over 150 Pages! 



TAPE COPY 2 

^1981 Soft Sector Mcjiketmo, \nc 

This program will tood most any TRS-80 
500 Baud system tape (standord) Mod I 
speed) and load it into memory and save 
It at either 500 or 1500 Baud on ftw Mod III. 
NO KNOWLEDGE OF MACHINE LANGUAGE 
NEEDED Now it gives you a way to bock 
uD a machine language program that 
loads at ttre lower speed and makes 
cassette kxadir^ mto your new Mod III a 
much taster and rrxxe reltatJte process. 
Works with Mod I* & Mod III 



Only 



$14.99 



H3y4l V I. toMil :"-*¥ 



MASTER CONTROL 

For the Color Mochine 

1981 Soft Sector Marketing, Inc. 
Requires 16K 



■ a a H H a a n B n s B -■ 

Ma ^ a & a a m n m a V. urn 



3Dout our ottier Color Mochine programs! 



FEATURES: 

1. 50 preprogrammed command l<eys. standard and 
extended commands. 

2. Direct control of motor, trace, arxj audio. 

3. Relocatable machine code. 

4. Automatic line numbering, starting point and incre- 
nnent alterable. 

5. Programmable custom key. 

6. Direct Run button. 

7. Keytxx3rd overlay for easy program use. 

8. Easy entry of entire commands into the computer arxl 
display. 

9. Full instruction rTKanual. 

Cassette $24.95 



Outside Michigan 
Order Line Only 

800-521-6504 



^ 5t5 



SOFT SECTOR MARKBTINO, 

INCORPORATED 

6250 Middlebelt 
Garden City, Michigan 48135 



Questions & 
Michigan Orders 

313-425-4020 




For Your TRS-80" 
Mod I & HI 

Mod I- $125.00 

^1980 by David Welsh 

Mod III -$175.00 

®1981 by David Welsh 

There Is Nothing 
Even Close® 

The word processing systerrt that is 
easy tor the novices but has the power 
for professionols. 

Most used comment when onybody talks about Lazy Writer is "Easy to Use". 
Other Comments: 

• "What has moved the Mod I up to at least a triple-A league, if not the true big leagues of writing, 
is a modest priced word processer called Lazy Writer." 

• "All functions of Lazy Writer are well covered in its documentatioa which ranks among the best 
rve seen." 

Creative Computing July 1981 

• "Now that I have a chance to use and compare Lazy Writer with my other two popular word 
processing programs^ I am sony that I was rx)t avjote of Lazy Writer some time ago." 
C.H.. St. Louis. MO 

For those of you who requested 

a spelling checker to use with Lazy Writer® 

Now available from 

mmmn soft sector marketing, 

SSAbK incorporated ^ 

MICRO PROOF 

Product of Cornucopia Softwore 
EASY TO USE 

50.000 WORD VOCABULARY & EXPANDABLE 

RECOGNIZES PREFIXES & SUFFIXES 

REQUIRES ONLY 32K OF MEMORY & DISK 

AFFORDABLE & AVAILABLE IN THREE FORMS: fully independent program to identify errors,- 

independent program to identify and correct errors; or with a conversion program thiat 

will permit MICRO PROOF to operate from within. 



< 



New Lower Price! Was Now Only 

IPS-MOD i or iil Version $125.00 $89.00 
CofTGcting Feature $60.00 
Word Processing Con- 
version for Lazy Writer" $35.00 



Let MICRO PROOF 

Find Your Errors 

Before Someone Else Does! 




COD -certifiedcheck. MO orcosh only. Most ofdersshippednejctdav Aiiorderemusthovre shipping included 
Please odd 2% or S250, whichever is higher for shipping Michigan residents, please add4% tax. Add extra SI 50 
for COD Pefsonal checks take 3 weeks to clear All hardware must be prepaid No hardware shipped collect 
Out of ttie country orders odd SIOOO extra shipptr^ 

"TTJ^aO « a raoOuC of BocKi Svit*. Ssmion ol <he lories C aiXr atKf\ 



VIS^ 



^See List ol AUvartnan on 0ag« 306 
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GENERAL 



Metabasic—an end to the development of new languages. 

A Macroprocessor 
For Basic— Part IV 



J. Alan Otmstead 

J. Olmstead Financial Engineering Systems 

3813 West St., Moritz Lane 

Phoenix. AZ 85023 

Unless the Basic programmer is writing 
in native MetaBasic mode, the Basic 
compiler will always be an "emulator" com- 
piler (an emulator is a program which reads 
from one language and translates into a 
similar language). I wrote my first assembly 
language emulator in 1967 and can state 
flatly that no emulator can function with 
100% accuracy. I do not write in MetaBasic 
until the second state of program imple- 
mentation, preferring to "sketch out" the 
outline of the program in fast and easy in- 
terpreter Basic. This is especially desirable 
for debugging tricky sections of logic. The 
interpreter may be relatively slow, but the 
problems are caught right at the time that 
the subroutine is being written and is, ac- 
cordingly, fresh in the mind. That portion is 
then precompiled into MetaBasic and there 
are always details to fuss over and change, 
as much out of style as out of necessity. 
After a trial compilation and execution 
under assembly language, any portions of 
the program which are not exactly as you in- 
tended may be written in pure assembly lan- 
guage. 

Programs should not tie compiled for 
frivolous reasons. If the application is not 
time-dependent, is not in need of direct 
hardware controls for some operational 
reason, and is not subject to a concern for 
security, it should remain under interpreter 
Basic. Although not difficult, the technical 
environment Involves so many details it's 
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not reasonable for anyone, at any level of 
experience, to expect to realize quick and 
easy results. 

Praparatlon 

Once determined a protjram needs com- 
pilation, preparation is required for the pro- 
grammer and the program. 

The programmer should be wetl-tralned 
or experienced to the extent that he 
understands the workings of every Basic 
command word he uses without reference 
to the Basic manual. Understanding does 
not mean mere memorization; it includes an 
understanding of the conditions under 
which the instruction will produce Its par- 
ticular kinds of errors and "unspecified 
results." The programmer should t>e totally 
familiar with the compiler manual. The pro- 
grammer should also know how the com- 
puter hardware works, including what the 
registers do and how they do It. 

The program to be complied should itself 
be prepared, keeping In mind that in the 
compilation process the complex and gen- 
eral are broken down into the elemental and 
explicit. Multiple-command lines should tie 
broken apart. An error message directing 
one's attention to a line containing a half- 
dozen to a dozen commands is nearly as 
worthless as no message at all. 

Error-trapping subroutines are most com- 
monly deficient in applications and sys- 
tems software, but they are among the 
most important program elements. The pur- 
pose of error-trapping generally Is to pre- 
vent the uncontrolled termination of pro- 
gram execution by attempting to correct or 
work around a condition for which the pro- 



gram or the operating system is not pre- 
pared. For example, when TRSDOS dis- 
plays the Ready prompt, preceding the 
typed in response by a blank space causes 
the system to respond "What?" It an other- 
wise valid sequence of characters is typed 
in which is not a functional command word, 
the system attempts to locate a program 
file by that name. Failing, it displays the 
"Program Not Found" message. Although 
part of the normal functioning of the 
TRSDOS program, these are actually error 
traps. 

The best example of an untrapped error is 
illustrated in For. . . Next loops which refer- 
ence an unverified third element (see Fig. 1). 
The non-trapped code is sure to fail at one 
time or other, while the trapped code can- 
not fail— at least due to the LEN(Y$) as 
compared to the values possible for "X" 
due to "A". This kind of trapping may com- 
prise ten percent or more of a program. 

Error-trapping for I/O files is particularly 
important, and the methods differ depend- 
ing upon the types of files and the types of 
access modes used for the files. 

Most Basic programmers have never ex- 
perienced a true program "blow up"; the 
closest they have experienced is a sudden 
and unexpected clearing of the screen and 
display of the Ready prompt in what is obvi- 
ously a Boot-up system status. When a 
computer program blows up, the computer 
actually stops. To find out what went wrong 
requires the skills associated with the de- 
bug function, plus those of an experienced 
Assembly programmer. 

Ample use of error-trapping procedures 
will assure the applications program will 



always give a positive indicator of what 
problem lias occurred. Unlike interpreter 
Basic, the MetaBasic compiled program 
will not stop program execution arbitrarily 
when a problem has been encountered. In- 
stead, the error condition register is posted 
with the code number for the error; the error- 
trap register is checked to determine if an 
error-trap line number is active; if it is, the 
error exit takes place; if not, the operating 
system merely returns to the user's pro- 
gram after refusing to perform the request- 
ed function. The error code may be retrieved 
at any time by the command "A = ERR". If 
the command returns a zero, it means an er- 
ror-free operation was performed since the 
last error. Every operating system function 
except ERR resets the error-trap register to 
zero before performing its requested func- 
tion. 

How the MetaBasic Compiler Works 

Nearly every MetaBasic Compiler user 
will be initially interested in compiling 
already existing interpreter Basic pro- 
grams, as opposed to writing new programs 
specifically for the compiled environment. 



"If the command returns to a zerof 
it means an error-free operation 
was performed since tlie last error. 



Accordingly, the Precompiler will be as im- 
portant as the Compiler itself. 

Except for certain definition functions, 
the first word in a MetaBasic command is 
always a command word. Thus, the princi- 
pal job of the Precompiler is to review the in- 
terpreter Basic program to ensure every 
command may l^e translated into Meta- 
Basic format, and to do so if possible. If not, 
an error diagnostic is inserted conspicu- 
ously into the output MetaBasic program 
file. 

The Precompiler is a group of three pro- 
grams. The first program catalogs all refer- 



enced line numbers and makes certain all 
such lines actually exist. The first line of the 
program is always defined as a referenced 
line number, t>ecause it eventually will be, 
even if the program in its original interpreter 
Basic form does not reference it. Since 
Assembly does not use line numbers, all ref- 
erenced line numbers are converted into 
name tags by inserting the letter L before 
the numtier. These appear as new lines in 
the form "L1000 EQU $", which is called an 
"equate" pseudo-operation command used 
by the assembler to identify a referenced 
address. From this point onward, the actual 



Non-lrapp«d Cod» 


TrappM Ccxls 


1000 FOR X = 1 TO A STEP 1 1000 B - LEN(Y») 


10lOMIO$(YVX.1|sO' 


1010 FOR X = 1 TO A STEP 1 


1020 NEXTX 


1020 IF X>B THEN 1050 




1{a)MISS(Y$.X,1)s"0' 




10*0NE3(TX 




1050 . . 




Fig. 1 



FIXED ASSETS 

Put your IRS 80 computer to work keeping track of 
all information related to your fixed assets and deprecia- 
tion. This versatile system, developed by a CPA, will 
compute depreciation according to straight line, declining 
balance, and SYD methods and maintain the complete 
audit trail you need for financial and tax reporting, in- 
cluding fixed asset ledger and acquisition and disposal 
reports You will be able to project depreciation for cur 
rent and future years, use different methods for financial 
and tax reporting, switch from declining balance to 
straight line when advantageous, compute investment 
tax credit and additional first-year depreciation. Reports 
are available in both summarized and detailed formats, 
and can be organized by general ledger account, location, 
department, ADR class, and year of acquisition. 

Currently available for the TRS-80 Model I with at 
(east 32K and 2 disk drives, and for the Model III with at 
least 32K and 1 disk drive. Requires Disk Basic and a 
TRSDOS-compatible operating system. 

FAAS- 1 for Model I $ 1 49 

FAAS-3 for Model III $ 1 49 



TAB132 



At last, here is the solution to LPRINT TAB problems 
with your TRS-80 Model I computer. Increase your pro- 
gramming productivity with this enhancement to Basic. 
Stop going through string manipulations and contortions 
trying to overcome the TAB(631 limitation. With 
TAB1 32, you will never again have to fret over tabbing 
past position 63 on your line printer. TAB1 32 will allow 
you to correctly tab to any print position up to 255 with 
the normal TAB! ) statement. 

TAB132 is a machine language routine which oc 
cupies 100 bytes of memory, and will operate with either 
Level II or Disk Basic on the TRS-80 Model I. The TAB! 32 
tape or disk includes modules for several different modes 
of operation. It can be loaded in the System mode or from 
DOS. can be loaded and run as a Basic program or merged 
into your Basic program and activated with a single 
GOSUB at the beginning of the program. System and 
DOS modules include a relocating loader to move 
TABl 32 to anywhere in memory. Also supplied is a pro- 
gram which will patch the routine permanently into Disk 
Basic. Specify media when ordering. 

TAB132ontape .. $12.95 on disk . .$14.95 



"EffectNe use of the 

Concur command is probably the 

most powerful component in Meta-Basic." 



line number of a given line is of no impor- 
tance. 

Because the first line of the program is 
always the first line to be executed, the 
precomiler removes all non-executable 
lines of code (which \«ould normally be ig- 
nored by the interpreter) and reinserts them 
above the first line. These include all dimen- 
sion statements all data statements, and all 
declarations of names, both public in the 
present program and external in other pro- 
grams. Immediately after the first line, the 
precompiler will insert all implied Open 
commands (screen, keyboard, printer), giv- 
ing the default initiali2ation values for those 
devices. A Print command will generate a 
run-time error if the printer is not an in- 
itialized ("opened") condition. 

Concur 

If the user wishes to break the present 
program into workable parts, or wants other 
program modules to be loaded into memory 
at the same time as the present program, he 
may insert "Concur" pseudo-commands as 
the first operations performed at the first 
line of the program. The commands permit 
naming up to six other program modules to 
be in memory concurrently with the present 
program. Concur is exactly like Chain ex- 
cept that control always returns to the 
user's program instead of being transferred 
to the newly loaded program module. Effec- 
tive use of the Concur command is probably 
the most powerful component in Meta- 
Basic. 

MetaBasic is space inefficient on the 
disk file: This design decision was made 
deliberately for simplicity and maximum 
user information Throughout the Meta- 
Basic precompilation and compilation pro- 
cess, a single ASCII-format sequential file 
and workfile are used for all stages of pro- 
gram output. Error messages are embed- 
ded directly into the erroneous line, and it is 
recommended the user make ample use of 
both screen LISTs and printed listings. 

In addition to error diagnostic insertions, 
the precompiler formats the Basic program 
into the beginning of Assembly field for- 
mats. After the line number, the first field is 
the tag field, the second is the opcode, the 
third is the operand field and the fourth, if 
present, is the comment field. The precom- 
piler always begins the opcode field in the 
same place, whether a tag has been used or 
not. This greatly enhances readability but is 
not required for correct precompiler or com- 
piler operation. Field structure is complete- 
ly variable and there is no need for blank 
spaces between the operand elements. 

Finally, the precompiler expands the in- 
terpreter Basic program by as much as two 
times the original number of lines. This is 
caused by the insertion of tag equates and 



reprogramming. There are many Basic in- 
terpreter commands which simply do not 
exist in MetaBasic; for example, an 
If... Then statement which contains the 
logical OR or AND functions may cause the 
expansion of as many as one dozen lines of 
emulating logic. In another example, nu- 
meric literals, quoted string literals and 
functions (VAL, ASC, ABS, etc.) may not ap- 
pear in any command except a move-data 
command (SETBCD and SETSTR). 

So that these do not have to be repro- 
grammed by hand, the precompiler re- 
moves them from the original command 
line, equates them to a working location, 
and substitutes the working location name 
back into the original command line. During 
compilation, the program grows to at least 
four times its original number of lines as il- 
lustrated by the move-data commands in 
Fig. 2. While the resulting Assembly pro- 
gram is a fraction of the size of its source 
counterpart, the source file can become 
huge. Some effective method of copying 
with large files must be provided. 

The method is the Concur command, 
together with the source-level address 
linkage utility. Working with the MetaBasic 
source program file, the program may be 
unceremoniously chopped into halves, 
thirds, quarters, etc.. and established as 
stand-alone files (PHOG made into PROGA, 
PROGB, PROGC, PROGD, etc.). The result- 
ing pieces of the original program are then 
run through the "external resolution gener- 
ator" utility. Every data location and line 
name in each of the parts referenced by any 
one of the other parts will be automatically 
named "Public" in the part and "External" 
to the other parts which reference it. The 
result is that all parts communicate among 
each other as easily as though they were 
still one program file. The external 
reference generator may be run as often as 
needed, if changes are made. 

The external reference generator utility 
also knows which program module is the 
first or main module. At the beginning of 
that module it will insert the Concur com- 
mands necessary to cause the Z-Monitor 
loader to load all subordinate modules as 



soon as the main module has been loaded. 
After the first program of the precompiler 
has generated all the line number reference 
tags, it is a good idea to look at the program 
file and determine whether it should be sub- 
divided into two or more program files at 
this point. Generally, if the program file is 
longer than 8-10 granules or 20K disk 
space, subdivision is strongly recommend- 
ed. It is not necessary to do so, however, 
and the user may elect to continue on to the 
second of the three precompilation pro- 
grams. 

But Is It Legal? 

The second precompiler group program 
analyses all command syntax except for 
dimensions and input/output operations of 
all kinds. The general rule for syntax analy- 
sis is, if the interpreter Basic form is not 
legal under the interpreter, it wilt be flagged 
and abandoned; if, however, it is legal under 
the interpreter and legal under MetaBasic in 
an altered form, it will be automatically 
reprogrammed to save manual labor. If it is 
legal under the interpreter but illegal under 
MetaBasic in any form, it will be flagged 
and abandoned. 

The thrust during second-stage precom- 
pilation is what is legal under the interpreter 
but illegal in any form under MetaBasic. 
MetaBasic requires only one command (or 
one command and a comment) per num- 
bered line, Error-traoping, already men- 
tioned above, is one reason for this; another 
is that the logic of multi-command lines in- 
variably becomes intermixed with the inter- 
pretation of If.,, Then statements. If... 
Then statements not only do not exist in 
that form in MetaBasic, there are no consis- 
tent rules for their interpretation among the 
various versions of Basic, 

The second restriction, which will annoy 
many interpreter Basic programmers, is 
against complex functions and multi-func- 
tion commands. For example, the precom- 
piler will correctly handle "A = A -t- B*(C-D) 
12". In truth, the author was reluctant to take 
on the responsibility for interpretation of 
fluid logic in addition to that for creating 
error-free Assembly code. Another example 



MetaBasic 




Asaembty 




1000 SETSTRASsBS 


1000 iSETSTR 


A$ = B$ 






1010 


CALL 


SETSTR 




1020 


OEFW 


Ai 




1030 


DEFW 


BS 


1040 SETBCO A^VAUASl 


1040 ,SETBCD 


A = VAUA$| 






1050 


CALL 


VAL 




1060 


DEFW 


A 




1070 


DEFW 


Ai 




Fig. 2 
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of rejected logic, in complex functions, is 
"A$ ^ STR$(VAL(B$)/ABS(D))". 

The second state precompiler will not an- 
noy the user with mere violations of form. 
For example, if the user tests an embedded 
literal (not allowed), the precompiler will 
remove the literal into a generated work- 
space (see Fig. 3), Because If. . .Then 
statements have no direct counterpart in 
MetaBasic but due to their program fre- 
quency and importance, there is no varia- 
lion, including logical OR and AND, which 
the precompiler will not automatically han- 
dle correctly so long as the user does not 
embed complex functions and computa- 
tions- 

One final restriction is common to all 
compilers. For . , , Next , . . Step commands 
must occur in perfectly matched pairs; the 
command Next by itself (as opposed to a 
named variable, such as "NEXT X") is not 
permitted. There are no practical restric- 
tions on the number of For, . .Next loops 
which may be nested inside one another. 

For . . . Next loops are another form of in- 
struction which does not exist either in 
MetaBasic or in Assembly and must there- 



"/\ single test is made- 
greater-than for incrementing loops 
and less-than for decrementing loops." 



fore be emulated. The variables will be ini- 
tialized, the first loop will be executed, and 
the first test-after-incrementation will take 
place. The default condition for testing is in- 
crement. Decrement will not take place un- 
less the Step argument is a negative literal 
(the compiler cannot test a value which will 
be known only at run-time), A single test is 
made— greater-than for incrementing loops 
and less-than for decrementing loops. 

The Third Program 

The third program handles all physical 

commands, including DIM. Data, Read, 
PEEK, POKE. Set. Reset, Restore and all in- 
put/output commands including Input, 
Print, LPRINT, Get, Put, UNEINPUT and 
PRINT#. MetaBasic dimension statements 



are structured closely to those of interpre- 
ter Basic; but their internal handling is very 
different. If the user has not explicitly 
dimensioned his data names, the precom- 
piler does it for him with default values 
which must be checked for acceptability. 
Internal data is essentially handled as 
under the interpreter; it is formatted wher- 
ever il IS encountered in the program, the 
precompiler ensuring that program logic 
jumps over the data areas. The address of 
each datum is entered into a table begin- 
ning with a table element pointer and end- 
ing with a table terminator word. 

Both DIM and Data have interesting 
MetaBasic options. Since the program be- 
ing precompiled may have been subdivided, 
and since data variables should not be di- 



1000 IF A$:^ 


Basic 


MetaBasic 


■DATA'' THEN 2000 


1000 SETSTH WK$002 = DATA" 
1020 COUPSTB ASTOWKSOO;! 

THEN . . 

Fig. 3 








EDITOR, ASSEMBLER AND MORE! 



SOFTWARE DEVELOPMENT SYSTEM 

The Micro Works Software Development System iSDSSOC) is a complete 6809 
eailor, assembler and monitor package contained in one Color Computer program 
oack' Vastly superior lo RAM-Oased assemblers/editors, the SDS80C is non- 
volatre, meaning tbal it your application program bor^bs 't can': dest'oy your 
eciito'/assembler Plus it leaves almosi all of 16K or 32K RAM free io' your 
program Since a'' mree programs, editor, assembler ana monitor are co-resident, 
we eliminate lecious program loading when going back and fortli from editing to 
assembly and deouggmg' 

The powerlul screen-oriented LOitor features finds, cfianges, moves, copys and 
mucfi more All keys tiave convenient auto repeal (typamalicl, and since no line 
numbers are required the full wicih of ilie screen may be used to generate well 
commented code 

The Assembler features all of the fonowmg comptete 6809 instruction set 
complete 6800 set suppo'ied fo' cross assembly conditional assembly, locai 
labels, assembly to cassette tape or to memory, listing to screen oi printer, ano 
mnemonic error codes instead of numbers 

The versatile ABUG monitor is a compact version of CBUG, tailored tor debugging 
programs generated by the Assembler and Editor It feati;res examine/change ol 
memory or registers cassette loafl and save, breakpoints and more S0S8DC 
Price m.9b 



•r^. 



^ 



CRACK THOSE ROM8I 



SOURCE GENERATOR: Ttiis package is a disassembler whicti runs on the color 
computer and generates your own stxirce listing of the BASIC interpreter ROf^ 
Also included is a cocumenlalior package whicti gives useful ROM entry points 
complete memory map, ' haroware details and more A i6K system is required 
for :ne dse of itiis cassette 80C Disassembler Price: $49,95 



LEARN 6B09! 

6809 ASSEMBLY LANGUAGE PROGRAMMING, 

by Lance Leventhai contains ifie most comptetien- 
sive reference material available for programming 
your Color Computer ft-ice: S16.95 



Caua IB HERE! 

MONITOfl TAPE: A cassette !ape whicn allows you to directly access memory. I/O 
ano registers witr a lormatted tiex display Great for machine language 

programming, debugging and learning It can also seno ■'receive RS232 at up to 
9600 baud mcluoing host system download/upioad 19 commands in ail 
Relocatable and reentrant CBUG Tape Price. $29.95 

MONITOR ROM: The same program as above supplied in 2716 EPROM Ttiis 
a lows you to use the entire RAM space And you don t need lo re-load tne monilof 
each tinie you use it The EPROM plugs into tlie Extended Basic ROM Sxkel or a 
moaified ROMPACK CBUG ROM Price: S39.95 



PARALLEL O! 

USE A PARALLEL PRINTER with your Color 
ConiDuter' ACapIar box plugs into tne senal port and 
allows use of Centronics ■Radio Shack cofnpatipie 
printers wilti pa'a^iei 'nierlace Assembled and 
tested PI80C Price. $69,96 






^^109 



GOOD STUFF! 



3BK RAM! 

MEMORY UPGRADE KITS: Consisting of 4116 

200ns integrated circuits with instructions fO' 
installation 4K-16K Kit Price: $39.95. 1KK-32K 
Kit irequires soldering expe'iencei Price: $39.95 

WE SHIP FROM STOCK! 

Master Charge/Visa and COD Accepted 



P.O. BOX 1110 DEL MAR. CA 92014 714-942-2400 



^See List ol Advertisers orj page 3H6 
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". . . MetaBasic or Z Monitor disk format 
is nothing lil<e the TRSDOS d/s/c format." 



mensioned twice in one program, DIMs may 
be changed to External pseudo-operations 
by so indicating at the beginning of the job. 
Internal data, however, will be automatical- 
ly set up In a new table within each program 
module. This presumes the programmer may 
wish to have program modules created for 
the sole purpose of organizing large vol- 
umes of data in kind of internalized in- 
dexed-sequential Read format, with the 
associated ability to restore to the begin- 
ning a part of the total data without having 
to restore it all the way back to the begin- 
ning of a possibly quite large table. When 
originally programming in MetaBasic, the 
programmer may designate which of 100 In- 
ternal data tables a unit of data should be 
assigned to by appending the table number 
to the Data command, as in "DATA62 
A,B,C,D," THIS ",E,1,2". This string of data 
would be assigned to table-name 
"DATA62", even if It were the only data 
table in the program. The corresponding 
Read and Restore commands would be 
"READ 62" and "RESTORE 62". 

PEEK and POKE function as In Interpre- 
ter Basic; their values are decimal. 

The Set and Reset commands are exactly 
as under interpreter Basic, but they will be 
replaced by the "Draw Dot" and "Draw 
Blank" commands, respectively, which are 
part of the command set for business 
graphics. 

tnput/Output 

MetaBasic recognizes five different stan- 
dard I/O devices for the TRS-80 Model I; 
screen, keyboard, line printer, disk drives 
and serial I/O port (communications). Each 
has its own particular command words 
which may not be intermixed at the Basic or 
MetaBasic level (see Fig. 4). 

Clearly, the majority of these commands 
cannot be written under Interpreter Basic, 
and illustrate the paucity of available com- 
mand words available to th '< Basic program- 
mer given the range of peripheral equip- 
ment available to the TRS-80 Model I user 
today. It is important, however, that the user 
understandwhatwill happen to the I/O com- 
mands In his interpreter Basic program 
when processed by the precompiler. 

The Conversion 

An easy way to remember the conversion 
is: display to the screen, input from the 
keyboard, strobe for a depressed key, prints 
to the line printer, and read and write from 
or to a disk file. PRINT® commands gener- 
ate a "CURSOR 1,p" command before print- 
ing. Unlike interpreter Baste, MetaBasic 
never adds an automatic carriage return at 
the end ot the printed Vine. It the interpreter 
Basic line ends in a semi-colon, the precom- 
piler will not generate the "SCROLL UP,1" 



command for the screen and the "LINE 
UP,1" command for the line printer. In both 
cases, printing null (PRINT"" and LPRINT"") 
and Print or LPRINT command without an 
argument will result In the appropriate line 
advance command. Where repeated Print 
and LPRINT commands have been used 
solely for vertical spacing, the single-ad- 
vance commands which result may be con- 
solidated into a single advance command 
with the number of lines desired as the 
argument, as in "LINE UP,5". 

Sequential disk files are handled essen- 
tially the same as under interpreter Basic, 
except only one variable may send or re- 
ceive data with each command. Accord- 
ingly, the command "L!NEINPUT#1,A$.B$, 



C$" would result in three separate "READ 
LF1,[, . .]" commands. 

Random access files are handled some- 
what differently. There is actually no such 
thing as random access mode under Meta- 
Basic, The Record I/O tile format defines 
fixed-length records which may be written 
and read by sequential record numt>er 
(beginning from one and continuing until 
end-of-file) In both sequential-access and 
random-access modes. There is no such 
thing as a Field statement, which is actually 
a clumsy adaptation from Cobol. To at- 
tempt to avoid manual reprog ramming, the 
following conventions will be followed by 
the precompiler: The random-access file 
will be opened in twth (read and write) ac- 



Device/Mode 
Screen 


Command 
SCROLL UP,n 


Meaning 


Move lines up n lines 


(display) 


SCROLL DOWN.n 


Move lines (town n lines 




SCROLL SET.n 


Protect first n lines from scroll 




CURSOR (ON) [OFF| 


Cursor visibi Illy 




CURSOR 1,p 


Position cursor at line, position 




DISPLAY A$ 


r^inl data on screen 


Screen 


SCALE v,h 


Ratio screen addresses lo data 


(graphics) 


PLOT v,h 


Draw dot 




BLANK v,h 


Draw non-dot 




DRAW LINE,v,h,v,h 


Draw line from, to 




DRAW BOX,v,h,v.h 


Draw rectangle within corners 




DRAW VBAR,w.v,h,v 


Draw venical bar of w- width 




DRAW HBAR,w,v.h,h 


Draw horizontal tiar of w-width 




FONT n,1,p 


Change character size, lines, posns 




CHAR A$.v,h 


Print data on screen 


Keyboard 


INPUT A$ 


Get data to a carriage-return 




STROBE AS 


Check \f key was struck 




ABORT AT nnnn 


GOTO nnnn If CLEAR key struck during manual interrupt 


Printer 


PRINT A5 


Print line on line printer 




LINE UP,n 


AtJvance n-(ines 




LINE 0OWN,fi 


Reverse n-lines 




LINE EMS.n 


Advance horizontally nth-inch 




LINE LEAD.n 


Advance vertically nth-Inch 




PROMPT [ONI [OFF] 


Tell operator to change new page 




VMARGIN t,b 


Set top/lxittom page margins 




HMARGIN l,r 


Set left/right page margins 




FONTSET [Ml |A|,AI 


Manual/auto font name change 




PAGEn 


Skip n-heaOs-ol-torm 




HEADER AS 


Set repeating page header message 




FOOTER AS 


Set repeating page footer message 




TABSET n,p 


Set tabstop n at position p 




TABn 


Skip to tabstop n 


Disk 


READ LFn,A$ 


Read data from logical file n 


(variable) 


WRITE LFn,A$ 


Write data to logical file n 


Disk 


READ FILE LFn,AS, 


Read data from record r In logical 


(fixed) 


REC = r 


file number n 




WRITE FILE LFn.AS, 


Write data to record r in logical 




REC = r 


Me number n 


Seiial I'O 


BAUD nnnn 


Set baud rate 




WORDLEN n 


Set bits/word 




STOPBIT n 


Set number of stop bits 




PARITY AS 


Set parity odd, even, none 




FBYTEAS 


Set automatic llrsi byte 




LBYTE AS 


Set automatic last byte 




XRACK 


Send request for acknowledgemwit 




XACK 


Transmit acknowledgement 




XNACK 


Transmit r>eoative acknowledgement 




XMIT AS 


Transmit data 




RCVAS 


Receive data 




TIMEOUT A 


Set seconds to wait for answer 

Fig. 4 
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cess modes. The Get command will read 
data into a precompiler-generated data 
location called "RA$n", where n is the 
logical file number assigned to the random- 
access file. The variable names in the Field 
command will be placed in a special lookup 
table. Whenever one of the Fielded variable 
names is referenced in a data move, the 
name will be changed a MID$ command 
which references RA$n by the subfteld 
twginning number and length. Whenever an 
LSET command is encountered, the reverse 
will occur, and a Put command will again 
reference RA$n, The data name "DUMMY$" 
will be ignored in a Field command, but the 
Dosition counters will be incremented. The 
arecompiler will not attempt to handle more 
than two random access files per program 
segment. 

It is equally important to note that the 
MetaBasic or ZMonitor disk format is 
nothing like the TRSDOS disk format. The 
directory is on track zero, not 17. Files have 
both names and numbers. Protect status is 
prevention against inadvertent destruction, 
not a futile exercise in pseudo-secrecy. A 
'lie's protect status is turned off by merely 



entering "PROTECT OFF". Most tmportant- 
ly, there are 64 different physical formats 
from which the user may choose in an effort 
to optimize space against speed, A disk 
record may contain as many as 204fl bytes 
or as few as 16. The Format command will 
optimize the physical placement of the 
records on a basis of so-many-per-track. 

Whenever a sequential (variable length) 
file is declared, the disk surface remains 
formatted at ten sectors of 256 bytes per 
track. But when a record I/O (fixed-length) 
file is declared, the declaration must in- 
clude the record length (RECL=nnn). 
Based upon this information, the named 
file's tracks are reformatted to physical 
records ot the indicated length. Thereafter 
it is no longer necessary to block-up data 
records before writing to the file, nor to 
block-down to individual records after 
reading from the file. The numbered record 
is named and becomes available at record 
speeds. 

This altered approach to disk I/O is not 
new; it is adapted from standard IBM disk 
I/O procedures. Accordingly, it makes pos- 
sible a new high-speed lookup procedure 



called "indexed-sequential" organization. 

This altered approach to disk organiza- 
tion also makes possible genuine high- 
speed disk-based sorting. The data itself is 
never sorted- Keyfiles are established and 
sorted, then the input files are rewritten to 
output file in an altered sequence based on 
the new order of the keys. 

The output from the third stage of pre- 
compilation is supposed to be an error-free, 
pure MetaBasic source file. Since the file 
might have been written by hand, it may 
also be modified manually, including the in- 
sertion of the user's own machine code sub- 
routines. MetaBasic source files may also 
be passed through the Assembly macro- 
processor tor this purpose. Every line of 
MetaBasic code is preceded by a colon at 
the first character position after the blank 
space which terminates the line number. 
After compilation, this will be changed into 
a semi-colon, which is the assembler's com- 
ment symtral. Assembly commands insert- 
ed by the user should not be preceded by a 
colon or a semicolon. ■ 

Next month: More on the MetaBasic 
Compiler. 



f ' 

i * 



EDflS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
i or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembty for memory or mul- 
tiple disk files by means of 'GET 
assembler directives provides 
the capability of assembling 
huge source files wtth X.OOO 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
withBASICsyntaxediting. EDAS 
provides power with esse of 
use. $79 + SSEfH. 



DJTJl 



DUTIL IS a utility to examine, 
clear. Initialize, move, and modify 
data in memory. Load, punch, 
verify SYSTEMtapes. Disk sector 
I/O. More! S20. 



mmai 



Now you can append two or more 
CMDfilesand/orSYSTEM tapes. 
Perform transfer to & from disk/ 
tapeofSYSTEM/CMD modules 
with offset capab>\it«s, $20 




LDOS i* the latsst generation of sophisti- 
cated operating systems for the TRS-80 
computars. LDOS is complataty docu- 
mented in ■ 2S2-pag« reference manual. 
Total support ts provided from soma of 
the most knowladgsabia paopla in the 
industry. You owe it to yourseH to inves- 
tigate this system. Call or write for details. 
LDOS is priced at $149 plus M S&H. 



LDQS 5.Q 



DSmBLH 

Complement your esserrvbty lerK|ti^ge toots with this 

Z-80 disassemlHiP» wh^' pri;|lLJce» screen, printer, 

cassene, or ~ 

provides S 

ative fefer 

QMf 




le i^tBiitft. A ♦^jiass process 
torie bfreddttsrfanjlS-bitrel- 
.QUates h OVSGjAhrflBlttrated. 
,s&.fif#f 1^ 




'for nb\i^ 

^OAS.dflpFlLE, DSMBLfl Specr 
SI S&H +rW>ar«nsigram^ 

MtSOSYS'^ept- MU2 ^221 
5904 Edg^hill Drive 
Alexandria, Virginia 22303 

I^^KI 703-960 2998 MicroNET 70140,310 
^HH Dealers Inquiry Invited 



add 4%. 



DJSKIHQD 

Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O, bkx:k move, glottal change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT, From within the 
EDTASM you wilt have DIR, 
KILL, & FREE Upgrade your 
EDTASMi S20 

ThE hm^ 

THE BOOKS must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM, A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed Volume II tells you every- 
thing you wanted to know about 
the Level II l/0-printer, key- 
tK>ard, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed THE BOOKS will save 
you hours of assembler pro- 
gramming. Each volume is pnced 
at $14,95 or buy both for $24.95, 
Add $1.50 SEtH per book. 



'See L'St ol Advertisers on page 386 
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CONSTRUCTION 



With the help of Zen, build your own printer interface. 



Hard and Soft Printware 



/, R. Sinclair 
89 Alexandra Road 
Sible Hedingham 
Halstead, Essex 
England C09 3NP 

By the time I had owned my TRS-80 for a 
few months. I had resolved that the 
first priority would have to be a printer. 
When your programs are short enough to 
list on the screen without scrolling, a printer 
seems an unimaginable luxury. But one of 
the joys of the TRS-80 lies in writing longer 
and longer programs using all the power of 
that big Basic. As a result, by the start of 
1980, I was suffering severely from print- 
out starvation, and only the use of a bor- 
rowed Teletype 33 kept me going. 

About the same time, printer manufactur- 
ers must have noticed this problem, be- 
cause there was a sudden flush of printers 
at $700 and less. Better still, they weren't 
thermal or electrostatic but real hard copy 
paper-markers. I suspect there was, in fact, 
only one mechanism with many manufac- 
turers fitting electronics to it, but the result 
was certainly good for me. After some 
phone calls and a drive of a few hundred 
miles, I had a smaller bank balance and the 
feeling that I was, at last, winning the hard 
copy battle. 

The Lowdown 

I was right, but there was a long way to 
go. If you still want to jump on the hard copy 
bandwagon, this article will give you the 
complete lowdown of both hardware and 
software that will allow you to get into hard 
copy for only a few dollars more than the 
price of the printer. 

It doesn't matter what type of printer you 
use, providing it has an RS232 interface 
built in. As far as 1 know, all the modern el 
cheapo printers use this type of interface, 
which lets us get away with simple attach- 
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ment to the TRS-80 cassette port. The baud 
rate (the speed at which bits can be set from 
the computer to the printer) can be altered 
by setting the position of wire links inside 
the printer, and for this type of use the rate 
should be set at 300 baud. 

Don't be tempted to set the rate higher in 
hopes of faster printing— the simple inter- 
face I am going to describe is reliable at 300 
baud, but not at higher speeds. For higher 
speeds, a connection is needed from the 
printer to an input on the expansion inter- 
face connector of the TRS-80 so the printer 
can stop the computer when it has sent 
more characters than the printer can cope 
with. This type of connection is called a 
handshake, and my simple interface does 
not include this type. 

Designing From Scratch 

I had seen a simple interface described In 
a local user's group newsletter, but I doubt- 
ed it would really work. I was right, so I set 
about designing my own Interface from 
scratch. 

The first thing I had to know was how 
large the signal from the cassette port 
would be. A cassette recorder does not 
need a large signal input, and too great a 
signal can cause distortion which leads to 
loading difficulties when the tapes are re- 
played. I bought only the keyboard unit of 
the TRS-80, and my cassette recorder is a 
sensitive one, so I had to cut down the sig- 
nal strength by modifying the cassette out- 
put circuits. I used a voltmeter to measure 
the signal strength. 

Step one was to get an output. Fortunate- 
ly, on the TRS-80, it's not necessary to print 
a program to find out what happens at the 
cassette port. A simple program line was 
typed in and run; 



10 OUT255.0:FOR N = 1TO1500:NEXT:OUT255,1:FORN = 
1TO1500;NEXT:GOTO10 



This produced a voltage reading on the 
meter (attached to the cassette output 
socket) which varied from 0.46V to 0.48V 
and back again as the program ran. This is 
not a very large voltage swing for the input 
to an interface, though it's big enough for a 
cassette recorder. I started looking for ways 
to increase it without any further altera- 
tions to the TRS-80 itself. A quick look at the 
output circuitry showed that this could be 
done by altering the program to: 

10 OUT255.2:FOHN = 1TO1500:NEXT;OUT255,1:FORN = 1 
TO1500:NEXT:GOTO10 

Simply by using a two in place of a one, the 
voltage swing became zero to 0.86 V, a lot 
greater and a much easier amount to deal 
with. I incorporated it into software for the 
printer. 

The next step was to build the interface. 
an amplifier which would take the voltage 
swing of to 0.86 volts at the cassette port 
and transform it to a voltage which (approx- 
imately) varied twtween -9V and -f-9V. 
These serial printers are tolerant animals, 
they don't appear to object if the pulses 
aren't strictly RS-232 standards. I was cor- 
rect in assuming that a very simple ampli- 
fier would be good enough. Ten minutes on 
a solderless breadt>oard got me into hard 
copy, and a few hours work the next day 
(yes, I felt I had to make listings of all my 
programs in case it stopped working) 
resulted in a more polished version. 

The Interface 

The interface consists of a 741 opera- 
tional amplifier IC, which draws its power 
from a rectifier bridge circuit which, in turn, 
is powered from the TRS-80 power pack. It 
uses only a small amount of power and con- 
stitutes no hazard to the TRS-80 supply. The 
unit is built into a small plastic box, and 
connects between the TRS-80 and its power 



"Building a low-cost interface may 
give you a glow of achievement." 



S-PIN SOCKET- 
TAKES PLUG 
FROM TRS-80 
PO*ER 
SUPPLT 



• I 5-PIN PLUG 
, TO CONWCT 
•* TO THS-80 
■ J PO«ER 
SOCKET 



5-PIN SOCKET 
TAKES PLUG 

FROM Tns-eo 

CASSETTE 
UNIT 




Fig. 1. This la the circuit for the Interface unit All resistors an V4Wratlng. The switch is ofy 
tlonal, but if there Is no online switch on your printer. It will prevent the printer from printing 
rubbish during a CSA VE. 



and cassette plugs. The power plug from 
the TRS-80 supply goes into the interface, 
and the corresponding plug from the inter- 
face plugs into the TRS-80 power socket. 
The cassette lead is treated in the same 
way, so the interface can pick up power 
from the power cable, and signals from the 
cassette cable, but does not interfere with 
the operation of either. (There is no need to 
unplug the cassette unit, for example, when 
the printer is t>eing used.) 

The specific layout is not critical, and the 
circuit can be built in any way which you are 
accustomed to. I used Veroboard, but any 
type of matrix board which Is designed for 
ICs is suitable. Make sure that the two 
smoothing electrolytic capacitors are cor- 
rectly wired, because if the voltages are po- 
sitioned wrong they can overheat and burst. 
The most tedious part of the whole effort is 
soldering the five-pin DIN plugs to fit into 
the TRS-80. Make sure before you start that 
the plugs will actually fit, because some 
plugs have elaborate covers which may pre- 
vent them from tjeing correctly inserted. 

For the benefit of you hardware pros, the 
circuit is a non-inverting amplifier. The sig- 
nal from the cassette port is taken from pin 
5 of the cassette socket through a 10K re- 
sistor to the -f input on pin 3 of the 741. The 
- input on pin 2 is connected to a bias net- 
work, consisting ot the diode and array of 



lOK resistors, and also to the feedback re- 
sistor of 220K. This feedback resistor also 
sets the amount of amplification. The out- 
put signal is taken from pin 6 of the 741 IC 
through a 330 ohm resistor. Power supplies 
of -f 9V and - 9V are needed to operate the 
741, and these supplies are obtained from 
the TRS-80 by connecting pins 1 and 3 of the 
power socket to a bridge rectifier. The out- 
put from the rectifier consists of the +9V 
and - 9V tines, smoottied by 500(jF capaci- 
tors. The cable to the printer does not need 
to use the expensive 25-pin Cannon-type 
plugs which so often appear on printer con- 
nections {using only two pins, it seems 
pointless to use a 2&-pin plug). On my unit, I 
simply used a length of power cable, perma- 
nently attached at the interface. If you like 
plugs and sockets, a miniature two-pin unit 
is as good as any. The connection to the 
printer consists of the RS232 signal line and 
earth return only. 

Check the circuit carefully, particularly 
the power supply section, because a fault 
here could damage the TRS-80 power sup- 
ply. Testing will now have to wait until you 
have assembled the software! 

The Software 

Building a low-cost interface may give 
you a glow of achievement, but that will 
quickly dissipate if you have to spend $30 



on the software to make it all work. Many 
serial printer programs exist, but none ot 
them suited my needs, and so I developed 
my own, slowly and painfully. I wanted more 
than a straightforward routine, ttecause the 
reason for buying a printer was so I could 
have listings of programs at various stages 
of development. (I hate keeping long rolls of 
paper, and I wanted a program which would 
list into neat pages of the same length as 
Radio Shack uses. 66 lines per page.) 

Looking at a sample sheet which my 
printer had listed (when I twught it), I saw 
that the left margin was very small, too 
small tor my filing methods, so another re- 
quirement for the routine was a left margin, 
preferably one which could t>e altered. The 
most important point, at first, was that the 
program should be fully relocatable, with no 
jumps to absolute addresses within the pro- 
gram. This way, I could use the same pro- 
gram at any address, or POKE it from a Ba- 
sic program anywhere in memory, or as a 
string. I modified this requirement later! 

My program specifications grew and 
grew. Having 66 lines per page implied that 
there would be a line counter, along with a 
reset method for the counter to ensure I 
could start a listing with the counter loaded 
to its full 66 lines. I wanted to use a com- 
mand word for this rather than a POKE to 
memory. In addition, I wanted a keytxiunce 
delay (my '80 is an old one), and also some 
method of putting in a longer delay when I 
wanted it. 

Fortunately, when it came time to write 
the program, I had the assistance of one of 
the best pieces of software I know of. It's an 
assembler-editor-debugger package for all 
Z-80 based machines, and Its name Is Zen. I 
don't know if Zen is available in the States; 
if It's not, I can pass on the name of the 
source in England. 

Zen Is simple to use— which means that 
you drop the manual quickly and concen- 
trate on using it rather than trying to find 
out how to. As an assembler, it's versatile 
because entry is in free-format— you don't 
have to enter spaces of a set size, or even be 
careful about the numtier of letters in a 
name. Editing is very simple, just enter a 
new line, zap an old line or insert a new line. 
Assembler programs can even be combined 
from separate tapes, twcause the Zen line 
numbers are generated internally Instead of 
being recorded on to the tape, as Radio 
Shack does. It also has a monitor section 
which lets you read in machine-code tapes, 
examine contents of memory, change 
codes, copy machine-code tapes, copy 
code from one set of memory locations to 
another, and even load code into memory 
as It is assembled by the assembler. This 
eliminates the tedious business of creating 
a tape and then reading it back in again. The 

80 Microcomputing, October 1981 • 235 



"The only problem Is that 
there Is no disassembler. 

only problem Is that there Is no matching 
disassembler, but I am working on a pro- 
gram for reading in tapes produced by the 
Instant Software disassembler and produc- 
ing from them a tape written to Zen stan- 
dards. 



The Zen listing is shown in Program 
Listing 1. There are no notes on the 
assembler listing itself, because I never 
have enough room on an assembler pro- 
gram for all the notes I want to make, and 
tapes take long enough to read without hav- 



ing all the extra characters loaded onto 
them. As I develop a program I keep all 
the original specifications. The amend- 
ment notes and listings result in my own 
home-made manual. This tells me more 
than a few notes on the program Itself, and 





;lprint 


ROUTINE WITH LHS MARGIN -"3 7F94 CD777F 




CALL DL(' 




2 


!66 LINES/'PAGE ANIi 72 CH/LINE 


74 7F5V 10E9 




DJNZ ROUND 




3 




ORG 7F11H 


75 7F99 2102FC 




LD HLr0FC02H 




4 


CHR3LN: 


EQU 4029H 


76 7F9C CD2102 




CALL 0221H 






LNPGE! 


EQU 4023H 


77 7F9F CD797F 




CALL DLY 




£ 7F11 E5 




PUSH HL 


7Z 7Ffi2 Fl 


0UT3: 


POf AF 




,- 7F12 21347F 




LD HL.LFRT 


79 7FA3 Fl 




POP AF 




S 7F1^ 222^.40 




LLi t4026H>.HL 


80 7fA4 rE0D 




CP 0DH 




9 7F13 21FZ7F 




LIi HLfKBFIX 


81 7FA6 2B22 




JR NZfTE2T2 




;w /ni: 221EL4e 




L[i <40iEHJTHL 


82 7FAC 11DII7F 


TE3T1: 


Lli HL, ENDPAG 




11 7FiE 2ADE7F 




LIi HL-'.CHRLN) 


33 7FAB AF 




XOR A 




12 7f21 222940 




LIi (4029H)fHL 


84 7FAG B6 




OR < HL) 




13 7F24 21DFrF 




LD HL.TOPPAG 


05 7FAD 2B12 




JR Z-fiLNK 




14 7r27 2271141 




LD (417DH)rHL 


G6 7FAF 3^ 




DEC ( HL ; 




15 7F2A 21E77F 




LD HL- DELA/ 


■37 7FD0 3Eait 




LD A,0DH 




lo rT2Li 22B341 




LD ( 41G3H )rHL 


ac 7FD2 18DE. 




JFv AGAIN 




17 7F36 Ei 




POF HL 


39 7FB4 CI 


0UT4: 


POP BC 




13 7F31 CZ72B0 




Jf- B072H 


?0 7fl:Z riDE7F 




LD HL> CHRLN 




19 ,-F34 F3 


LFRT! 


DI 


91 7FB3 35 




DEC ( HL ) 




20 7r2L 79 




LD A-C 


?2 7(-w: 2aiD 




JR NZrOUTS 




7.1 7rZ6 F5 




PUSH AF 


93 7FBD El 




POF HL 




22 7F3- DS 




FU?JH DE 


94 7FhC Fl 




POF- AF 




23 7F20 FUe'S 




PUSH lY 


95 7FED 3E0D 




LD Af0DH 




2^ 7F3A C:L33a0 




C;ALL Q033H 


96 7rBF 1889 




JR F;ELOAD 




,"5 7F3D FDEl 




POF lY 


97 7FC1 21De7.' 


BLNK: 


LD HLrLHSrCE 




2d, 71" 3F III 




F'Of DE 


9S 7FC4 3603 




LD (HL>.03H 




27 7F'ia Ft 




POP AF 


99 7FC6 3E20 




LD Ar20H 




2t; 7F<.I Fceu 


LNIiLN! 


CF 0DH 


Itlfc 7FGC 189r 




JR AGAIN 




29 7F43 2Set 




JR 2. RELOAD 


101 7i~C.-i jADD.'F 


TZ3':2: 


LD Art LHSPCE i 




30 7V A^j fe:20 




CP 20H 


102 7r CD B7 




OR A 




31 7F4r OS 




RET C 


103 7rCE 2QE-t 




JR ZfOUT4 




32 7F ^.a laic 




JR 3TART 


104 7rD0 3D 




DEC A 




7.3 7F4A £Z 


RELOAD 


PUSH HL 


105 7rDl 32aB;'F 




LD (LHSPCE ...A 




3-t 7F4E: F:, 




fU::H AF 


100 7FD'i 3E2a 




LD A . 20H 




35 7F4C 21DE7F 




LD HL.CHRLN 


107 7FD& 1891 




JR AGAIN 




3,1, 7F4F' 3A2'y40 




LD Af.tHFCLN) 


10G 7rDB El 


0UT5: 


POF HL 








LD <HL,-A 


109 7FD9 Fl 




PDF AF 




Zb 7r53 2H1C7F 




LL HLtLNCNT 


110 7riiA C9 




RET 




39 7f-~S6 35 




DEC (HL) 


111 7FDI B3 


LHSPCE 


DB 0ZH 




40 7fj7 20at; 




JU NZrRUN 


112 7FDC, 42 


LNCNT! 


DB 42 H 




41 7F59 2A284a 




LD HL. I LNPGE; 


113 7FDD 00 


ENDPAG 


OB 00H 




42 7F",C; 22Lii:7F 




Lli ( LNCNT >.HL 


114 7FDE 48 


CHRLN: 


DD 4aH 




'.3 7r5F 21I1D7F 




LD HL.ENDPAG 


115 7FDF E5 


TOPPAG. 


PUSH HL 




■'.', 7[<L2 3606 




LD i:HL)r06H 


iio 7rEa 2iDC7r 




LD HLr LNCNT 




45 7F.i4 Fl 


FIUN: 


POP AF 


117 7FE3 3642 




LD IHL ).42H 




46 7Fi5 e: 




POP HL 


lie :'FE^ El 




FOP HL 




47 7Fo6 F5 


START: 


PUSH AF 


119 7FE6 C? 




RET 




^D 7F=,7 E5 




PUSH HL 


120 7FE7 F5 


DELAY ! 


PUSH AF 




t9 7Fi.e CZ 




PUSH DG 


121 7FE8 3AF67F 




LD A.{ l\BFIX«-4 J 




Z& 7f£9 0609 


AGAIN: 


LD b.09H 


122 7rED EE10 




XOR 10H 




51 7F6B 37 




3CF 


123 7FED 32F67r 




LD (KBFIX'-4>.A 




Z2 7F6C FS 




F'USH AF 


]24 7rF0 Fl 




FOP AF 




53 7F6EI F5 




PUSH AF 


125 7FF1 C9 




RET 




'J4 :'F(it:. 2101FC 




LD HL.eFCeiH 


126 




ORG 7FF2H 




ZZ 7F71 CD2102 




CALL 0221H 


127 7FF2 F5 


NBFIX! 


PUSH AF 




Z6 7F74 r:D797F 




CALL DLY 


128 7FF3 C5 




PUSH BC 




57 7F77 1S09 




JR ROUND 


129 7FF4 012000 




LD BCrflOZaH 




Sn 7r7V 2111E00 


[jLY: 


LD HL.00DEH 


130 7FF7 CD6000 




CALL 0060H 




59 7F7C 2B 


DLYl: 


DEC HL 


131 7FFA CI 




POP BC 




o0 7F7IJ 7C 




LD A.H 


132 7FFD Fl 




POF AF 




t,l 7F7E BZ 




OR L 


133 7FFC C35:^04 




JP 045QH 




62 7F7r 20FE 




JP NZ.DLYl 


134 




END 




63 7F81 C9 




RET 










64 7F62 Fl 


ROUND: 


POP AF 










65 7F03 IF 




RRA 










66 7FB4 F5 




PUSH AF 


AGAIN 7F69 BLNK 


7FC1 


CHR3LN 4029 CHRLN 


7FDE 


67 7FSS 3005 




JR NC.OUTt 


DLY 7F79 DLYl 


7F7C 


DELAf 7FE7 ENDLN 


7F41 


6E; 7r37 2102FC 




LD HLr0i C02H 


ENDPAG 7rDD KBFIX 


7r4^"2 


LNF'GE 4028 tPRT 


7F34 


49 7F8A 1305 




JR 0UT2 


LHSFCE 7FDE LNCNT 


7FDC 


OUTl 7F3C 0UT2 


7F91 


70 7F8C: C600 


OUTl: 


ADD A f sen 


0UT3 7FA2 GUT 4 


7FB4 


0U15 7FU8 FvELOAD 


7F4A 


71 7F8E 2101FC 




LD HL,aFC01H 


RUN 7F64 ROUNl 


7FS2 


STAFvF 7F66 TE3T1 


7FAe 


72 7r91 CU2102 


0UT2: 


CALL 0221H 


TE3T2 7rCA IQPPAG 7FDF 






Program Listing 1. This is the 


assembler listing. If desired, the object code can be typed in using T-Bug 


or the program reassembled 1 


using EDTASM. For 


complete relocatability, the DLY subroutine and the storage addresses should be located in low RAM, such as 


405CH to 407FH (which is used only during the switchon sequence). 
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Pocket Computer $ 1 69 
PC. Printer $130 




ModeMIM6K $639 

2DR + RS232C S2100 



■ #%#%|^ Here are Just a few of our fine offers 
ft^#WI% call toll-free for full Information. 



COMPUTERS 




PERIPHERALS 




Microline 82A 


515 


Model II 64K 


$3300 


Expansion Interface OK 


S249 


Microline 83A 


799 


Model III 4K LEV 1 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL ItM6K 


839 


'Expansion Interface 16K 


291.50 


DISK DRIVES 




MODEL III 32K 


945.50 


Expansion Interface 32K 


462 


RS, Model imST-Drive 


712 


•MODEL III 32K 


881.50 


'Expansion Interface 32K 


334 


TEAC40TrackMI 


329 


MODEL III 48K 


1052 


16K RAM NEC. 200 N.S.Chi 


ps 25 


R.S. 1 Drive Exp MM 


999 


■MODEL III 48K 


924 


MODEMS 




RS. 2 Drive Exp Mil 


1518 


Model III 48K 




Lynx Direct Connect MI/MIt 


269 


R.S. 3 Drive Exp Mil 


2040 


2Disc8iRS232c 


2100 


Auto Ans./Dlai 




Seimans 8" Ml! 


799 


Color Computer 4K 


310 


Telephone Interface li 


169 


Atari 810 Disk 


499 


Color Computer 16K 


416.50 


R.S. Modem 1 D.C. 


130 


SOFTWARE 




'Color Computer 16K 


352.50 


Atari 830 Modem 


159 


R.S. Software 10% oft list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% off list 




w/extended basic 


459 


PRINTERS 




Newdos+ (403 track Ml 


88 


Pocket Computer 


189 


Daisy Wheei It 


1695 


Newdos 80 Mill 


149 


VIDEOTEX 


310 


Line Printer Vi 


999 


ST8QIII 


149 


APPLE 48K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80f=T 


599 


Verbatum 5 ' Double Density 


32 






Epson MX 100 


799 


Verbatum 8 ' Dota Life 


49.95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


•Computer Plus New Equipment 
180 Day Extended Warrantv 


Line Printer V 


1610 


C. C Joysticks 


22 


m llf MM««I i***^! 




Microline 80 


345 







Factory warrantees on Apple and Atari equipment. Other 
equipment carries manufacturer's warranty or Computer 
Plus 180 day extended warranty Combined worrontees 
corry Computer Plus 180 day warranty or original manu- 
facturer's warranty 



call TOLL FREE 1-800-343-8124 



com 



DEALER INQUIRIES ARE INVITED 

Prices iubfect to charge without notice. 

Nol TMpomlble Iot typogTQpMcal won. 

TVS-M ti a regWcred tTod*mark of Tandy Corp 

^See Lisf ol Ad^e'lisers on page 386 




Dept. D 

245A Great Road 

Littleton, MA 01460 

617-486-3193 



v'130 



free catalog 
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♦ HARNESS* 
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HANDICAPPING AIDS 

OK' a. ("OMPLllEH ON HXIH ilOE 

■■iSO iiET ifjro THE 4M\MNG 

"IB'T WITH i-j«,\"i,. 1 SOF Tl/lSHt 

I'lMJIL APPING Aids 

D««ned »«cluiiv»iv <"' ^» "ith "TRS 80 (MoOel I or 
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iliik I')'." and 8") foF<ndt> dnd iTclud* a uuful Hiy to itad 
Uisri Manuil INOTL I" actdit.nn ro ■TRS-80'i MniUI I 
tnO Pnc-eT rnrnpuici liotn lyi'emi are available m 
MBASk: Ic' ■•CPVI RfUUires minimum I6K Level (I 

Shop ii'tjund yuij can I Iwa: the t^elWui valui Ihe mull 
cost e'ifctivs sv"emi Dn Ihe marker Juil S30 96 toi 
caiielle and $34 * tor dilk plui SI 00 tor liandlinq and 
^liiPDiny roits iCaht add G'n ulei tail Save with ihF 
purchdie ol I.W) u' mo^e like lyllFml Drdlpr ducuurui 
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MICROCOMPUTER 
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II a Canadian Roufxi Robin 
THE RESULT 

SHNKS nddled MYCHESS, SARGON II atid 
GAMBIET 80 to finsh m a be (« la place 
SHNKS fcaiuiei an audio aleil. a probii?m mode, 
superb yaphiQ. and mw lewk of play Play ch«e 
vAh the best foi kss' 

32K Model I TRS-80' 

cassette or disk only Z.7.79 

WnUAMA-HNK ..57 
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T»rx)i C'ompflliv 
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We need your talents. 
Wayne Green Inc. is looking 
for editors, proofreaders, 
photographers and production 
people to be on our staff- 
If you are a non- smoker 
who would like to work on 
60 Microcomputing, Kilobaud 
Microcomputing, Desktop 
Computing or 73 Magazine. 
send us your resume. We want 
to hear from you. Contact: 
WAYNE GREEN INC. 
PETERBOROUGH, NH 03458 
ATTN:PERSONNELA25 
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"This tells me more than a few notes on the program 
itself, and doesn't use memory." 



doesn't use memory. The program is ar- 
ranged to give a baud rate of 300 for the 
reasons described earlier, but for anyone 
who uses 110 baud machines, one single 
alteration will give the lower rate. 

The program has its origin at 7F11H, 
32529D, and two of the printer control block 
addresses are used for storage, and anoth- 
er two bytes for the address of the new 
routine- Location 4028H(16524D) is used to 
store the number of lines per page. This is 
the number which is placed in this address 
when the TRS-80 is switched on, so no addi- 
tion has to be made here. Location 4029H is 
used in this program to store the number of 
characters per line, and POKEing a new val- 
ue into this address will alter the number of 
characters per line which your printer will 
deliver. 

Four addresses in the program space it- 
self are used also for storage, and these can 
be POKEd to ctiange the quantities such 
as the left margin space and the gap be- 
tween pages. As set up, the program prints 
72 characters per line, 66 lines per page, 
four spaces on the left margin, and six 
blank lines between pages. A complete de- 
scription of the program follows so anyone 
who wants to build on it for his own pur- 
poses can do so. 

The first section of the program from 
7F11H to 7F2FH loads up the RAM loca- 
tions. Address 4026, with 4827, contains the 
address of the printer routine. When the 
TRS-80 is switched on, the operating sys- 
tem loads the address (J58DH into these lo- 
cations, which is the start of the ROM rou- 
tine for a parallel printer. Our print routine 
starts at 7F34H, so that this is the address 
which must be loaded to these locations. 
This way, we can use the commands LLIST 
and LPRINT rather than having to use new 
command words. There is a similar read- 
dressing at 401 EH,401FH. These addresses 
hold the address of the screen-print routine. 
normally U458H, now directed to 7FF2H. 
This lets me put a delay into the screen- 
print routine, and serves two very useful 
purposes. One is that it debounces my key- 
board, and the other is that it allows me to 
incorporate a slow-listing facility. The num- 
ber of characters per line is loaded into 
4029H, no load is done into 4B28H because 
the regular 66 lines per page suits me. If you 
want a different number, add a couple of 
steps to accomplish this. 

When a disk system is not in use several 
commands such as Field. Get, Put and 
about 25 others will return with L3 Error if 
you use them in Basic. According to the 
manual, this is because they are disk com- 
mands which work only when a disk operat- 
ing system is loaded. In fact, each of these 
commands causes the operating system to 
look in RAM for the address of a routine, 



and if you put in your own routine, and 
POKE its address to the correct place, you 
can make use of any of these commands. 

In this program. I have used Field to reset 
the lines-per-page count, so the printer will 
print a full 66 lines before it creates the six 
blank lines at the end of a page. The ad- 
dress of a page-reset routine is loaded into 
417DH. the reference address for the Field 
command. Similarly. I have used the com- 
mand Put to change the delay time by load- 
ing the address of a delay-change routine 
into 4183H. the address for the Put com- 
mand. By typing Put and entering from 
Basic the TRS-80 screen-print rate is slowed 
so the listing can be watched on the screen. 
This, combined with the TRON command, is 
a considerable aid to debugging a Basic 
program, because with these two I can 
watch a program execute in slow motion. 

Typing Put for a second time and enter- 
ing takes the additional delay out again, 
and screen operations proceed normally. 
This delay can also be placed in the key- 
board routine, but there are advantages to 
using the screen routine. One is that the 
delay acts only when the screen is ac- 
cessed, as it always is when a character is 
being entered from the keyboard. A delay in 
the keyboard routine, unless it is a rather 
complicated delay program like the Radio 
Shack KBFIX, slows down all program oper- 
ations because the keyboard is scanned 
continually as a program progresses. This, 
of course, is why the Break key can be used. 
If you disable the keyboard you lose all con- 
trol over a program. 

The loading section ends with a jump 
back to Basic at 0072H. and the printer 
routine itself starts at 7F34H, The Dl com- 
mand is used so the routine cannot be inter- 
rupted in mid-character by the Break or any 
other key. The printer routines of the TRS-80 
place the character to be printed in the C 
register of the Z80. so the next step is to 
transfer this to the accumulator so we can 
operate on it. The section of the program 
from 7F36H to 7F40H saves the registers 
and calls the screen-print routine, and what- 
ever is sent to the serial printer is also 
echoed onto the screen. This is a useful fea- 
ture because most dot-matrix printers con- 
ceal what they are printing until several line- 
feeds have taken place. If you want to be 
able to cut this feature in and out, use one 
of the disk control words to POKE 00 into lo- 
cations 7F3AH and 7F3BH, and another to 
POKE back the bytes which are shown in 
these locations. 

At ENDLN the byte in the accumulator is 
checked to see if it is a carriage return 
(ODH). in which case the program branches 
to reload to reset the characters-per-line 
count and to decrement the number-of-lines 
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c:ount in location LNCNT. If at ENDLN, the 
byte in the accumulator is not a carriage re- 
turn and is less than the space byte (20H). 
the program returns to ROM for the next 
character, because the control characters 
other than carriage return are not used in 
the program (the dot-matrix printers can be 
set to line-feed on carriage return, so the ad- 
ditional complication ot a line-feed is not 
needed). For any other character, the pro- 
gram then jumps to Start, 

At Start, the registers are saved on the 
stack, and register B is loaded with a bit 
count of nine (one byte plus a space). A 
mark bit is sent out (my printer interprets a 
mark as a and a space as 1) by loading 
FC01 to the HL pair, and calling the TRS-80 
subroutine at 0221 H. Working on the results 
of the cassette port output voltage men- 
tioned earlier, the mark byte is (SI and the 
space 18. To establish the correct baud 
rate, a delay must follow, and this is 
achieved in the subroutine DLY, The byte 
USJDEH, which is loaded into HL at the start 
of this subroutine, determines the baud 
rate. So if you want 110 baud, a larger 
number must be loaded here — try 0267H. 

At the label Round, the bits which make 
up the character are sent out one by one. 
The RRA command shifts the contents of 
the accumulator one place to the right, so 
the lowest-order bit lands in the carry posi- 
tion. If the bit in the carry position is d, C is 
reset and the program jumps to 0UT1 to 
send out a mark bit. If the bit in the carry 
position is a 1 then HL is loaded with 
FC^2H, the space bit, and this causes the 
0UT2 routine to send out a space. Each of 
these routines are followed by the DLY sub- 
routine to keep the baud rate correct. Yet, at 
300 baud the timing does not have to be ex- 
act. The DJNZ command at 7F97H keeps 
the rotate and output routine going until the 
B-register has been decremented to zero in 
the usual action of the DJNZ command. A 
final delay follows, and the program jumps 
to 0UT3, which is the end of the part of the 
routine that outputs the character to the 
printer. 

At 0UT3 the AF register is POPped to 
recover the original unrelated byte and this 
is compared with the carriage return byte, 
(JDH, If the byte which has just been sent to 
the printer was OD, then the program skips 
to Test2 otherwise at Testi, the byte from 
ENDPAG is loaded in which clears the ac- 
cumulator. Now if the lines-per-page count 
reached zero earlier in the program (at 
Reload}, there will be a six in ENDPAG giv- 
ing the OR (HL) step a positive result. The 
program will continue by decrementing 
ENDPAG by loading a carriage return char- 
acter into the accumulator and jumping 
back to output this to the printer. This will 
continue each time this place is reached un- 

.- ;.ee L'S ■ ol AtivertiserB on page 336 



VISA/MC Order Line Only (except Mich.) 800-253-4358 ext. 100 

FINDI5K II The ulllmale In automatic disk Indexing with exclusive features Model-I S20.00 

AUTOMATICALLY creaiL' INDF_X i>f programs or dai.i trum all \'>u! di'.k-. p-nii iIisk LABhl.b- pnn; 
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$15.00 
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Output in ASCII or hex to printer or screen ONLY S73.05 

Data File Utility (Model I Level II. 16 K min.) Creates/Updates/Sorts'ANY disk tile 

independent ot your program ... Disk only $01.05 

Mod*) II Macro Assemblar Incorporate fast, time-saving n^acros into assembly 

language programs - ONLY S74.fi5 



LOOK! 11 CLS 


(2-Al 


LD B.IBH 


12-B) 


AST e 


PRINT MSG \i 13 




LD A, 8 




LD A, 36 


JP2D0S 




RST B 




RST 8 


MSG DEFW ir WORKS"' 




LO HL, MSG 


MSG 


OEFM ■ITWORKS'i" 


END 




LO B, M 
LD C^H 




END 



Bolti progiams produce trie enact same code Program in was created with the Macro Assembler 
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CROSS REFERENCE DICTIONARY 

The largest known cross reference manual (or use with the 
TRS-BO" Voice Synibesizer No need io spend more long hours 
learniny anolhef corfpuler language Wan; vour compulei to say a 
word' Look up the English spelling Riyhi next lo il you II find the ' 
ptionetn; spelling ihat your syniliesizc needs to say il correctly 
Included is e large list o' cofinionl\ used phonetically spelled 
phrases and sentences ready lo type inio your program Invaluable 
as a time saving devi-e 

SPELLING BEE (A 3 PART PROGRAMl S14 9b 

The computer administers a lesson consisting at ten words When 
the siudeni has learned ihem he iS given an oralquiz inlrue spelling 
bee fashion When the lesson has been completed student may 
advance to ne«i lesson The program is structured so that an iin 
limited number of lessons can be giverl with ptogresively greater 
degrees ot difficulty Excellent foi any grade or age level Includes ten 
sample lessons ol ten words each The second part ot the program 
allows one to create his own spelling lessons on cassette for much 
needed tlembrlny A third part enables one to practice creating new 
words using the phonetic spellings needed by the synthesizer Error 
trapped and bug free 
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"My printer chatters away happily, 
ar)d never has missed a character." 



til the ENDPAG location is zero. 

if the lines/pages count had not reached 
zero, the OR (HL) step gives a zero answer, 
and the program skips to location BLNK 
where LHSPCE is loaded in with the number 
three. The accumulator is loaded with the 
ASCII character 20H, and the printing 
routine is repeated, sending a space to the 
printer. 

When the character in the accumulator 
was not a carriage return (and this Includes 
the space which is loaded at BLNK). Test2 
is used- This checks the byte in LHSPCE to 
see if more spaces need to be output to the 
printer, otherwise a retest is sounded by a 
jump to 0UT4. At 0UT4, the number of char- 
acters per line is decremented (note that the 
blank spaces at the left side are not 
counted) and if the count has reached zero, 
the accumulator is loaded with a carriage 
return and recycled to the printer. If the byte 
is not at the end of a line, the next stage in 
the countdown is OUTS, where the registers 
are restored to the original values, and the 
routine returns for the next character. 

The rather odd jump sequences in this 
program so far allow it to be relocatable. 



The bytes from 7FDBH to 7FDEH are 
storage bytes for the left-space, lines per 
page, end-of-page spaces, and characters 
per line respectively. These are fixed ad- 
dresses which also make the program not 
completely relocatable, but there is no 
reason (apart from convenience) for having 
them in the high memory portion of the pro- 
gram. For example, they can be loaded into 
the top end of the cassette buffer memory 
or into disused disk command RAM; either 
way would make this part relocatable. At 
TOPPAG, a short routine restores the num- 
ber of lines per page which is called by the 
Field command. 

Similarly, at 7FE7H, another short routine 
calls a delay change routine, by taking the 
byte from 7FF6H, and X-ORing it with 18H. If 
the delay byte was the M set at the start of 
the program it is changed to 10 by this ac- 
tion. But if the byte was 10H, it is changed 
back to 00 by XOR. This routine is called by 
the Put command, and like the TOPPAG 
routine, it uses absolute addresses. This 
routine, like the TOPPAG, can be invoked 
from a running Basic program so screen 
scrolling can be controlled from within the 



program itself. Finally at 7FF2H. the video 
delay consists of saving registers, loading 
the BC pair with the delay bytes, calling the 
TRS-80 delay routine at 0060H, restoring 
registers, and then jumping to the screen 
routine in ROM at 0458H. 

Now how did it live up to specification? it 
was not as easy to relocate as I had wanted. 
but that can be sorted out if needed. I had 
not realized at the start how easy it would 
be to reassemble at different addresses, 
thanks to the Zen assembler. In any case, 
full relocatability is not difficult to achieve, 
either by using low RAM memory for all 
fixed locations, or by loading registers 
through immediate loading. The real snag is 
the delay subroutine. This can be located in 
low RAM. or simply divided so there is a 
delay routine in each position where it is 
needed. However, I have no need for full 
relocatability. and the program performs 
very well indeed. My listings now have left 
margins, so they can be punched for filing, 
and they cut neatly into page. My printer 
chatters away happily, and has never 
missed a character. What more could I 
ask?H 
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s,, wlH Mp you survive. Tk4s Is Part 1 of a anltl- 

'^^xxmxn adttMtHre. Like no other advtHtirc 

.y^ you havo ever played. Tbe first five jieople toselve 

Forbidden Planet mill net tke next atfventnre FREE. 

•Jfiji! Screen 

ikTSacMo^Languegc 

otighXassefle Port 
Case 
ects 
Wiiliam Demas 

i^dams Adfenhire #12" 



t>» ^-^- 



Disk Model I & ill 

ealers inquiries invited 

1457 Fornm 80 702-362-5609 

Fantastic Software . 

5110 Polaris #5 ^^ 
Las Vegas, Nevada 89102 ^ 
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Ebq 

&ASSOC 



^117 



EMMANUEL B. GARCIA. JR. 
& ASSOCIATES 

203 N WABASH 

CHICAGO, HUNOe 60601 

PHONi (3)2) 7t2-9790 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

• Dealer of quality software and hardware — 
we sell only the best, proven Items. 

. SponsorofCHICATRUG— monthly 
learning sessions for TRS-80 users. 

. Publisher of "CHICATRUG News." monthly 
publication for TRS-80 users. 
■ ■ Send for sample issue ■ ■ 

• Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

• Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

• Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G. & AasociilM Is NOT affiliated with Tandy Corporation or Radio Shack 
'TRS-ao « • tradamwii ol Tandy CerporMion 




TR»«0- MOD HI 4aK 

WITH vcxr; CHOICE Of mpi dsk 

DPrvtS INSTAUcD UP TO d MEG 
ON LINt STORAGE 



48K UCO in iMth (2) iMIERNA, JOv DfJfVES 

AS AeCM ExaPT WTH (2) INTERNA. aO [WVtS 

AS *eCM £xaPT WllM (2) iNTEPNAi OD/dCM COTw^S 

AS AeCM ExaPT WIH (2) iN'ERNAi. 80/8C»k DPMS 

[?S232 ^lEWAa ffJSTAtLED ADD 

cKterxji acta oo Oive Cable 

B&l S-4Ctrk $ 3O0 CX) 852 s 40/<3Din. 

B91s-90lrv $-12900 3(^2 s 80/8Otrk 



MCOinlRSOOS t2DiSK£nE 
\KX) ill If?S0OS MfiiUJfii 
MCO HI DCSFLUS " 



6 MONTH LEVEL IV PRODUCTS INC. 

LIMITED 32461 SCHCOlCRAFT 

WARRANTY LiVONlA. MlCHfGAN 48150 

ON PARTS toll free 80C-521-3306 

AhDUftBOf? instate 313-525^200 

visa-mastef cord-C O D 



siawoo 

S2M900 
SSl-KOO 
32449 OO 
S S900 
S 250O 

sadScxD 

S5?90O 



Sid 06 
W95 




STOCKCHART ■ 

MORE THAN JUST A COMPUTER PROGRAM 

IT'S AN INVESTMENT TOOL 



•written tor TRS-60* model-l 
•requires 16K RAM for cassette. 32K 
RAM & 1-drive lor disk version 
■printer optiort 

•disk version $S0.00 

•cassette version S30.00 

to order, send check, money order, or COD 
to: 



Mkro-lnvattmartt Software 
9621 Bowia Way 
Stockton, CA. 95209 ^Ai 



APPLE ir* & ATARI-aoO* version available 
soon, write lor more intormation 





• generate price-ctiart from HIGH. LOW. & 
CLOSE PRICES 

• price>trend analysis assist investors in 
BUY/SELL decision 

• auto scaling tor price>chart generation 

• accept tractions, allow users lo enter 
prices as appear in newspapers 

• SPLIT routine lo ad|ust prices (or stock 
split 

• EDIT capability tor users to ctiange 
price data 

• STATUS mode to display price-trend 
signals 

■ PURGE utility to delete unwanted data 
from disk tdisk version only) 



GET THE PRICE - TREND PICTURE 



WITH 



STOCKCHART - 1 



DEALERS INQUIRIES INVITED 



.^5m Lial 0/ Attiiwtiaers on pagu 396 
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CONSTRUCTION 



Add a synthetic keyboard to your TRS-80. 



Auto-Key 



Mike Ghan 

2210 108th Ave. S.E. 

Bellevue, WA 98004 



Ever need to Input a complex 
mathematical expression 
during a Basic program run? 
How would you like to load ma- 
chine-language files during ex- 
ecution without disturbing the 
video display or variables? 

Auto-key adds a synthetic 
keyboard to your TRS-80. By 
synthetic. I mean a utility that 
uses a string of characters In 
place of the normal keyboard 
input routine. 

Auto-key is fast and easy to 
use; just define a string in 
Basic and execute a USR com- 
mand. You can enter any 
character that can be entered 
from the keyboard, plus Basic 
internal codes. For example, 
185 is the code for CLOAD. ff 
you enter CHR$(185) Into your 
string, Auto-key interprets It as 
CLOAD. 

Further, Auto-key saves 2.5K 
bytes of disk space over my 
previous method of auto power 
up. 



Compatibility Is no problem. 
You can use Auto-key with 
Model I 4K Level II through 48K 
disk systems. I have not had the 
opportunity to use Auto-key 
with a Model III, but I foresee no 
problems. 

How Auto-k«y Wohcs 

Auto-key recognizes three 
control codes. Control code 1 



Auto-key's Assembly code is 
shown In Program Listing 1. 
Lines 170-220 process the USR 
parameter to point to the string 
location. This allows you to use 
a simple command: X = USRO 
(VARPTR(A$)), where A$ con- 
tains the target string to be pro- 
cessed. The VARPTR function 
returns the string pointer, not 
the string address. Line 230 Is 



"How would you like to load 
machine-language files during 

execution without disturbing 
the video display or variables?' 



disables the video driver. This 
allows you to work without 
disturbing the video display. 
Auto-key Is Initialized with the 
video driver disabled. 

Control code 2 enables the 
normal video driver. 

Control code 3 terminates 
Auto-key and restores all driv- 
ers to their original condition. 



the Assembly Language entry 
point and loads register l-tL with 
your target string address and 
Calls MACHMC. Line 240 saves 
the string address to be ac- 
cessed later. 

Lines 250-280 save the video 
and keyboard driver addresses 
so they can be restored. This 
ensures that other drivers, such 



as a key debounce routine, that 
may be active before Auto-key 
is run will be restored as well. 
These original drivers are also 
linked to Auto-key. 

Lines 290-330 load 
Auto-key's address Into the 
video and keyboard Device Con- 
trol Blocks (DOB), and return to 
the calling program. Auto-key 
is now initialized and ready for 
execution. 

Lines 390-410 check for the 
up arrow key and terminate 
Auto-key if it is pressed. 

Lines 420-440 check to see If 
the cursor is on. If It Is not on 
Auto-key exits via the normal 
keyboard driver, allowing IN- 
KEYS to remain functional. 

Lines 450-480 bump the 
string pointer and load register 
A with the next character to be 
passed on. 

Lines 490-540 test for con- 
trol code 1 , the code to turn off 
the video, if a 1 is found, the 
video off driver is loaded into 
the video DCS; register A is 
cleared; and a return sends you 
back to the caller. 

Lines 550-620 check for a 3, 
the code for the end of the 
target string. If a 3 Is found, all 
the original drivers are restored 
Into their DCBs and Auto-key is 
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unlinked. 

Lines 630-680 test for a 2, the 
code for video on. If a 2 is not 
found tfie character is assumed 
to be valid and is returned to 
the keyboard caller. If a 2 is 
found, the original video driver 
address is restored to its DCB. 

Lines 720-780 are the video 
ofl routine. They check for a 14 
(cursor on) or a 15 (cursor off). 
By replacing all other codes 
with a zero, this turns the video 
driver off. Lines 780 and 790 
store the original driver ad- 
dresses and serve as links for 
Auto-key. 

One idea I would like to pass 
on is my use of jump (JP) vec- 
tors, if you look at RAM starting 
at 4000H, you will see a series 
of JP instructions. This allows 
various routine codes to t>e 
altered or updated. Since a 
change also changes the entry 
point for a given routine, any 
other routine which calls it 
would have to alter its call in- 
struction. You need only 
change the jump vector to 
match the new entry point and 
everything goes just fine. 

I use this concept a little dif- 
ferently. My jump vectors start 
In high memory and work down. 
Thus, I can move a routine or 
change it and all I need to do is 
change the jump vector to 
maintain compatibility with my 
many programs that access 
that particular routine. 

Alterations and Enhancements 

As written, Auto-key is not 
relocatable, but you could 
change that with a much longer 
routine. Enter the source code 
into your assembler and 
change the origin statement in 
line 1 10 to match your memory 
size or requirements. The 119 
bytes of code for Auto-key can 
be contained in Basic data 
statements and POKEd into 
memory. Program Listing 2 
uses this technique. 

A program called Progdata 
(see 80 Microcomputing, May 
1980, page 126) will make the 
task of defining these data 
statements much easier. Also 
you can add the code for Auto- 
key to an existing machine- 
code program allowing easier 
loading and using less storage 
space. 



Additional functions can be 
added to Auto-key by testing 
for another control code. For 
example, a CP 04 could be used 
to access a machine language 
routine. The code 04 would be 
followed by two bytes contain- 
ing the entry point to the par- 
ticular routine. By loading 
register HL with these two 
bytes and executing a JP (HL) 
Instruction, you could have a 
vectored USR command. This 
would be very useful in Level II 
Basic which has only one USR 



command. Don't forget to clear 
register A upon return. I'll leave 
the loose ends for you to tie up. 
A little food for thought. 

Typical Applications 

Program Listing 2 contains a 
16K Level II Basic program that 
Inputs mathematical formulas 
directly during program execu- 
tion. After loading the machine 
code In lines 1000-1080. the 
program prompts you with 
"2 = ?" in the line 120. Respond 
with a mathematical expression 



suchas"2'3-K4*SQR(6)/6". 
Line 130 adds the following: 

• CHR$(2) turns on the video. 

• "10 Z = ", the program line 
number and "Z = ". 

• The formula you input, Q$. 

• ":?Z", to print the value of Z 

• CHR$(13), the code for a 
carriage return. This enters 
the new line. 

• The command RUN and 
CHR$(3), which runs the pro- 
gram with the new line 10 
added. CHR$(3) is the end of 







00100 


; 


AUTO-KEY by MIKE GHAN 




P600 




00110 




ORG 


0pe00H 




F60fl 




00120 
00130 


Z START 


EQU 


S 








00140 


;THE FOLLOWING 


BLOCK INITIALIZES DEVICE CONTROL BLOCKS FOR BOTH 1 






00130 


;THE VIDEO ARD 


KEYBOARD DRIVERS 


. RETURNS TO BASIC OR A CALLING 






00160 


.•MACHINE LANGUAGE ROUTINE 




F600 


CD7F0A 


00170 


USRKAC 


CALL 


0A7FH 


I GET USR PAPAMETER 


F603 


23 


00180 




INC 


HL 


I POINTS TO STRING POINTER 


P604 


5E 


00190 




LD 


E,(HL} 


(GET LSB OP STRING ADDRESS 


F605 


23 


00200 




INC 


HL 




F606 


56 


00210 




LD 


Dr(HL} 


(GET MSB 


F607 


EB 


00220 




EX 


DE,HL 


(SWAP BACK INTO HL 


P608 


2B 


00230 


MACHHC 


DEC 


HL 


(MACHINE LANGUAGE ENTERY POINT 


F6e9 


2225F6 


00240 




LD 


(MACPNT) ,HL 


(SAVE STRING POINTER 


F60C 


2A1E40 


00250 




LD 


HL, (401EH) 


(GET VIDEO DRIVER ADDRESS 


F60F 


2272F6 


00260 




LD 


(VIDOUT+l) ,HL 


(SAVE IT TO RESTORE 


F612 


2A1640 


00270 




LD 


KL,(4016H} 


(GET KEYBOARD DRIVER ADDRESS 


F615 


227 5F6 


00280 




LD 


(KEYOUT+l) ,BL 


(SAVE IT ALSO 


F618 


2166F6 


00290 




LD 


HL, NOVID 


(NEW VIDEO DRIVER 


F61B 


221E40 


00300 




LD 


{401EH] ,HL 


(PUT INTO DEVICE CONTROL BLOCK 


F61E 


2127F6 


00310 




LD 


HL, MACRO 


(NEW KEYBOARD DRIVER 


F621 


221640 


00320 




LD 


(4016H) ,HL 


(PUT INTO DCB 


F624 


C9 


00330 
00340 




RET 




) RETURN TO CALLER 


F625 


0000 


00350 
00360 


MAC P NT 


DEFW 


00H 


(POINTS TO CHARACTER TO PASS 






00370 


;THIS IS THE ACTUAL AUTO-KEY DRIVER, IT CHECKS FOR VALID CONTROL 






00360 


fCHARCTERS [ 01, 02, OR 03 ) AND GETS CHARACTERS IN THE STRING. 


F627 


3A4038 


00390 


nACRO 


LD 


A,(3840H) 


(TEST FOR "UP ARROW" 


F62A 


FE0e 


00400 




CP 


8H 




F62C 


281E 


00410 




JR 


Z,MACOUT 


(CANCEL AUTO-KEY 


F62E 


3A2240 


00420 




LD 


A, (4022H) 


(GET CURSOR CHARACTER 


F631 


B7 


00430 




OR 


A 


(IF CURSOR IT NOT ON, 


F632 


2840 


00440 




JR 


Z, KEYOUT 


( EXIT VIA NORMAL KEY DRIVER 


F634 


2A25F6 


00450 




LD 


HL, (MACPNT) 


(GET CHARACTER POINTER 


F637 


23 


00460 




INC 


HL 


(BUMP TO NEXT ONE 


F63a 


2225F6 


00470 




LD 


(MACPNT) ,HL 


(SAVE IT FOR NEXT TIME 


F63B 


7E 


00480 




LO 


A, (HL) 


jGET THE CHARACTER 


F63C 


FC01 


00490 




CP 


01H 


(TEST FOR "VIDEO OFF" 


Fe3E 


2008 


00500 




JR 


NZ,HAC0N1 


(GOTO MACONl IF NOT 01 


Fe40 


2ie6F6 


00510 




LD 


HL, NOVID 


(VIDEO OFF DRIVER 


F643 


221E40 


00520 




LD 


(4eieH) ,HL 


(PUT IN DCB 


F64G 


AF 


00530 




XOR 


A 


(RETURN ZERO (NOTHING) 


F647 


C9 


00540 




RET 






F648 


FE03 


00550 


MAC ONI 


CP 


03 


(END AUTO-KEY? 


F64A 


20aF 


00560 




JR 


NZ,HAC0N2 


(GOTO MAC0N2 IF NOT 


F64C 


2A7 5F6 


00570 


MAC OUT 


LD 


HL, (KEYOUT+l) 


(RESTORE ORIGINAL KEYBOARD 


F64F 


221640 


00580 




LD 


(4016H) ,HL 


J DRIVER TO DCB 


F652 


2A72F6 


00590 




LD 


HL, (VIDOUT+l) 


(RESTORE ORIGINAL VIDEO 


F655 


221E40 


00600 




LD 


(401EH) ,HL 


) DRIVER TO DCB 


F6S8 


3E0D 


00610 




LD 


A,0DH 


(RETURN A 'ENTER' 


F65A 


C9 


00620 




RET 




(ROUTINE NO LONGER LINKED 


F65B 


FE02 


00630 


MACON 2 


CP 


02H 


(VIDEO ON? 


F6SD 


00 


00640 




RET 


NZ 


(NO, RETURN VALID CHARACTER 


F65E 


2A72F6 


00650 




LD 


HL, (VIDOUT+l) 


(ORIGINAL VIDEO DRIVER 


F661 


221E40 


00660 




LD 


(401EH) ,HL 


(RESTORE DCB 


F664 


AF 


0B670 




XOR 


A 


(RETURN ZERO 


F665 


C9 


00660 
00690 




RET 










00700 


(THE FOLLOWING 


ROUTINE TURNS VIDEO OFF BY SCREENING ALL I 






00710 


J CHARACTERS EXCEPT CURSOR ON ( 


14 ) AND CURSOR OFF ( 15 ) . 


F6e6 


79 


00720 


NOVID 


LD 


A,C 


; REGISTER C HOLDS CHARACTER 


F667 


FE0E 


00730 




CP 


14D 


(CURSOR ON CODE? 


F669 


2806 


00740 




JR 


Z, VIDOUT 


(YES, PASS IT ON 


F66B 


FE0F 


00750 




CP 


15D 


(CURSOR OFF CODE? 


F66D 


2B02 


00760 




JR 


Z (VIDOUT 


(YES, PASS IT ON 


F66P 


0E0O 


00770 




LD 


C,9B 


(PASS A ZERO (NOTHING) 


F671 


C30000 


00780 


VIDOUT 


JP 


0000H 


(REPLACE 0000H WITH ORIGINAL 


F674 


C30000 


00790 


KEYOUT 


JP 


0000H 


( DRIVER ADDRESS AT START 


F677 




00800 


ENDMAC 


EQU 


S 




402D 




00810 




END 


402DH 


(CHANGE TO 1A19H FOR LEVEL II 










Program Listing 1. Auto-key 
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string code for Auto-key ttiat 
returns Enter for tfie last 
command. 

Line 140 executes a USR call 
to enable Auto-key. The com- 
mand Stop does two tfiings. 
First, you can't enter a program 
line during execution, and se- 
cond you need to have the cur- 
sor on to activate Auto-key. The 
cursor needs to be on because 
Basic is continuously scanning 
the keytx>ard looking for a Break 
key or setting INKEYS values. 
Without checking for the cur- 
sor, Auto-key would be return- 
ing the first part of your string 
before Basic found the stop 
statement. Try running the pro- 



gram, inputting various expres- 
sions, and then hit Break and 
list the program. The last ex- 
pression you enter will be in 
line 10. "BREAK IN 140" is 
never displayed because Auto- 
key is initialized with the video 
driver disabled. Disk Basic 
users m\\ have to reassemble 
Auto-key into higher memory 
and use ttie DEF USR1 = &Hxx- 
XX statement to define the user 
entry point. 

Program Listing 3 contains a 
Disk Basic program that lists 
the disk directory, returns to 
Disk Basic and resumes execu- 
tion. Since the program oper- 
ates in a similar manner to Pro- 



gram Listing 2. 1 will explain the 
target string (DIRS) only. 

•CHRS(133) IS the Basic in- 
ternal code for CMD, 
•The CHR${34)s put quotes 
around S. So far we have 
CMD'S". 

•CHR$(13) and CHR$(2) add 
Enter and turn on the video, 
respectively. 

•■'DIR (A. I, S,)" and CHR$(13) 
execute the directory read 
with file allocation, invisible 
files and system tiles. 
•CHR$<01) turns the videooff 
again. 

• ■BASICR- and CHRJ(13) 
re-enter Disk Basic with the 
program and all variables in- 



IB GOTOlBBfl: REH MEMORY SIZE - 3262B 

1B0 CLEAR3BB:DEPIKT A-Z 

IIB POKE 16526, 136:POKE 16527, 127 : REM AUTO-KEY EHTRY POINT 

128 INPUT'Z- "iQS 

13B QS-CHRS(2)t'lB Z-"*QS*":7Z"+CHRS(13)+'RUN"*CHRS(3) 

14B X-USR(VARPTR{Q5)) tSTOP 

IB8B FOR Z8- 32648TO 327e7iREAD Z9:POKEZB, t9:NEXT ZBiGOTOlSB 

IBIB DATA 2B5, 127, IB, 35, 94, 35, 86, 235, *3, 34, 173, 127, 42, 30, 64 

1020 DATA 34,250,127,42,22,64,34,253,127,33,238,127,34,30 

1030 DATA 64,33,175,127,34,22,64,201,0,0,58,64,56,254,8,40 

1040 DATA 3B, 58,34, 64, 183, 40, 64, 42, 173, 127, 35, 34, 173, 127, 126 

1050 DATA 254, 1, 32, 8,33, 238, 127, 34, 38, 64, 175, 2BI, 254, 3, 32 

1060 DATA 15, 42, 253, 127, 34, 23, 64, 42, 35B, 127, 34, 3B, 64, 62, 13 

107B DATA 2B1, 254, 2, 192, 42, 250,127, 34, 3B, 64, 175, 2B1, 121, 254 

IBBB DATA 14,40,6,254,15,40,2,14,0,195,0,0,195,0,0,0 

Program Listing 2. This Basic program will list mathematical formulas duririg a program's ex- 
ecution. 



50 REM CHRS{133)-'CtlD", CHBS{179) -"CONT" 

IBB CL5:CLEARSBfiDEFirrrA-Z 

IIB DIR5-CHRS(133)+CHRS(34)+'S"+CHRS{34)+CHRS(13)K:BR5(2)+"D1H ( 

A,I,S) ■♦CHRS(13)+CHBS(»1J+"BASICH •"+CHH5(13) ■K:HRS(179}+CHRS(3) 

121 PR1BT"ACCESSISG DIRECTORY" 

131 DEPUSRI-tHFFF3iX-USRl{VARPTR(DIR$) ) ;STOP:REM FFF3H IS JUMP V 

ECTOR FOR AUTOKEY 

140 PRINT'DIRECTORY READ'sEND 

Program Listing 3. This Disk Basic program lists the directory and resumes programming. 







00100 






CONTROL V6.2 2/23/81 


UNDEFINED SYMBOL 










0000 


CD0000 


00110 


COHPRC 


CALL 


SETUP 


;SET DCB,s. OPTIONAL 


0003 


211200 


00120 




LD 


HL,MACBUF 


jSTRING ADDRESS 


UNDEFINED SYMBOL 










B006 


CDfl000 


00130 




CALL 


HACHMC 


;AUTO-KEY ENTRY POINT 


0009 


2100EF 


00140 




LD 


HL,0EFe0H 


;SET TOP MEM 


0000 


224942 


00150 




LD 


(4049H) ,BL 


; TO EFBBH 


0e0F 


C32D40 


00160 




JP 


402DH 


J DOS 


0012 


02 


00170 


NACBUF 


DEFB 


02U 


; VIDEO OH 


0013 


56 


00180 




DEPH 


'VERIFY (ON} 


jVEBIFY WRITES 


001E 


0D 


00190 




DEFB 


0DH 


; "ENTER" 


B01F 


43 


B02O0 




DEFM 


■CLOCK (ON) ' 




0B29 


eD 


00210 




DEFB 


BDH 




BB2A 


42 


00220 




DEPH 


■BASICR' 


-LOAD DISK BASIC 


BB3B 


00 


0023B 




DEFB 


BDH 




B031 


0D 


■ B24B 




DEFB 


BDH 


;• OF FILES 


BB32 


36 


00250 




□ EFM 


■6I00B' 


;HEMORY SIZE. OPTIONAL 


BB37 


0D 


0B260 




DEFB 


BDH 




eB3e 


52 


00270 




DEFM 


■RUN'WATCH" 


;HOME HATCHER 


BB42 


03 


00280 




DEFB 


03H 


;END OF STRING 


B0BB 




0B290 




END 






B00B2 TOTAL 


ERRORS 














Program Listing 


4. Automatic Power-up 


ro Disk Basic. 



tact. 

•CHR$(179) Is the Basic in- 
ternal code for CONT. 

•CHR$<3) terminates Auto- 
key and returns an Enter. The 
Basic program now resumes 
execution at the 140. 
Program Listing 4 is an exam- 
ple of auto power up to Disk 
Basic. This routine is part of a 
larger program called Control, 
that contains my upper/lower- 
case driver, joystick driver, 
screen print driver, home inter- 
face controller and Auto-key. 

TRSDOS allows one power 
up command via the Auto com- 
mand. Auto loads Control on 
power up with the execution ad- 
dress as line 110 (COMPRC). 
From there Auto-key takes 
over. 

Line 110 calls a routine that 
initializes my DCBs to point to 
various drivers so that when 
Auto-key is finished these 
pointers will be restored. {Line 
110 is only necessary if you 
use driver routines of your 
own). 

Next, line 120 loads register 
HL with the string address 
called MACBUF. Line 130 calls 
Auto-key's machine-code entry 
point (MACHMAC In Program 
Listing 1). 

Lines 140-150 perform a very 
neat trick. Memory location 
4049H contains the TRSDOS 
top of memory pointer. If you 
alter this pointer, your TRS-80 
thinks it only has memory up to 
that number. Since Disk Basic 
uses the top 64 bytes of 
memory for initialization, any 
code in the top 64 bytes of high 
memory will be clobbered. By 
changing the top of memory 
pointer to an address lower 
than any of your routines, you 
can avoid this problem. You 
can answer the memory size 
question with Enter and both 
Basic and TRSDOS will leave 
this high rrtemory alone. 

Line 160 jumps back to 
TRSDOS where it turns on the 
cursor and calls the keytx)ard 
driver. Auto-key intercepts and 
passes back the string in lines 
170-270. Line 280 terminates 
Auto-key's control. 

With some further effort, you 
can construct more complex 
programs during run time, us- 
ing Auto-key. ■ 
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NOBODY KNOWS MORE ABOUT 

ADDING MEGABYTES TO YOUR 

TRS-80 MODEL II* THAN 

AMERICAN SMALL BUSINESS 

COMPUTERS 



THE CAMEO CONNECTION 

The Camra ID Million Cha- 
ncier Disk Drive Subtyttem 
(pictured in foreground) li A 
5 Megabyte Fixed, S Mega- 
byte Removeble CartridB«- 
Type Disk Drive. Advin- 
tegei To This Unit Are Eiie 
of Backup For Data and Pra- 
Qram Files and Low Cost. By 
Attaching A Multiplexor Unit 
Several Model ll'i Can Be 
Attached To The CimBO Disk 
Drive, For Further Pricing, 
Availabilrty, and Operating 
Systems Options, Call of 
Write to American Small 
Business Compuleri and ask 
for the CAMEO CONNEC- 
TION. 




THE CORVUS CONNECTION 

Tha Corvus Disk Drive Sub- 
system (center of picturel la 
Available in 5, 10, and 211 
Million Character Capacities. 
The Corvus System Is The 
Ultimate In The Sealed 
"Winchesttr, All-Fixed' 
Type Drive. The Corvus li 
Designed To Qperete In The 
Harshest Environments Such 
As Factories, Oil Riga, Etc. 
Backup Df Data Is Accom- 
plished Via Optional MIR- 
ROR Backup Device Where- 
by Data Is Written Onto A 
Standard Video Tape Record 
er. A Greet Number of 
Model H'sMay Be Attached 
To The Corvus Via An 
Optional CONSTELLATION 
Multiplexor. For Further 
Pricing, Availability, and 
Operating Systems, Call Or 
Write to American Small 
Business Computers end Ask 
for the CORVUS CONNEC- 
TION. 



THE AMERICAN SMALL BUSINESS COMPUTERS MINI-WINCHESTER SPECIAL 

The MINI-5 (being held by Corporate President Robert Wibster) Is American Smill Business Computer's Very Own 
Disk Subsystem. The MINI-5 Offers Approximetily 5 Million Chirictors of Information Storage and is Based On the 
Famous Soegale Technology ST -508 Micro Winchester Drive. Now You Can Own Stitt-OfThe-Art Ttchnology At An 
Affordable Price - Only t3SD0 - Which Includes Drive, Controller Electronics, Power Supply, Cebinet, Cebles, Docu- 
mentation end Operating System Software. 



DEALER INQUIRIES INVITED 
AMERICAN SMALL BUSINESS COMPUTERS 

•TMTANDYCORPORATION 

118SOUTH MILL ST. PRYOR, OK. 74561 918-825-4844 



'529 



AMERICAN 



118 SO. MILL ST • PRYOR, OK 74761 
PHONE (918) 82>-4844 



ALL LISTED PRICES ARE CASH DISCOUNTED WE ACCEPT MC, VISA, AND COD (REQUIRES CERTIFIED CHECK CASHIER S CHECK OR 
CASHl FOR CHARGE ORDERS. PLEASE ADD 3% FOR COD SERVICE, PLEASE ADO 5% SHIPPING AND HANDLING ARE FREE ON ALL 
ORDERS. OKLAHOMARESIDENTS PLEASE ADD 4% SALES TAX 

72K EXPANSION INTERFACES 



SPECIAL OFFERING 

Due to a very special purchase, American 
Business Computers is able to offer a limited 
number of Radio Shack' Expansion Inter- 
faces at the lowest price ever 

American Business Computers guarantees 
Expansion Interfaces to be Brand New — 

with original documentation and in perfect 
working condition 



.. / 



J99 



95 




NEW PRODUCT FOR THE COLOR COMPUTER.. ."PACKET MAN" BY GREG ZUMWALT 

In this exciting new adventure for the Color Computer* . you attempt to "eat" ihe dots and escape from the three 
little munchkins who are always chasing you This game was written in machine code to take full advantage of the 

color computer' s capabilities Only $25 00 

MOON LANDER FOR THE COLOR COMPUTER Bv Greg Ziimwolt Only $14 95 .-m 



OTHER STUFF & ODDS - AND - ENDS 



PAPER FOR YOUR PRINTER .s2i 
9 1/2x11 — Tear-off perforations 
and you have an 8 1/2 x 11 'cut sheet'. 
3200 sheets of 15 pound paper .$39.95 



CONTINUOUS ENVELOPES 
Fan Fold Envelopes with tractor per- 
forations down either side. Envelope 
size with perfs 4 1/2 x 11" 

PRICE 59 95 per 1000 

Price includes shipping 

in Continental US 



* NOTICE • 

BY THE TIME YOU 

READ THIS, WE 
SHOULD HAVE OUR 

DIRT CHEAP 

MINI DISK DRIVES 

AVAILABLE FOR THE 

MOD III ~ 

PRICE; Less than 

$599.95 



DISGUSTING!! 



That's what we think 
about the price of 
most good "Letter- 
Quality* Prmters. Our 
Starwriler is Bidirec- 
tional and out "specs' 
the others — hands 
down 

$1450°" 




■^^ 



r 



ATTENTION: 

CORVUS OWNERS 



American Business Computers NOW 
offers a fully compatible TRSDOS' 
operating system. Our System, called 
CORDOS, runsall 10 MB, Revision B 
Corvus drives. The Program in this 
package contains a Master Program 
which will convert a user ' s operating 
system disk (Version 2.0} to an en 
ha need system capable of the fol- 
lowing: 

— Completely transparent use of 
Ihe Corvub Hand Disk Drive 

— Complete compatibility with 
existing programs 

— AH utilities (except Format and 
Backup, which should not be 
used) will operate normally. 

Price $300.00 with manual 

-DEALER INQUIRIES INVITED - 

CORDOS Author-Andy Frederickson 

'TM of Tandy Corporation 

*TM of Corvus Systems 
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SMALL BUSINESS 



COMPUTERS 



masiet cfiarge 



118 SO. MILL ST. • PRYOR. OK 74761 • {918) 827-4844 



■TM TANDY CORP. 



SUPERPRINTER 

THE EPSON 

IV1X-80 




This IS Ihe new Epson MX-80 dot matrix 0rinter. It does jusl aDovjl everything you could 
ask a prinler to do-quickly. quietly, reliably In fact, for OEM inslaUalions, the MX-BO may 
be trie sirigle best , all-around punter you can buy But thai ' s not the best reason to buy il. 

The MX-80 cnnls Didireclionally at 80 CPS in a user-Oefined choice of 40, 80. 66 or 132 
colunins And it that's not tasi enough, its logical seeking lunction minimizes print heaO 
travel lime The MX-80 prints 96 ASCII, 64 graphic and eight interoal'onal characters with a 
tacK-snarp 9 > 9 malrn For a long lime Epson printers are known for rehabilily and the 
MX-80 IS no excepiion Bui thai s nol the best reason to buy it, either 

The pnni head has a lite eipeciancy ol up to 100 i 10 characters , and when it wears out, 
jusl throw il away A new one costs less than $30 and the only tool you need to change it is 
attached to the end ot your arm The MX-80 is compact, weighs only 12 lbs., and the whole 
unii. including Ihe two stepper motors controlling carnage and paper feeding functions, is 
precisely conirolleO by an internal microprocessor But even that isn't why you should 
Specify Ihe MX-80 

The best reason is this because Epson 
makes more printers than anyone else in IF YOU BUY AN UX-BO AND DON'T 
Ihe world we can afford to sell each one CHECK OUR PRICE — YOU PAID TOO 
lor a iitiie less MUCH' 

AW...WHAT THE HECK 

RAM Memory Chips for the TRS-80 



II IS ine policy o' American 
Business Computers to offer 
merchandise at the lowest 
price possible. Several 

months back, we began sell- 
ing RAM Memory Chips for 
the THS-80 (or J45.00 
per set Someone else sold 
chips (or $44 00 We sold 
Ihem (or $38 00 Tney solO 
Ihem (or $37 95 So we say 
■AW WHAT THE HECK'- 
Lei s see the olfier guys 
beat this price 



$19 



95 



PER 16K SET 



These chips are brand new 
■4n6's- These 2O0 nano- 
second chips are fully 
compatible wiih all THS-BO 
products. Instructions (or 
inseriion are included; how- 
ever, the dip shunts required 
for converiing a 4K Model I 
10 a 16K Model I are not 
included at this low price 



OKIDATA MICROLINE 80 
PRINTER - $J99»° 

The Microline •» buill on a rogged cast alumi- 
num base to withstand the rigors of conlinucus 
business use ll is driven by two motors and 
will run all day wilh no duty cycle limitations. 
Microline primers use a dense 9 " 7 dot pattern 
to produce crisp Clean copies, first copy la last 
The seve'i pins m ;ne head are 'fireC using 
energy stored m tension members This tech- 
nology permits Ihe use ol short, low mass pins 
made with an extremely hard alloy The head 
produces less heal, thereby eitendmg iis lite. ..^^a 

• CHECK IT OUT! • 

EPSON MX-80FT 

That's right - MX SOFT. 
The FT on the end means Friction 
snd Tractor The Fantastic MX-80 
Printer is now available in a version 
which will accept letterhead -type 
paper AND tractor type paper. Call 
or write for our {as always) lin- 

believable low price 
Also aua\lable MX-70and MX-lOO „b&i 

• RETROFIT YOUR* 
MX-80 TO AN MX-80FT 

ADD A PLATEN TO YOUR MX-80 
TO ALLOW USE OF LETTER- 
HEADS OR ROLL PAPER $69.95.561 



DIRT CHEAP ...$279 

But Highly Reliable Yes, our Mini Disk Drives have an estimated 
8000 Powcr-On-Hours Mean Time Between Failure (7ho! 's 8 
Hours A Da\j. 5 Days A Week, for 3.85 YEARS) Our drives also 
feature a lead screw head positioner ■ not a cheap band type 
positioner If you purchase a Mini Disk Drive with a band-type 
positioner, you are buying an INFERIOR PRODUCT! If you have 
any doubts about our drives, our ONE YEAR Warranty should 
convince you that we know this unit is the best drive at the best 
price on the American market This is one example where you can 
pay less and get more. 



■TRS-80 MODEL I VERSION 
ComplalB with Powar Supply 




SION J^ 

aC«bln«1 A' 

i 



-See Lis/ ol Ativeriise/s on page 336 
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FINALLY! 

A Tape-Based 

EDITOR-ASSEMBLER 

For The Model III 

(.()N{,INN'A rOR IS used m roiijunction 
»Mth Radio Shark's tdilor/Aasembler 
I 2 - It provides compalibiliU wiih ihe 
MoopI III, and also priivides numerous 
enhanremenls. \lij>[ inifiortanl is the 
ahihty lo dump as-miMfd pruprams into 
memorv for Ic-Iiiif;, ■nn! In-inj; aiile lo re- 
turn lo CONCINN \TOR v.iihour mam 
saves and toads. ft ill verify suurre 
dumps: supports 1500 baud; displavs 
number of b^les left in buffer, and per- 
mits display and modificalion of memory 
loration rontetils. And more! You've 
been waiting, and non il's here: (Jonri- 
nnalor, a sophist irait-d editor/assembler 
for the Model III. ft ill also enhance 1.2 
for the Model I TRS^! $19 y.S on tape. 

Ask .About Other 
MODEL III SOrrWARE 



To Ordrr (lonrinnalur^ 

Srti-) Jl'»'»i -rihllflo.i.xrl 
]>.Li k^ffiiT^ i^ pu^ld^r tiJ I ^^. 
...Mrr- ItIi» SfH-oK I ..r 
III SI Ml Mi)i I,.- d.lilr.l I.. I 
I (III. I', ..,f.i,-Lli„,l,jrKr,„ 

il.T. I„,,,.i„. ,,l„„ii ,,rl,,T 
\ii»l.-l III -uli^.Jr^.LIrr.'rlt^ 



TAS. l806A(la. Lunsiiiff. Ml WHO 
Ph. (.>17> 4fl7-;i.I.")8 or l«.i-031l 

^ ^138 




pIotp^^^^^nJl soltiv.ir 



TRS-80® MODEL 



BASIC CROSS REFERENCE 



NOW •,', Ml Mlif I 



• FINDWHl-Rl NAMlSARf USIOFASI' 

• CAN YOU DILL IS LMAL LINI ' I INL) OLj I' 

• DO VOU HAVL Uf AD CODING' 

• WANI A Nli_E PROGRAM IISTING WIIH 
DAIL & TIMI IN Hf ADISG 



"SAVt HOURS' 
'PARALLf LSLRlAl PKlMiR!, 
ISIVLRAL OPTIONS 
IbB LPI VARIAKU 
IIM WIDTH & f'AGL DfPIH 



$59.99 



+ POSTAGE A 
HANDLING 



UOCUMEMAllON ONLV JIUOO 
DlIHil riHll ON PtHlHASt 



DISK SORT 

• Ml NL DRIVEN a 

• RANDOM fUES a 

• CHAINS TO SYSTEM 

OR BASIC prcx:ra,ms 



• YDL (X3N 1 HAVt U) HI ^ I'ROGW AMME K TO lAi IT' 
[AiY TDUSl •lASV lOINSERl INIU 

FAST' lOBSTttlAMtOK $69.99 



ISPH S SAVH) 
t)N DISK 



NOn-SIOP KL'NNlNi,' 



■►POSTAGE & 
HANDLING 



BASIC COMPILER 



LKX liMlNTATlON CiNl> HIU«I 
DlDC'CilBli l>N n,m HAM 



(WRITTEN BY MK ROSOt T 



>iAS> lO USE 

I ALX.MINTEI) WITM OUR 
lXM"L'M|NIM!ON 



$350.00 



+ POSTAGE & 
HANDLING 



• TRSDOS' BASIC tOMPATIBlE' 

• lASTER THAN BASIC BY UP TO 
iO TIMES 

TRSflC & TKsixJS'ARt REcisriRED GOOD-LYDDON DATA SYSTEMS ^2i8 

TRADEMARKS Ol TANDY CORP S4Se RIVERSIDE DR., CHINO. CA. 91710 MASTER CHARGE or VISA acc*plKl 




Model 48S-80C For Model 3 Oporatlon 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $325. 

+ shipping, mswance S ran 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES ^29i 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3205 

'Trademark ol Tandy Corp. 

Thart is rio atlllialicn between Scientilic Engineering 

Laboratories ant} Tandy Corp. or Radio Shack 



WE HAVE A PROBLEM 
HVITH OUR SOFTWARE 

The problem is that it is underpriced! Potential buyers don't believe the 
accounting software has much capability at $450. so they buy software with less 
capability at $1000. 

What do the ones who buy it say? 

"i have become more and more convinced ... it 
is one of the best bargains available . . . ' 
80 REVIEW, 80 MICROCOMPOTIMG, June 81- 

"The single data diskette with common files is 
really convenient . . 
Randy Bemis, Bemis Construction, San Diego. 

*l recommend MICROED software for my com- 

puter customers." gandor Zoboki, President. 

ZOBEX Computer Systems. 



THE BUSINESS SOFTWARE NOW AVAILABLE 

GENERAL ACCOUNTING PACKAGE S450 00 

G/L, A.'R, AiP 

INVENTORY I 



$250.00 
5250.00 

entOTj two Oi5h dri.es 133 colufnn 



PAYROLL 

S/stem fequifemems CP M. 64K 
ptmier 

TRS-80, Model II SOFTWARE NOW AVAILABLE 

1.4CP/M Special S90.00 

Single or double density auto-seiect 

SMARTERM $50.00 

Versatile terminal program, requires CP M 

CP U TM ot Digital Research TflS-60 TM ofTanOyCoip 



We are dedicated to selling quality business software at reasonable prices. 
Dealers, we have a deal for you. 

Write or Call 



MICROED 



3910 BANDINI STREET, SAN DIEGO, CALIFORNIA 92103 • (714) 299-1125 
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TECHNIQUE 



When your program crashes you can still save what's in memory. 



Debug With GOTO 



Roger L. Pape 
7545 Marble Drive 
Liverpool. NY 13088 



You've just spent hours entering data in- 
to a program and ttien it "bombs out." 
Is ttiere a way to continue wittiout losing all 
your data? How about making changes in 
the source statements ot the program and 
continuing without losing the data? Or 
would you like to run one program and have 
it load another program which uses values 
from the first? 

Problem and Its Solution 

Preserving a lot of data already in memo- 
ry became a real problem for me one even- 
ing. After several hours entering a large 
number of long character strings, I was con- 
fronted with an OM Error message as the 
program terminated. Typing RUN would 
wipe all the data out! I observed that the 
point after the run command performs its 
initialization is equivalent to the GOTO 
statement processing. One can type GOTO 
nn (where nn is any existing line number) 
and reenter the program at the statement 
without losing the variables already stored 
in memory. A simple GOTO the cassette 
output section of the program and my data 
was saved. Reading the Level II manual 
later, under the description of the GOTO 



statement (section 4) was the solution I had 
discovered. 

A GOTO in the command mode is a 
perfectly valid way of starting or reentering 
a program. Any variables created in the 
previous execution or those defined by 
assignment (Let) statements in the com- 
mand mode before starting are preserved. 
The GOTO can be directed to any valid line 
number in the program with several restric- 
tions. First, the Clear statement will clear 
the variable storage area (actually only re- 
setting the storage pointers to the begin- 
ning of the storage area). If the Clear state- 
ment is executed when the program is re-en- 
tered, previously generated values are lost. 
Secondly, a variable cannot be redimen- 
sioned. Once an array has been created and 
stored, do not reenter at or before a Dimen- 
sion statement containing that variable 
name. 

Debugging with GOTO 

GOTO can be used very effectively when 
debugging programs. Consider the follow- 
ing situation where a statement such as: 

200A = xrv 

is somewhere in the middle of a program 
and the value of Y is undefined (or zero for 
any other reason). The program wit! stop at 
this point with a /O (division by zero) mes- 
sage. To correct this problem, one can enter 
an appropriate value for Y and continue by 
typing: 

Y - 

GOTO 200 

(bot^ in the command mode) 



and check the rest of the program. Fre- 
quently this can eliminate the need to 



reenter a long series of input that would 
otherwise be required to run the program 

from scratch. 

Level I vs. Level II 

After a program is stopped, the values of 

the variables used during execution remain 
in memory. Likewise, any variables defined 
in the command mode will modify the 
values previously stored or will be added to 
the storage area if the variable had not been 
encountered earlier. The only reason the 
variables cannot be accessed when the run 
command is reissued in a Level II system is 
because the pointers which define the 
storage areas are reset. 

The Level I system software does not 
reset the variable storage pointers when the 
Run command is processed. Therefore, pre- 
set the value of any variable before the run 
command is typed and the values will be 
used in the program. But the Level II soft- 
ware resets the variable storage pointers 
when the run command is processed. So 
any predefined variables wilt be lost when a 
Run is issued. The preset variables in a 
Level II system, type the variable assign- 
ments statement in the command mode (as 
in Level I), but then type GOTO nn (where nn 
is a statement number at the beginning of 
the program) in order to start execution. 
Avoid any Clear statement in the program. If 
added string space is required, type the ap- 
propriate Clear statement before presetting 
the variables. (The amount of string space 
reserved by a Clear statement is remem- 
bered from one program to the next. It only 
changes when another Clear statement is 
executed or the memory size is set. After 
running a program which uses large 
amounts of string space, it's a good idea to 
type Clear to free some of the memory.) 

Unfortunately, continuing execution is 
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"Once you are able to chain, you are free to edit a 
program and restart It without losing variables." 



not as simple if the source program is 
changed. Whenever another program is 
loaded or when statements are inserted, 
deleted, or edited in a program that is 
already in memory, the variable storage 
pointers are reset. You could include a 
cassette load statement at the end of one 
program to load a second program, but vari- 
ables from the first program are not acces- 
sible in the second program (unless written 
to some storage medium). Likewise, if any 
changes are made to the program state- 
ments, you cannot normally continue exe- 
cution at some intermediate point (as in the 
division by zero example). 

With a few software changes you can 
preserve variables in memory for use later. 
Since the procedures required to save the 
variables while editing the source state- 
ments are essentially the same as those 
needed to transfer values from one program 
to another when chaining, it is relatively ef- 
ficient to provide both capabilities in the 
same pitch. Let's first review the memory 
allocation In a Level II system. 

Memory IMap 

The way variables are stored in a Level II 
TR&-60 is illustrated in Fig. 1. This memory 
map shows the relative positions of the vari- 
ous storage areas in the user's memory as a 
program is loaded and executed. The values 
In parentheses on the left of the map are the 
locations (in hexadecimal) of the word pairs 
used to store the 16-bit addresses of the 
current starting point for each of the speci- 
fied areas. The first location contains the 
lower byte of the pointer, while the next 
location contains the upper byte. 

Variables are stored immediately after 
the Basic source statements. This area is 
subdivided into two sections. The first con- 
tains simple non-dimensional variables, 
while the second contains all the arrays 
(dimensioned variables). The pointer stored 
at locations 40Fg/AH is the start address 
for the simple variables. The pointer stored 
at locations 40PB/CH is the start address 
for the array variables. Finally, the pointer 
stored at 40FD/EH is the start of the free 
space. The first of these three pointers is 
set after the program source statements 
have been entered and remain the same 
while the program is running. But the latter 
two pointers will change value during pro- 
gram execution as new variable names are 
encountered and their values are stored. 

The Basic interpreter stores the variables 
sequentially in the order that they are en- 
countered as a program is run. What gets 
stored is a combination of the variable type, 
name and value. 

Each simple variable consists of a vari- 
able type flag (which is equivalent to the 
number of bytes needed to store the value), 



two ASCII characters representing the vari- 
able name (the second character of the 
name, if it is used, or else a null is stored 
first), and the current value of the variable. 

Array storage also includes overall 
length and dimension information. The 
name Is followed by a two-byte value repre- 
senting the remaining bytes for the array, 
then one byte for the number of dimensions 
and two bytes for each dimension to store 
its size (the last dimension is stored first). 
As a variable name in a program statement 
is interpreted, the storage area Is scanned 
from the beginning to see whether this 
name and corresponding type are already 
stored in the list. If not, the variable Is added 
at the end of the appropriate area. Array 
storage space is created when a dimension 
statement is interpreted. That is, Ifie variable 
name is entered in the list and the neces- 
sary space reserved with the contents In- 
itialized to zero. If a new array name is en- 
countered in any other statement (without 
previously being dimensioned), it Is auto- 
matically dimensioned with an upper limit 
of 10. 

Because simple variables and arrays are 
stored in separate areas, one can use an 
identical name for both. In addition, If the 
explicit type flags are used with the name, 



separate variables are created since both 
the name and type must match. That is, 
X%, Xff, X!, and X$ are all distinct variables. 
Therefore, it is possible to have a number of 
different variables with the same one or 
two-character name. The Basic Interpreter 
keeps them straight because It can deter- 
mine whether the variable is dimensioned 
from the use of subscripts and also deter- 
mine the variable type, t>ased on the default 
type corresponding to the first letter or from 
an explicit type flag. All these conditions 
must match an entry In memory or else it is 
assumed to be a new variable and a new en- 
try is created. 

Scanning the variable list can involve 
considerable processing time. Variables 
are not stored in any prescribed order. In- 
tegers, single and double-precision floating 
point values, and string variable param- 
eters are intermixed. So the search for a 
variable Involves beginning at the start of 
the storage area and examining each vari- 
able name and type until a match Is otv 
tained or the end of the area Is reached. In 
the case of simple variables, the variable 
type flag conveniently provides the number 
of bytes to skip over for the start of the next 
variable. 

In the case of arrays. Its length, stored 



(40A4/5)- 



{40F9/A) *• 



(40F8/C) ►• 



(40FD/E) ► 



(40A0/I)- 

{40BI/2)- 



RESERVED AREA 



I/O BUFFER SPACE 



BAS/C PROGRAM 
SOURCE STATEMENTS 



SIMPLE VARIABLES 



ARRAY VARIABLES 



FREE SPACE 



STRING STORAGE 



PROTECTED AREA 



4000 



H 



TOP OF 

MEMORY 



Fig.1 
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''With a few software ctianges you can 
preserve variables in memory for use later" 



immediately after the name, functions the 
same way. To save time during the scan- 
ning process, this vaiue is computed once 
when the array storage space is first 
created. The number of bytes that follow is 
given by the byte length for the variable type 
times the product of the dimension, plus 
the number of bytes needed to store the 
dimension information. Then, when arrays 
are scanned and the variable name or type 
does not match, this vaiue is read and quicK- 
ly locates the start of the next array. Since 
the storage area must be scanned each time 
a variable is used, a time-saving tip is to 
declare the most frequently used variables 
early in the program so they are stored near 
the beginning of the list. Potentially, this 
could save considerable execution time in 
lengthy programs with large amounts of 
repetitive calculations. 

Because the variable storage area 
immediately follows the program state- 
ments, increasing the program length, 
either by editing or loading a new program, 
will overwrite the old variable storage area. 
Any time a program is loaded or an existing 
program is edited, as well as when the Run 
command is issued, the pointers which de- 
fine the extent of the variable storage sec- 
tions are all initialized to the location after 
the end of the program code. This is inter- 
preted as an empty storage space. 

One other point that will effect your pro- 
gram is the way string variables are stored. 
The string information stored in a variable 
storage blocit consists of the type flag (3), 
the numtier of characters in each string and 
the start address for the actual string. This 
information is intermixed with the other 
variable types in one of the two variable 
storage areas, depending on whether it is a 
single string or an array of strings, tf a string 



variable is entered via an input statement or 
is generated by a string function or by the 
concatenation of several strings, the actual 
string of ASCII characters is stored in an 
area of upper memory reserved for strings. 
But if the complete string is defined in an 
assignment statement of the program, 
such as: 

500 AJ = "THIS IS A STRING" 

or in a data statement, the string is left in 
the program area. This approach conserves 
storage space, but results in strings being 
scattered throughout memory. If strings 
stored In one program are to be used by 
another chained program, it is necessary to 
extract strings from the program area and 
save them in the string storage space. 

The Chain Command 

So, these are the required steps for chain- 
ing In Level II: 

• Store all variables, including embedded 
strings, in the upper part of memory and 
protect them. 

• Load the new program. 

• Move the saved variables back down im- 
mediately following the program 
statements. 

• Start the new program without resetting 
the variable storage pointers. 

The first three steps in this process are il- 
lustrated In Fig. 2. Relocating the strings 
that are embedded in the program state- 
ments can be handled quite easily with an 
existing system routine in ROM. As these 
strings are moved, it may be necessary to 
expand the string storage area, so the 
string relocation should be performed 
twfore the variable block is moved. 

Once you are able to chain, you are free 



to edit a program and restart It without los- 
ing variables. Before making any changes 
to the program statements, perform step 1 
above. The editing or statement additions/ 
deletions would be made (in place of step 2) 
using the normal system commands. After 
all changes have been entered, steps 3 and 
4 are performed to repack the variables at 
the end of the corrected program and re- 
start the program at the desired point. 

Summary 

Chaining is useful in a variety of situa- 
tions. For example, you may have a pro- 
gram requiring the results of a previously 
run program. Rather than modify an exist- 
ing program, it may be more convenient to 
write a separate program called by a Chain 
command to preserve the results of the first 
program. Breaking a large program into sev- 
eral smaller routines (which are chained) is 
almost equivalent to having more memory. 

Another memory saving application in- 
volves programs with extensive internal 
data storage. Once data statements are 
read, they are essentially wasted space. An 
alternate approach is to have a separate 
preliminary program consisting of read and 
data statements to preset the variables and 
then chain the main program. 

The proposed chaining software also lets 
you resume your program after editing with 
little memory loss. 

The concluding portion of this article will 
describe the actual Chain command for 
Level II, including the complete assembly 
code. It is completely relocatable and auto- 
matically installs itself immediately t>elow 
any other patches previously loaded, such 
as key debounce, lowercase, or whatever 
other fixes you may already have in your 
system. ■ 
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At this writing there is only one serious 
double-density DOS available: DOS- 
PLUS 3.3. It not only reads single density 
TRSDOS, LDOS and NEWDOS/80 diskettes, 
but reads standard Model III TRSDOS disk- 
ettes; and the Model 1 1 1 DOSPLUS reads and 
writes diskettes that are compatible with 
the Model I. 

However, specialized disk I/O files and 
hardware-dependent features cannot be 
shuttled between the machines. The little 
gem that lets the Model I read Model III 
TRSDOS diskettes is the Convert/CMD util- 
ity. Convert :1 :0 makes the required adjust- 
ments to allow access to Model III disk- 
ettes. 

DOSPLUS 3.3 allows mixing of various 
track drives. The Format/CMD utility for- 
mats disks for the desired track count and 
storage mode (double or single density). 
Once this is done, DOSPLUS 3.3 takes care 
of all housekeeping. LDOSA/TOS handles 
the different track drive problem in the same 
manner. If specifying the track on each for- 
mat is disturbing to you, Config will allow 
you to preselect the track count and step- 
ping rate, operate with a clock speed modi- 
fication Installed, configure a drive as dou- 
ble sided, (you can only configure the sys- 
tem drive to a certain track count) and If 
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your printer can handle them, send unal- 
tered graphics codes to the printer. 

Transfer Your Library 

You may want to transfer your program 
library from single to double-density for- 
mat. Unlike Percom's DBLDOS that re- 
quires you to manually copy all filespecs, 
DOSPLUS does this with the Transfer/CMO 
utility. DOSPLUS reacts to the disk format 
(double or single density) and transfers files 
from disk to disk in the appropriate mode. 

First format the destination disk in dou- 
ble density and execute Transfer :s :d (:s 
equals source drive, :d equals destination 
drive). DOSPLUS moves all visible files with 
no user intervention. 

Directory 

LIB gives you a look at a respectable 
library of DOS commands. Many of the fa- 
miliar ones have been extended. DIR typi- 
fies the library enhancements. With most 
DOSes (LDOS excepted) the directory lists 
only the visible files on a disk; however, with 
DOSPLUS 3.3 the information is much more 
thorough. 

The first line of the directory lists the 
drive number, disk name and date, version 
of DOSPLUS and density mode. The files 
are then described with various param- 
eters. The ATTRB column first tells If the file 
is visible, invisible or deleted. The asterisks 
denote a user file. An S In the second AT- 
TRB column would denote a system file. 
Next a U, A or B tells if the update, access or 
both passwords are set. The last ATTRB 
column tells the protection level set. 

The directory also indicates the number 
of records on file, number of sectors, 
number of granules used, and if the file is 
written on consecutive tracks. The last di- 
rectory line tells how much storage space 
remains on the disk. 

A double-density disk filled with small 
utility programs easily fills several video 
screens in this format. This is not incon- 



venient because the system pauses after 
the video is full and waits for user instruc- 
tions to proceed. 

Ottter Commands 

Free has been altered to graphically dis- 
play the tracks currently being used on a 
specified disk instead of the amount of free 
storage left. This is a quick way to see how 
many tracks on a disk have been formatted 
where the directory is located and which 
tracks have been locked out. 

Date can be set at power-up and is the de- 
fault value for backups and format func- 
tions. DOSPLUS retains the date unless the 
system Is rebooted. Copy has been stream- 
lined to copy filenanw:s :d. This copies a file 
from drive :s to drive :d. Single-drive users 
are not forgotten. A special utility, Copy1/ 
CMD, allows single-drive copying of all file 
types. Create preallocates disk space for a 
specified file. Debug can now be entered 
with a shift Break. Device displays current 
I/O devices and their vector addresses. 

DOSPLUS 3.3 for TRS-80 Model I current- 
ly supports only three devices: keyboard, 
video monitor and printer. The RS232 Is not 
defined at this time. Not implemented in 
this version of DOSPLUS are Link (I really 
miss this one), Set, Reset and the ability to 
route to a disk file. 

Bulld-Do Commands 

Chaining is available with the Build-Do 
commands. Build allows the user to create 
a sequential set of tasks for DOSPLUS to 
perform. A Do file may be created with Build 
to get a directory, display the Free map, 
load a printer driver, set Basic memory size, 
and jump to Basic. Build Is completely self- 
prompting. A Pause command may t>e in- 
serted in the Build file to allow for user inter- 
vention. Pause does not allow for user entry 
of commands. 

Do checks high memory (4049H-404AH) 
and reserves about 300 bytes at the top of 
memory for itself and a small buffer. After 
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Do executes, this memory space is returned 

to the system, 

A problem arises when a high memory 
program (printer driver, machine code sort, 
etc.) occupies the same memory area that 
Do usurps. Trying to Build a file that first 
toads the GSF (Racet computes) sort mod- 
ule into high memory is disastrous. When 
Do loads GSF. it obliterates its buffer and 
all Build instructions are lost. 

The Forms command controls printer 
page length, the number of printed lines per 
page, the number of characters per line, and 
can output to a serial printer. It can also 
generate an automatic line feed on carriage 
return and perform a top-of-form. 

A hard (printer generated) top-of-form is 
not implemented on my Okidata Microline 
80 printer. Having to include paging mod- 
ules in my programs has been a minor in- 
convenience tn the past, but DOSPLUS 3.3 
eliminates the need for extra page format- 
ting code. On power-up the Forms param- 
eters are set to standard values. To view the 
current status of the Forms driver type: 
Forms (enter). This also eliminates the need 
for any high memory printer routines. Since 
Forms is a library function these LPRINT/ 
LLIST parameters are available for all print- 
er output — even Basic listings! 

The only minor Irritant is that the TRS-80 
Model I LPRINT line counter (found at 16425 
decimal) is decremented with each printer 
code. In the Okidata Microline 80 printer ex- 
panded print is available by typing LPRINT 
CHR$(31): a return to normal print is LPRINT 
CHR$(30). The Model I and the Forms driver 
count each of these codes as a line printed 
and increment the LPRINT line counter. This 
could lead to a problem with printed output 
creeping down the page. 

When I do not want Forms control I dis- 
able it by typing: Forms (L^ 66, P = 66). This 
sets the page length and number of lines 
printed per page equal to 66. If I want a Basic 
program listing to accurately paged, I in- 
itialize the LPRINT counter by typing: 
LPRINT CHR$(12) 

PROT has been expanded to allow the 
changing of a disks name as well as the 
usual password manipulations. 

Utility Functions 

There are about a dozen programs listed 
in the utilities section of the DOSPLUS 3.3 
manual— all of them extend the versatility 
of the system. By being discrete about 
which utility functions become programs, 
relatively small system disks can be cre- 
ated. This provides the single-disk user with 



maximum storage space per disk. 

CLRFILE zeroes a file but does not reallo- 
cate its storage area. This could be useful 
when using a disk for temporary files. CLR- 
FILE has the same overall effect as the li- 
brary command Create. 

Copyl IS a necessity lor single-drive 
users. It permits single-drive disks to transfer 
all types of files. Both LDOS and NEWDOS/ 
80 have this feature, but it is closely tied to 
the system. Copyl will probably be little 
used by multiple-drive users. 

Crunch is little changed from DOSPLUS 
3,1, It is a utility to eliminate Remarks and 
extra spaces in Basic programs. 

DiskZap has been amended to read sin- 
gle or double-density disks. Its capabilities 
are similar to Apparat'sSuperZap. In its cur- 
rent form it does not generate hash codes 
or passwords. Conspicuous by its absence 
is SuperZap's DFS function. This permits 
examining or modifying by tile name rather 
than by sector. Micro-Systems Software 
chose to provide this ability in a stand-alone 
machine language DiskDump program. 
Paging is slightly improved over SuperZap. 
Taken together these utilities should keep 
most disk zappers happy. Documentation is 
adequate for both utilities. 

Purge allows you to rid a large number of 
files. Purge :0 (1) presents the user with a 
menu of visible and invisible files to be 
marked for deletion. Passwords are trans- 
parent to Purge so all files may be killed- 
With a handy program of this type it is easy 
to become over-zealous and kilt the wrong 
file. The Restore utility, fortunately, resur- 
rects the kill file as long as it has not been 
overwritten by another program or CLRFILE 
has not been used on it. 

Map shows what tracks and sectors each 
tile occupies. The value of this utility 
becomes evident when two disk systems of 
different track counts are used. 

Spooler 

Micro-Systems also provide an adequate 
spooler with DOSPLUS 3,3, The spooler 
uses an operator-defined memory buffer 
and an optional disk file for printer output. 
Spooling becomes a semi-background task 
allowing the host program disk I/O. This is 
accomplished by halting printer operation 
while the disk drives are being accessed. If 
the operator was too conservative in the 
allocation of spooling memory space, the 
spooler will temporarily seize CPU control 
until the spooler buffer is cleared of its 
backlog. Other than this, the operator is 
barely aware that the spooler is active. You 
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can even list the spooler's disk file and 
printing still continues. 

Deactivating the spooler requires reboot- 
ing the system. Since the spooler and the 
Do buffers can be co-resident, the spooler 
can he activated from a Build/Do file. 

Disk Basic Vsrslon 1.4 

DOSPLUS Extended Disk Basic Version 
1.4 is authored solely by Micro-Systems 
Software, but I have not experienced a com- 
patibility problem between DOSPLUS Basic 
and the MicroSoft/Tandy Extended Disk 
Basic. The only areas of Incompatibility I 
encountered was with the specialized disk 
I/O file structure of NEWDOS/80 and with 
entry into Disk Basic itself. When entering 
DOSPLUS Basic, no file buffers (channels) 
are allocated. With other DOSes the default 
value is three buffers reserved. You must 
explicitly reserve I/O buffers when entering 
DOSPLUS Basic. The syntax tor this also 
differs from the norm. The command: Basic 
filename-F:3-M:65237 loads Basic, reserves 
three I/O file buffers, protects memory 
above 65237 and loads and executes the 
program specified in filename. 

DOS commands from Basic have been 
simplified to: CMD"DOS command". DOS- 
PLUS 3.1 used CMD"I", "DOS command". A 
plain CMD returns to DOS. RENUM, SR and 
REF are called from Basic using CMD. 

Basic has editing and keyboard short- 
hand. Pressing the semicolon displays the 
first line of code; pressing the slash key dis- 
plays the last. Pressing L lists the entire 
program. The DU and Dl commands allow 
the duplication and deletion/insertion of a 
program line. An L"filename" loads a pro- 
gram and a S"filename" saves it. Similarly 
R"filename" loads and executes a program. 

Renumbering is adequate. To renumljer a 
Basic program type: GMD"RENUM", n,i,s,e. 
Where n equals new line, i equals incre- 
ment, s equals start line, e equals end line. 
Unlike NEWDOS/80, DOSPLUS 3.3 will not 
allow block moves via the RENUM com- 
mand. 

The SR/CMD module is unique in that it 
allows the programmer to search and re- 
place a string variable or expression. You 
expect to find this feature in a word proces- 
sor. I am sure this Is one feature that future 
DOSes will incorporate. 

REF/CMD Is a variable cross reference. 
CMD"REF", K,L,V lists references in a 
Basic program by keyword, line number or 
variables. To obtain hard copy just append 
a P to the specification list. 

CMD"M" is a kind of dynamic variables 



list. Stop a program at any time during exe- 
cution and type CMD"M" and all variables 
are listed along with their current value. The 
debugging value of this command should 
be obvious. 

TheTrace function has been revamped to 
single step through Basic displaying pro- 
gram lines before executing them. This, 
along with CMD"M", has significantly 
reduced program debugging time for me, 
TRON turns on the trace and pressing any 
key single steps through Basic. Since only 
one Instruction is displayed at a time, the 
video display is much easier to interpret. If 
Devices were fully implemented, the video 
monitor could be Linked to the printer to 
display the trace simultaneously on the 
monitor and printer. In the absence of Link 
the video could be Forced (Routed) to the 
printer. 

Appending a ,V after a file to be run 
saves all current variable values. This 
allows passing variables from one Basic 
program to another. The result is true chain- 
ing. An index array could be established 
with an initialization program and passed to 
other programs. 

File handling enhancements with DOS- 
PLUS include variable record length files. 
This makes ISAM techniques possible. 
With variable record length files, the pro- 
grammer no longer has to calculate subrec- 
ords. If a logical record length turns out to 
be only 1(X) bytes, then Open"R",1, "file- 
name", 100 opens buffer one for a record 
length of 100 bytes. Micro System's TEST- 
PGM program amply illustrates this tech- 
nique. Other than this sample program 
there is little explanation on the utilization 
of variable record length files. 

In addition to the variable length files, 
Open"E" and Open"D" are available. 
Open"E" allows the extension of a sequen- 
tial file without reading the entire file into 
memory and writing it back to disk. 
Open"E" causes new records to be added 
to the file on disk and the EOF marker ad- 
justed. Open"D" seems to be synonomous 
with Open"R". It has been included to be 
compatible with TRS-80 Model II syntax. 

Micro-Systems Software reworked Basic 
In DOSPLUS 3.3 quite extensively. Actually 
two Basics are provided: a full-feature 
Baslc/CMD and an abbreviated TBasic/ 
CMD. TBasic is meant to be used after a 
program is debugged and the various de- 
bugging utilities are not needed. This pro- 
vides the user with more memory space for 
data. Not included in TBasic are the CMD 
function, editing and keyboard shorthand, 
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"The shortcomings of DOSPLUS 3.3 
are few and reflect my personal 
preferences. . . the literature is 
adequate for an experienced hacl<er." 



or full error messages. 

Shortcomtngs 

The following shortcomings ot DOSPLUS 
3.3 are few and reflect my personal prefer- 
ences: no DOS high memory command; 
lack of complete Device handling; no DOS 
Boot command for a warm reboot; the elimi- 
nation of the Basic2 library command; and 
finally, only lair documentation. The liter- 
ature is adequate for an experienced hack- 
er, but may not suffice for an entry-level 
user. I especially miss a section on DOS 
calls. 

There is also some conflict between 
DOSPLUS' keyboard routine and some Lev- 
el II programs. Radio Shack's Haunted 
House adventure and Astrology are repre- 
sentative of this problem. Both programs 
were put on disk with Apparat's LMOFF 
SET. Executing either of these programs 
under NEWDOS/80 requires disabling the 



keyboard debounce routine. Small Systems 
Software's DCV-1 tape-to-disk utility solves 
this problem, however. DOSPLUS has no 

way to disable debounce so neither of these 
programs can be easily executed! 

Assessments 

l^y overall evaluation of DOSPLUS 3.3 is 
that it is a stable, efficient, fast and easy-to- 
master DOS. However, if you have mastered 
NEWDOS/80 you would probably miss 
many of the Apparat's extra enhancements 
(mini-DOS, block move of Basic code, etc.) if 
you adopted DOSPLUS as your bread-and- 
butter DOS. 

The major factor in weaning me away 
from NEWDOS/80 was DOSPLUS' portability 
from Model I to f^odel III (and back again), 
and the ease with which it interchanges sin- 
gle and double-density diskettes. The stan- 
dard features of DOSPLUS have been the 
basis for many stand-alone utilities. If noth- 



ing else was considered but this factor, 
DOSPLUS is a bargain. I have not used 
NEWDOS/80 with double-density zaps 
since acquiring DOSPLUS. A business can 
do little better than DOSPLUS for TRS-80 
Model I or Model lll.B 

Author's Note: The Config command can 
only configure the system drive to a certain 
track count. Disks intended for drives with a 
track count different from the zero drive 
must be defined with the Format utility. The 
Config command may still be used to vary 
the stepping rate and number of disk sides 
for any drive as mentioned above. 

f^icro-Systems also tells me that Small 
Systems Software's DCV1 tape-to-disk utili- 
ty will set the proper Level II keyboard 
values tor correct operation. This means 
that DOSPLUS' debounce routine is no 
longer a serious problem for those few pro- 
grams that require a Level II keyboard.M 



Quality Products With Support And Service For Less!!! 

16K RADIO SHACK MODEL. 3 CO/v1PUTER$849-48K FOR 

WITH 2 40 TRACK DRIVES $1899 AND A RS232 FOR 

16K FOR THE RADIO SHACK MODEL 1,3, AND APPLE 2 + 

PERCOM ELECTRIC CRAYON- ADD COLOR AND HI-RES GRAPHICS TO YOUR MODEL 1 

THE CONNECTION-FOR MODEL 1 -300 BAUD-ORIG ONLY & DIRECT CONNECT FOR 
LEX II COUPLER-300 BAUD-ORIC/ANS-HALF/FULL DUPLEX 

OMNITEK40TRACKDRIVE WITH PS AND CASE $295-80 TRACK 
OMNITEK80TRACK DUAL HEAD DRIVE WITH PS ANDCA5E 
OMNITEK 8" DISK DRIVE POWER SUPPLY ANDCASE 

OMNITEK POWER SUPPLY AND CASE FOR 5" DRIVES $63 AND FOR 8" DRIVES 
OMNITEK CABLES FOR 5" DRIVES-2-DR1VE FOR $24 AND4 DRIVE FOR 
OMNITEKCABLESFOR8'DRIVES-1 DRIVE FOR$24 AND 2-DRIVE FOR 
ECONOMY 5" DOUBLE DENSITY DISKS $24 WITH CENTFR RINGS 
DISKSFOR8"DRIVE-DOUBLE DENSITY 

12" B&WLEEDEX(AMDEK)MONITOR$114AND10" B&W APF MONITOR 

BASE 2 PRINTER $549 C ITOH STARWRITER $1490 
OKIDATA MICROLINE 80 PRINTER $369 TRACTOR $50 

OKIDATA MICROLINE 82A PRINTER $549 AND 83A $799 

CALL FOK QUOTES ON EPSON, APPLE, AND COMMODORE EQUIPMEN i 
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Everybody's making money 

sellina mkrocomputers. 

Somebody s going to make money 

servicing them. 

New im Hone StBdf CouM Sbom Tod How to liidie Holier SenMi^ Repaii^ 
md Prognunniiig PefWHud aod ftnall Burioess CtM^oten 



Seems like every time you turn around, somebody 
comes along with a new computer for home or business 
use. And what's made it ali possible is the amazing 
micropro«ssor, the tiny tittle diip that's a computer 
in itself. 

Using this new technology, the industry is offering 
omipacl. affordable computers thai handle things like 
payrolls, lulling, inventory and other jobs for businesses 
of every aze. . .perform housdiokl functions including 
but^ng, environmental systems control, indexing 
recipes. And thousands of hobbyists are already 
owners, expertinenling and developing their 
own programs. 

Growing Demand for 
Computer Technicians 

This is only one of the growth factors influencing 
the increasing opportunities for qualified computer 
technicians TheL'S Department of Labor projects over 
a 100% increase in |ob openings for the decade throu^ 
1985. Most of them nw jobs created by the expanding 
world of the conpiter. 

Learn at Home 
In Your %ire lime 

NRl can train you for this exciting, rewarding 
field. TVain you at home to service not only micro- 
computers, but word processors and data terminals, 
too. IVain you at your convenience, with clearly 
written "bile-size " lessons that you do evenings 
or weekends, without ffang to classes or quitting 
your present job. 

Your training is built around the latest model of 
6k world's most popular computer. It's the amazing 
TRS^80™ Modd III, widi ca|ubilities and features b) 
perform a host of personal iuul business functions No 
odier »nall computer has so much software available for 
it, no other is used and relied on by so many people. And 
It's yours to keep for personal or business use. 

You get pienw of practical experience. Using the 
NRl Discovery lab* that also comes as part of your 
course, you build and study circuits ranging fmm the 
simplest to the most advanced. You analyse and trou- 
ble^wot using die professional Beckman LCD digital 
multimeter you keep to use bia in your work. Thai you 
use the lab and meter to aduallj' access the mterior of 
your conq)uter. . .build special circuits and write pro- 
grams to control tfiem You "sec" your computer at 
work and demonstrate its power. 




Become the Con^lete 
CooqiBter Person s., -'-^ 

You're also trained in writing ^" ^ . 
and debug^ng both BASIC and advanced 
machine language programs... gain hands-on expe- 
rience in the operation and application (rf computers 
to business and personal jds. You're trained to 
become the fully rounded, new breed of technician 
who can interface with the operational, programming, 
and service facets of today's computers. You're ready to 
lake your place in the new electronic age. 



Other 
Opportunities 

NRl has been giving am- 
bitious people new electronic 
skills since 1914. Ibda/s offer- 
ings also include TV'/Audio/ 
V«ko Sy^ems servicing witti 
training on our exclusive 
computer-programmable 
25" diagonal color TV... 
Communications Electronics 
for servicing and installing 
microwave, broadcast, 
CB, radar, etc... and 
other st:tf^of-the-a^t 
courses. 



Kn^ coupon for Free Catalog. . . 
No Salesman WlUCaU 

Send the coupon for our 100-page catalog showing 
all courses with equipment and complete lesson plans 

There's no obligation other than to wurself See now 
NRl can help you grow with the most exciting and 
important new field of the 80's. If coupon has been 
removed, please write to NRl Schools, 3939 Wisconsin 
Ave, Washington, D.C, 20016. 





NUSchook 

McGraw-Hill Cmitinuing 

Education Center 
5939 Wisconsin Avmue 
Washin^on, DC. 20016 

IKe'U give yoa Kmkwtow. 

NO SALESMAN Will CALL. 

Please check for one free catalog only 

D Computer Electronics including 

Microcomputers 
D Cofor TV, Audio, and Video System 

Servicing 
D Electronics Design Ifechnology 
D Digital Electronics 
D Cwnmunicalions Electronics • FCC 

Licenses • MtAile CB • Aircraft • Marine 
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DATA MANAGEMENT 



Use them for more efficient handling. 



All About Program Files 



A. J. Barnard. Jr. 

J. T. Baker Chemical Company 

Phillipsburg. NJ 08865 

A. David Barnard 

Rensselaer Polytechnic Institute 

Troy, NY 12181 



Managing a small data base with 
cassette storage and a Model I can 
present problems. One problem is the low 
rate for data transfer and the limited 
reliability of the tape system. This problem 
is eased by hardware and software fixes 
such as the T&8 cassette operating 
system. 

A second problem stems from the 
nature of the records forming the data 
base. If the records are of variable length, 
alphanumeric, and not closely formatted, 
difficulties are magnified in the use of 
either data statements or a separately 
maintained cassette file; memory over- 
head for arrays and strings may be sub- 
stantial. 

With such records, a third approach car) 
be considered— use of a program file. 

The Program File 

In a program file each record is stored as 
a statement against a line number. A pro- 
gram file becomes especially attractive If 
values for a significant parameter can be 
encoded as line numbers. For a program 
file, all the built-in, line-oriented sub- 
routines of the programming language are 
available, notably the arrangement of rec- 
ords by the line- number-encoded para- 
meter regardless of entry order. In this re- 
spect, a program file is a linked file. 

A PEEK routine that steps through the 
file retrieves records from a Basic program 
file. When a line number in the search 
range is found, the associated record is 
recovered, manipulated and displayed by 
the string-handling capabilities of Basic. 

Each record is entered against its ap- 
propriate line number just like a program 
statement with one important difference: 



A double quotation mark must be entered 
following the line numtrar and before the 
proper record. The record is stored in the 
ASCII values of the characters and any 
embedded Basic key word (e.g.. On, And, 
End) or control character Is not interpreted 
as such. The double quotation mark en- 
sures clear printing. 

R«tri«v«l of Records 
from a Basic Program File 

The elements of a program to retrieve 
records from a Basic program file are 
highlighted by Program Listing 1. Line 
clears space, principally for the string R, in 
which a recovered record is placed. Line 
also defines the Integer and string 
variables and then GOTOs the operating 
program at line 5000. Lines 1 through 4999 
are thereby reserved for the program file. 
The first and last records, FR and Lfl, to be 
retrieved are input In response to lines 
5000 and 5010. Line 5020 checks for entry 
errors. 

The pointer to the start of a Basic pro- 
gram Is at decimal address 16548 (40A4H) 
(least significant byte) and 16549 (40A5H) 
(most significant byte). For the standard 
Model I with 16K the location pointed to is 
17129 (42E9H). This location X, and the 
next one, X^■1, hold the two-byte pointer 
to the address at which the next line 
begins. 

The next two positions, X -f 2 and X -t- 3, 
contain the two-byte value of the current 
line number, L. The statement associated 
with this line numtjer begins at X -t- 4 and 
ends with a null byte (character code zero). 
This description explains the sequence of 
line 5030 (address, first line), 5040 (line 
number, current line), 5060 (if line number 
in scan range, reading of record into string 
R until null byte is reached), and 5090 (ad- 
dress, next line). 

The string R is printed by line 5080 with 
the line number, and R is nulled for reuse. 
Line 5050 checks if the current line number 
Is within the search range. If below, the 
scan continues by lines 5120, 5040, and 
back to 5050; if beyond, a new search is 



prompted (lines 5i 10. 5120 and back to 5000). 
If the records of the program tile, for ex- 
ample, held employee information by an 
alphabetically ordered time card number, 
the first two records might read: 

VAARON, MOnmS: HIREO 7/18/75; D€PT 10 
9"ALBERS, KARL: HIRED 12(15/60; ON LEAVE 

A search for card numbers from one to 
nine or beyond would retrieve and display 
the same data. 

This simple program can be applied to 
various small data bases by manipulating 
the string in which a retrieved record is 
placed. A practical restriction is that the 
program with an embedded file should 
CLOAD In not much more time than it 
takes to read an equivalent cassette file 
into a previously loaded program. 

With 16K memory, an operating program 
should probably be less than 2.5K long and 
be packed by the use of multistatement 
lines, single-letter variables, DEF state- 
ments, etc., and by brevity in prompts and 
headings. The records should be tele- 
graphically styled including abbreviations, 
acronyms and codes that can be replaced 
by full statements using If. . .Then. . .Else 
sequences or lookup arrays. 

Program Listings 2 and 3 present two 
practical programs highlighting the use of 
Basic program files. They are tailored to 
the TRS-80, but can be adapted to other 
computers using Microsoft Basic. The 
listings have been made with line feeds 
and indents to improve legibility, but the 
programs should be entered without these 
niceties In order to conserve memory. 

Dally Diary 

Program Listing 2 is a daily reminder 
program. Lines 101 through 6031 are 
reserved for the program file and these 
numbers encode the month and day for a 
five-year period. For example, lines 101, 
1301 and 4901 store the notes for January 
1 for the first, second and fifth years. Year 
one Is set as Y1 in line 10. The operating 
program consists of lines one through 85 
and in execution requires only 1.8K of 
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"One problem is the low rate for data transfer 
and the limited reliability of the tape system." 



memory with a record as long as 120 
characters. 

The search routine delineated by Listing 
1 appears in lines 40, 45 and 50. The first 
and last dates (FD and LD) to be scanned 
are entered in response to line 20. By lines 
20-25, the scan range is placed in string W, 
which is used as a heading. The dates are 
encoded as line numtjers by the expres- 
sion for C in line 25. Line 30 checks for en- 
try errors and a response requires that the 
entered range Is the intended one. 

A retrieved record, as string R, is analyzed 
by lines 55 and 60. First, introductory spaces 
or double or single quotation marks are 
stripped. Then, if the third character in the 
resulting string is a colon, the first two char- 
acters are placed in string S, which is then 
checked by line 60 for a code. For example, 
it "HO: begins a record, then Holiday is sub- 
stituted. The codes can be personalized, 
codes can be personalized. 

Line 66 converts a line number to the 
month, day and year, which is displayed as 
string V {"##/##/##") (line 5) by the PrintUs- 
ing instruction. 

Line 65, beginning with :MK = M, and 
line 70 form a day-of-week routine correct 
to year 2000. The abbreviation for the day 
taken from string T (line 5) is placed in 
string U by line 70. (To eliminate the day-of- 
week feature, delete the final statements 
of line 65, line 70, and the U; In the LPrlnt 
and Print statements of lines 75 and 80.) 
11 a printout is requested, flag H is set 
(line 35) and the LPRINT statements of lines 
of line 65, line 70, and the U; in the LPRINT 
and Print statements of lines 75 and 80.) 
and 75.) 

The display Is secured by line 40 
(heading) and line 80 (records). When the 
counter J for the number of displayed rec- 
ords exceeds eight (line 80), press Enter for 
the next frame. After each record is printed, 
strings S and R are nulled for reuse. When 
the search Is complete, line te prompts an- 
other. A daily diary tile might start: 

lOTHONEWYR DAY-RUTH'S- >OtNNER 

115''PD:IHS4^4ESTTAX 

1 17''CALL JIM ABOUT FEB SKI WKEND 

If Y1 =81 {that Is, 1981) In line 10, then 
the CRT display for a scan from 1,1,81 
through 1,17,81 would be; 

-SCAN in/ai->in7/Bi- 

inmi-THR-HOLIDAY-NEW YH DAY-RUTH'S-DINNEH 
inS/ai-THR-PAYMENT DUE-IBS 4(4 EST TAX 
1/17(81 -SAT-CALL JIM ABOUT FEB SKI WKEND 

If the diary becomes too long for a con- 
venient CLOAD, the tile for a completed 
period, say, six months, can be kept (with 
the operating program) as a separate tape 
by the use of the Delete and CSAVE Instruc- 
tions. Then only current entries need t>e 



updated and searched. 

Stamp Invsntory Program 

Program Listing 3 Is an inventory pro- 
gram for a philatelic collection. The col- 
lection ot stamps, o< course, must ob- 
viously be sufficiently valuable, extensive. 



or active to warrant computer manage- 
ment. 

The operating program occupies lines 
and 60000 on, and lines 1 through 59999 
are reserved for the program tile. The line 
numbers encode the catalog numbers of 
the postage stamps. The records need not 



CLEAR 300: DEFSTR Q, 8, S: DEFINT F, I, T 

: CLS: GOTO 5000 
5000 INPUT "SCAN FROM RECORD "; FR 
5010 INPUT" TO RECORD "; TR 

5020 IF FR < 1 OR TR > 4999 OR TR < FR THEN 5130 
5030 X = PEEK(1654fl) + 256*PEEK (16549) 
5040 L = PEEK(X + 2] * 256*PEEK(X + 3) 

5050 IF L < FR THEN 5090 ELSE IF L > TK THEN 5110 
5060 FOR I - X + 4 TO X + 255 

: IF PEEK(I) > THEN R = R + CHRS (PEEK ( I ) ) : NEXT 
5070 IF LEFTS(R,1) = CHRS(34) THEN R = 

RIGHTS{R,LEN{R) - 1) 
5080 PRINT L; "-"; R: R = "" 
5090 X = PEEK(X) + 256*PEEK(X + 1) 
5100 GOTO 5040 

5110 INPUT "ANOTHER SCAN (Y/N)"f Q 
5120 IF Q - "Y" THEN CLS: GOTO 5000 ELSE END 
5130 CLS: PRINT, "ERROR OR MISMATCH" 
: PRINT: GOTO 5000 

Program Listirtg 1 



5 CLEAR300:DEFINTD-K,H,y:DEFSTRP-W,Z 

:V""» »/#»/## ":T="SATSUNHONTUEWEDTHRFRI' 
:P="DAILY DIARY - BY A.J. & a.D. bARNARD" 
10 Y1-81:'Y1 SETS YR ONE 

15 CLS!PRINTPiPRINT,yl-»-19B0r'-";Yl-fl90 4!PRINT 
20 INPUT-SCAN FBOH MM,DD, YY" fOl ,D2 ,D3 :GOSUB25 : SF=Z 
:FD=C:INPUT- TO MM,DD,YY" jDl ,D2 ,D3:GOSUB25: SL'Z 
:LD=C:W-"- SCAN--t-SF+' — >"+SL+" -■:GOTO30 
25 Z=STRS{Dl)-f"/"+STR$(D2)+"/"+STRS{D3) 

:C•■lflfl*(Dl■H2*(D3-Yl))■^D2: RETURN 
30 1FFD<101ORLD>6031ORLD<FDTHENPRINT, ■ ERROR 1" 
:GOTO20ELSEPRINTW;: INPUT" (Y/N) "iQ 
:IFQ-"N"THEN2BELSEIFQ<>"Y"THEN30 
35 INPUT"PRINTOUT ( Y/N) " fQ: IFQ="N"THENH=0 

ELSEIFQ<>"Y"THEN3 5ELSEH=1:LPRINTW 
40 CLS : PRINT, W:J'-1:X=PEEK{ 16548) ■«-256*PEEK (16549) 
4 5 L=PEEK(X+2) +256*PEEK CX+3) : IFL<FDTHEN50 

ELSEIFL>LDTHENB5ELSEFORI=X+4TOX-f255 : IFPEEK { I ) >B 
TBENR*H+CHRS ( PEEK ( I ) ) : NEXTELSEG0T05 5 
50 X-PEEK(X}-f256*PEEK(X-H) !GOT045 

55 K=LEN{R) !RL=LEFTS(R,1) :IFRL=" "0RRL=CHR5 (34) OR 
RL-" '"THENR^RIGHTStRfK-l) :GOT05 5ELSEIF 
MIDS(Rr3,l)=":'THENS=LEFTS{R,2) : R=RIGHTS (R,K-3) 
60 I FS-"HO'THENS-' HOLIDAY- "ELSEIFS="VA"THENS= 

"VACATION- ■ELSEIFS="BI'TH EN, S=" BIRTHDAY- "ELSEIF 
S="PD"THENS="PAYHENT DUE-" 
65 F-INT(L/100) :G=INT(F/12.1) : D=L-100*F : Y=Y1+G 
:H=F-12*G:HK=M:yK=Y-»-190a:IFHK<3THENHK=HK + 12 
:YK-YK-1 
70 N=YK+D+1+2*MK+INT( [MK+1) *3/5) +INT(YK/4) 

:E=INT{N-7*INT(N/?)) :U="-"+MIDS (T, E*3+l ,3) ■»-"-" 
75 IFH=1THENLPRINTUSINGV;M,D,Y; : LPRINTU; S; R 
80 PRINTUSINGV;H,D,y;:PRINTU;S;R:S=■■:R=■■:J=J■^l 
:IFL=LDTHEN85ELSEIFJ<8THEN50ELSEPRINTe936,; 
:INPUT"HIT =ENTER'= TO GO ON" ;Q:CLS : PRINT, W 
:J=1:GOTO50 
85 INPUT-NEW SCAN ( Y/N) " ;Q: IFQ="Y-THENl 5ELSEEND 
100 ' * LINES 101-6031: NOTES FOR 5 YRS * 

Program Listing 2 
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"The collection must be sufficiently valuable 
to warrant computer management." 



be formatted; with a colon separator 
however, fields can be displayed as 
separate lines and. beyond the first line, 
with an indent. In this way, different 
aspects of a collection are highlighted. 

The Scott catalog system is the most 
common one in the United States. Unfor- 
tunately a Scott nLimber consists of a 
numeral with one or more prefixed letters. 
The prefix denotes the stamp type (regular 



and commemorative issues have no 
prefix). This difficulty is resolved by the 
use of numeric offsets. For example, the 
first airmail stamp of any country has the 
Scott number 01; its record is stored 
against line 4401, that is, one plus the off- 
set of 4400. The prefix/offset system 
established by lines 60020-60030 is ade- 
quate for the stamps of the United States 
and most countries of the British area of 



CLS:GOTO60000 

60000 PRINTTAB(8) "STAMP HOLDING" 

:PRINT, "PROGRAM - A.J. fc A.D. BARNARD" 

: PRINT:CLEAR300 :DEPINTF-K ,M-N 

:DEFSTRP-W,Y;DIMT(44) ,M(44) 
60010 S-" (OWNER) -{HM/DD/YY) - (COUNTRY) -> " 

:Pl-"(#)":P2-'(«)" 
60020 FORI-0TO44:READT(I) ,H(I) :NEXT 

jDATA-", 0,AR, 4000, B, 4200, C, 4400, CB, 5400, 

CE, 5500, CO, 5600, E, 5700, EO, 5800, F, 5900, 

FA, 6000, J, 6100, JQ, 6500, K, 6700, L, 7000, 

LO, 7300, M, 7400, MB, 7500, HC, 7600, MO,7700, 

HR, 7800, N, 8000, NC, 8400 
60030 DATANE, 8500, NJ, 8600, "NO", 8700, NR, 8800, 

NRA, 8900,0, 9000, OY, 9500, P, 10000, PN, 10300, 

PR, 10400, Q, 10600, QE, 10700, RA, 10800, 

RAC, 10900, U, 11000, UC, 12000, UO, 12100, UX, 

13000, UXC, 13100, UY, 13200, UZ, 13300, "",13400 
60040 PRINTS;Plf" - ";P2:M-0;PRINT 

:INPUT"SCAN SC t (WITH ANY PREFIX) ";QF 

:INPUT" TO t {WITH PREFIX) ■;QL!QT=QF:QP»'"' 

:GOSUB60050:QF»QP:N1-N:QT=QL!QP""" 

:GO5UB60050:QL=QPiN2-N:GOTO60060 
60050 IPASC(LEFT5(QT,1))<-64THENN-VAL{QT) 

:RETURNELSE0P"QP+LEFT$(0T,1) :QT"MIDS(QT,2) 

:IFQT-""THEN60200ELSEGOTO60050 
60060 IFQP="W"ORQL="W"THENQP-"U":QL»*U" 

ELSEIFQF<>QLORN2<NlORNl<0THEN602fl0 
60070 FORI=0TO44;IFOF-T(I)THENM«M(I) 

:HX=M(I+l)-H-l!GOTO60080ELSENEXT:CLS 
:PRINT,"NO PREFIX " jQF:PRINT!GOTO60040 
60060 IFN2>MXTHENCLS;PRINT,N2;"BEYONO " 

;QF;" RANGE" :PRINT;GOTO60040ELSE 

W-QF+STRS(N1)+" - "+0L+STR$(N2) 

:N1«N1+M:N2=N2+H 
60090 PRINT; INPUT"PRINTOUT (Y/N)";Q 

:IPQ-"N"THENJ=0ELSEIFQ<>"Y"THEN60090 
LSEJ=1:LPRINTS;W:LPRINT 
60100 CLS:PRINTS;W:PRINT:F>0 

:X«PEEK ( 16548) +256*PEEK{16549) 
60110 L-PEEK(X+2)+256*PEEK(X+3) : IFL<N1THEN60180 
ELSEIFL>N2THENGOSUB60190:GOTO60040 
ELSEG=0!RF="":R»"-:PORI=X+4TOX+255 
: IFPEEK ( I ) >0THENR=R+CHRS ( PEEK ( I ) ) ; NEXT 
60120 U=LEPTS(R,1) :IFO«CHRS(32)ORU-CHRS(39)OR 

U=CHRS(34)THENR-HIDS(R,2) :GOTO60120 
60130 F0RI=1T0LEN(R) :IFMIDS(R,I ,1) -" : " 

THENG«G+1:RF-LEFTS(R,I-1} !R=HID$(R,I+1) 

ELSENEXTiRF=R:R»"":G=G+l 
60140 IFG«1THENY»QF+STR?(L-M» 

ELSEIFG"2THENy-CHR$(LEN(Y)+192) 
60150 F-F+1:IFF=9THENF-1:GOSUB60190 

:PRINTS;W:PRINT 
60160 IFJ-ITHENLPRINTY;" - "jRF 
60170 PRINTY;" - ";RF: IFLEN(R) >0THEN60120 
60180 X-PEEK(X)+256*PEEK(X+1) :GOTO60110 
60190 PRINT9935,;:INPUT"HIT -ENTER- TO GO ON" 

;Q:CLS: RETURN 
60200 CLSiPRINT,"HISHATCH OR ERROR" 

:FRIHT:GOTO60040 

Program Listmg 3 
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October Discount Speciab! 

Software 



U 



FEATURE SPECIAL Reflec-TRS' by Elf » 

fhf f>?w ^heilienge lo your ikill dfid logic If yuuve 
iTuridged to rrid^ter tf^te level II BidCk Box then look at 
Reflec TRS a', a uni^^rse Deyi:>nd" in mental concen- 
tration and stimulation. . .a feai mind binden \A'n[ien (or 
one Of two players Board sr/e and number of 
marke'S. . . from ^ to 8 are ■^electable 
YOUVt MtJ DHE GV^F NOW MEET THE CHALLENGEI 

REFLECT-TRS. ..Stock #402 

S6 9'j for the Iming jl ID) 

S8 95 (Of the cassene (I ib ) 



Hardware 

FEATURE SPECIAL. . . "FUP SORT 

SrTX)ked acrylic du^t proof storage for !jO to 60 diskettes 

Stock No 900 tof 5 i/4' discs 22 9S |1 lb| 

Stock No 901 for 8'' discs 26 95 (I ib; 



PLASTIC LIBRARY CASE 

Stock No 902 for 5" 
Stock No 903 tor 8" 



2 45 
4 45 



COMf\JTrP AC C ESSORIES ^ND EQUIPMENT 
Stock No Pr/nirf\ 



OkidJta Microiirx" 80 |stili available} 

THE NEW A si OKIDATA 82 A 

120 cps FAST. . .Bidireaional 

with lC decerxJef 

83 A [wnh 13 inch carriage) 

Okidata microiirte 82 

Tractors 

RS-232-256 char Dul 

RS-232 2 K char bijf 

Epson Mx-80 

Centronics 737 1 |SI50 00 Rebate] 

fyiPIBSG 

Visia Daisy Wheel 

NEC 5510 Of 5630 
THE NEW 739-S WITH GRAPHICS ARE HERE, 
Shrpping inclucJed to 48 stales Blue Lat^ef to 
Ak available 



200 
211 



212 

201 

203 

204 

205 

206 

207 

208 

209 

210 



Pnce' 
S 389 00 



625 00 

895 00 

55900 

60 00 

180 00 

264 CXJ 

51500 

/iOOO 

629 00 

1.545 00 

2 845 00 

TOO CALLI 

Hi and 



MASTER GUE^S BY ELF II. StOtk No 401 

v^^'ith TT?S graphii::i to' rrx^re concentration! 

Now Just S6 95 |! lb) 
Required Equipment R S [M U or III 16 K 

BIUIST (Stock No 4001 

Billisi keeps track of bills due bills paid, cfieck numbers 
dates paid and repetitiye cash payments. . . up Jo 100 
accounts pei month Store data on inexpensive cassettes 
With a complete listing of accounts i( pfniei equipped 
Allow SIX prioniies. . . sort by name or date due, 
corTpress. delele. advises when account is fatel 

S7 95 for the listing [I lb) 

Sll 95 for tf>e cassette (i Ib) 
Rt"quired equipment R S Lvl II or ill vtnh 16 K 



RIBBONS AND WHEELS 




Stock Nv Pl't'ons 


Price Weight 


500 J/p pack LPI .1 '\- 


S17 /b/4 1 lb 


Multisirike carbon 




501 Diablo hy type 


12 95/3 Mb 


502 Qume 


9 95/3 1 lb 


50 i NEC 


20 45/3 1 lb 


MAGNt fiC MEDIA 




S:oL-; VtPBATIM W/DATALIFE 


PRICE WEIGHT 


No [with nub rings) 





1 lb 
I lb. 

1 lb, 

1 lb. 
1 lb, 
I lb 



lO.i MD ^.'S 01 26 95 

104 ■■ vt/plastic case 2795 

105 MD 525-iO 2695 

106 w/piasiic case 279'j 

107 MD 525-16 26 95 

108 ■ w/piastic cdse 2795 
10 Boxes mix or match S2S2 50 
- With plaMic cases 262 50 

109 FD 34-8000 399? 2 lb., 

(X10Si6000) 

110 with hub nng 43 95 

and hard box ixiO S400 00) 2 ib 



MEMORY CHIPS 
Stock .No 



PRICE WEIGHT 



BOO Moiorola CcraniK 16 K. 2195 

200 ns memory chips 
for mod I, El. Mod III, 
Apple, etc 

801 Shunts for Mod 1 4 00 



CAU FOR BEST PRtCES ON 

• PERCOM • NOVATION AND MORE 



■Re Printers, . . .these are our prices at the time of 

publication because of 2 month delay in publication 
they could be even less CALLi 



SHIPPING • 2 50 foi first 3 lbs . . .651 each for add.tional >b\ 
RATES • COD'S add S2 00 (U.S only) 

• Foreign orders 3 00 lb surface, S7 00 lb Air PP 

• PO Boxes - include pfione number for UPS 
Please allow one to two weeks for checks to clear 

DISCOUNT 3% Cash Discount from total |including 
shipping afxl handliftg) 
CdSh. Check. M.O. or COD 



PO Box l'>6/ Wfieal Ridge Colorado 80034 

Colorark) Residents Add 3% Smiles Ta/ 

CALL COLLECTI 24 Hour Une 1-303-431-4151 




'ATA INC. 




r'SM List 9t Aa*mrtl—n on Mff* 3M 



»^11 
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Pre* Its tcwpuwr progriss for common 
EUCmttglHS PBQgLCHS : 

• MOTOR CtMputK the •c»ler«tton 
STMT HiT» for starting electric 

no tors under ta«(l 

• PlPEllNE - Calculates pressure versus 

flowale curve Oat* [Wints 
for pip*^ ines 

■ PIPE - Analyie^ b^anc^eO piping 

OESFGIi j/tteas to <tetemine 

fIo«»r«es wO pressures 

Far HOOCL I LEVEL II 16K 
CASSEHE on 01 SIC 



WTOR STUT 
PIPELINE 
PIPE DESIGN 



S19.» 
tZ9.9S 



ALL THREE t7S.OO 

ADD 110.00 FOB BISK 
StMO CMtCK OB MONEY 0«OEB TO: 

PRACIICAl AHM.YSIS 

6518 LA MORA 
HC^S'ON. 'El. 77.->f! ►'JSe 



tNs pubycQtion 
b available in 
micfoionn 




Unlnrsily Microfilms Inttntallonal 

300 North Zeeb Road 18 Sadford Row 

OeptPR. DeplPR 

Ann Arbor, Ml 48106 London, VVC1R4EJ 

U-SA. England 



ijj^y^ ;f You've WritUn an 

^^ Kxtraontinary Program- 

We'd Like to Publish W 
Proframa needed for MANAOB- 
MENT appUcmtlona: 
PBRT ft CPU SCHEDULtNO 

ntCDicnvE HomLZRo 

DBCISION-MAKINO SOItJLATIOm 

PKODUCnON SCHEDULING 

EXPUfSB ANAX-T^ES 
Royalty checks may be in TOUR 
fatarc. Write for our free Pro- 
grammer'B Kit today. 

INSTANT SOFTWARE. INC. ^2 
ftnbmlaaloDB Dept. 
Peterboroufh, NH 034B8 



"The Scott catalog system is the 
most common one in the United States. 



specialty. If the number of offsets Is 
altered, a change must be made In the up- 
per limit of the For. . .Next loops In lines 
60020 and 60070 and in the Dinwnston state- 
ment In 60020. 

Since the program Is tightly packed and 
without remarks, explanation is needed. 
The PEEK routine of Program Listing 1 is 
incorporated into lines 60100, 60110 and 
60180. 

By line 60000 space is cleared for strings 
{the amount can be decreased if no record 
exceeds 100 characters). Integer and 
string variables are defined to speed ex- 
ecution and conserve memory. String S in 



line 60010 must be personalized by 
owner's name, country, and date of file 
entry or update. This string serves as a 
heading for a printout (line 6(X>90). The in- 
formation is important for security or 
estate purposes. Scott numbers encom- 
passed by the file are entered as PI and P2. 
Line 60040 displays the file heading and 
prompts entry of ttie range of stamps to be 
scanned, and with line 60050 separates 
each entry into its alphat>etic prefix and 
numeral. (Line 60060 converts a prefix W to 
U; collectors of postal stationery will ap- 
preciate this feature.) A check for entry 
errors is then made. 



4400 


■LINES 4401-5399 AIRMAIL 




4401 


"U F LT CANC 




4402 


"0 F:PFC{FULTON->NY12X25) ST 




4403 


■5 H F LH:4 U CDS 




4406 


"H F NH;6A SS H F:6B 11.5/llFERF U F 


FLT 


4407 


■9(N0 BA) H P LH:8A BlDSS'i SrOLOW U P 


15X180 


4410 


"M F LH:CVR FD CANC 




4411 


•M P NH TINY CR 




4412 


■U ON PC F 3 HGHS:U ON PCD G 




4413 


"15 H P LH:U P+:PDC SET ADDR F 




4416 


*M VG HISS PERF:ZEP CVR{Pl*LTN->BERLN) 


F APPEAR 


4417 


'IS M G LH CR:TBECH PR H HH:17A BLU 1} 


VG 


4419 


"H VF:BLK6 M P:U F TINY TH 




4420 


"N F NH:PBLK4 H P NH:PDC PR INADDR F: 
Program Listing 4 


20A IHPERF U F 



JOBN ADAHS-12/15/80-W. AMERICA-> SC Cl-C2i 



10 - 

11 - 

12 - 

13 - 



16 - 

17 - 



- F LT CANC 
-UP 

- PPC(PaLTOW->NY12X25) ST 

- 5 F LH 

- 4 CDS 

- « P NH 

- 4 U CDS 

- 6A SS H F 

- 6B 11.5/llPERF U P PLT 

- 9(N0 8A) M F LH 

- SA BID$85 STOLOH U F 15X180 
N P LH 
CVR PD CANC 
M P NH TINY CR 
U ON PC F 3 HGNS 
U ON PCD G 
15 M P LH 
U P+ 

PDC SET ADDR P 
H VG HISS PERP 

ZEP CVR(FULTON-BBRLN} P APPEAR 
18 M G LH CR 
TBECH PR H G KH 



- 17A BLU U VG 

19 - H VP 

- BLK6 H P 
-OP TINY TH 

20 - H P NH 

- PBLK4 M P NH 

- PDC PR UKADDR I 

- 20A IMPERF U F 



Program Listing 5 
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COMPUTER 



AUDIO 



By line 60070, the entered prefix for the 
scan range is compared with the array of 
offsets; the proper numerical offset is 
found and added to the numerals. Line 
60080 checks if the upper limit of the range 
exceeds the assigned number of lines for a 
given stamp type; if not, the scan limits are 
placed in string W for a heading. 

A retrieved record is placed by line 601 10 
in string R and analyzed by lines 60120 and 
60130. Introductory spaces Of single or dou- 
ble quotation marks are stripped. A check is 
then made for a colon in the resulting 
string; if one is found, the string to that 
point is placed in RF and the remainder left 
in R. 

Flag G Is set in line 60110. If a colon is 
, found, G Is incremented by line 60130. Line 
60140 places the Scott number corres- 
ponding to the current line number into 
string Y{G = 1) for the initial display line for 
the record. For further lines, Y is a string of 
spaces equal to the number of characters 
in the Scott number. 

The heading is displayed by line 60150 
and the retrieved records by line 60170. 
When thecounlerF (lines 60100 and 60150) 
for the displayed record lines exceeds 10, 
Enter must be pressed (line 60190) for the 
next frame. 

Line 60170 checks if the entire record 
has been printed; if not, the program 
returns lo line 60120 for further analysis 
and printing of additional fields. 

If a printout is requested (line 60090), 
flag J is set and the LPRINT statements of 
line 60090 (headings S and W) and 60150 
(retrieved record) are executed. (If a line 
printer is not used, delete this feature.) 

Use of this program is exemplified by 
Program Listings 4 and 5. Listing 4 is a 
contrived program file for airmail stamps 
of an imaginary country. Listing 5 presents 
a typical heading and the printout for this 
file. Stamp collectors will be familiar with 
the tricks used to compact records: well- 
accepted abbreviations, listing of sets ver- 
sus single stamps, appending minor 
varieties that carry suffixed letters, etc. 

The offset system can be extended to 
revenue stamps (e.g., with line numbers 
20000 on). Secondary stamp-issuing en- 
tities can be included by added offsets; for 
example, the U.S. administration of the 
Philippines could be given the non-Scott 
prefix PHI. 

This article has focused on the 
usefulness of Basic program files in the 
microcomputer management of small data 
bases with cassette storage. Program files 
effectively pack data and have special 
merit with loosely formatted records and 
where values for a significant parameter 
can be encoded as line numbers. ■ 

^See List ol Advetlisers on page 386 



CASSETTES ^^ CASSETTES 





LENGTH 12PAK 24PAK 

C-05 69« 49« 

0-10 79« 59« 

C-20 99« 79« 



LENGTH 12PAK 24PAK 

C-30 1.19« .99« 

C-60 1.49« 1.29« 

C-90 1.69c 1.49« 



• 100% EBFIOR FnEE»FUaYQUARANTEED«SUPERK>R5«:HEW CONSTRUCTION* 

• HIGH FREQUENCY RESI>ONSE«VERY LOW NOISEaWIDE DYNAMIC RANGE* 
> USED BY SOFTWARE FIRMS, HOBBYISTS AND RECORDINQ STUDIOS NATIONWIDE • 

• BOXES SOLD ONLY WrrH CASSETTES IB* EA«$2.X PER PAK SHIPPING* 



C.O.D. HOTLINE 1-206-675-6143 



MICRO-80' INC. . 

E-2665 BUSBY ROAD • OAK HARBOR, WA 98277 



96K CP/M® 

(For your TRS-8(r Model II) 
Multiple Job Executive 

Add a whole new dimension to your 
TRS-80 Model II. Let it work while you 
work!! 

ATON's unique JobStream'" CPyM 2,2, along with additional RAM memorv, allows you to 
simultansouslv compile, assemble, or link in one 64K background partition (&2K TPA) while you 
edit files, and spool to the printer, and communicate with another computer in up to four 32K 
foreground partitions (Z8K TPA). 

As you expand your memory beyond 32K, you can also enter the amazing world of TrackMode 
BIOS'" whic^ not only muhipliss diskefle spstd up to fivi timn, but also automatically performs 
read after write checks for the ultimate in data reliability. 

• Gain hard disk performancs tor a fraction of the cost— and no backup probltmsli! 

•Works in 32K, add RAM memory to Z56K using standard Radio Shack memory boards. 

■Supports two sidad oxpansion disk drivas (1.2 megatiytes per diskette). 

JofaStream CP/M 2.2 (with Z-80** Debugger) $235 

Video Text Editor $130 

Z-80 Debugger Source Code S SO 

Package of above (a $415 value) $295 




"Software with Service" 




on 



nternational, Inc. 



Prspsid, Visa, MasterCard or COD 
Shipping and handling axtra. 
California residents add 6% sales tax. 

CP/M' Digital Research, Inc 
""Tandy Coip "'"Zilog Corp 
JohSlnam, TrackMode BIOS" ATON Inll. 

260 Brooklyn Avenue, San Jose, CA9512B 

^398 (408)286-4078 
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GENERAL 



Is anybody there. . . does anybody care? 



Adventures in Modemland 



Fnd Btechman 
7217 Bemadine Ave. 
Canoga Park, CA 91307 



In Part I of "Adventures in Modemland" 
I described how I got my TRS-80 con- 
nected to my telephone using the Micro- 
connection modem from The Microperi- 
pheral Corp. Now I could communicate 
with microcomputer bulletin boards all 
around the country. Assuming I could only 
contact other TRS-dOs 1 looked over a list 
of 133 bultettn boards from The Micro- 
peripheral Corp. and found several that 
looked TRS-80 oriented: Forum-80, 
Comm-80, lnfo-80, Hobblest-80 and 
EngJneer-80. The closest was Fullerton, 
CA— the Comm-80 bulletin board of the 
Orange County TRS-80 Users Group (OC- 
TUG). 

I reduced my equipment to the bare 
bones for modem operation. The Micro- 
connection was ribbon-cabled directly to 
the TRS-80 keyboard card edge. My 
parallel printer and Exatron stringy/floppy 
tape storage unit, normally connected to 
the keyboard, were disconnected. I didn't 
want any interaction to create problems— 
I was contused enough already. See Fig. 1 
for the minimum configuration. 

Modem Encounler off The Ftni Kind 

I plugged in the Microconnection wall 
transformer, and made sure the telephone 
was connected. I loaded the S80 software 
program (provided with the Microconnec- 
tion) into the TR5-80 using the cassette 
recorder When the screen asked for(H)alf 
or (F)ull Duplex command, i typed in F. The 
screen went blank except for a cursor In 
the upper left corner. I put the Microcon- 
nection modem In the Simplex/Data mode, 
and random characters (created by the 
dial-tone) and line noise appeared on the 



This is the second artide by Fred Bhchman 
about modems: the first was The Microcon- 
nection 80 Microcomputing, August 1961. 
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screen. When I pressed a key that 
character appeared on the screen; this 
meant my modem was ready. I put the 
modem switches In the Duplex/Voice posi- 
tion, picked up the phone handset and 
dialed the OCTUG Comm-60 phone 
number, (714-S26-3687). It answered 
almost Immediately with a click and a 
steady tone. 

I quickly set the Microconnection to the 
Ouplex/Data mode. This transmitted a car- 
rier of the proper frequency to the modem 
at the other end of the line, letting the 
Comm-80 system know I was In contact. I 
hung up the telephone handset and con- 
tact continued through the modem. Aftera 
couple of Enters from my keyboard, the 
Comm-80 started asking questions. 

When OCTUG Talks, I Uttont 

I had no experience with bulletin boards 
and no instructions of any sort. I just 
muddled through the questions, giving the 
best answers I could think of. The first 
question (Do You Need Linefeeds, Indicate 
yes or no"?) I ansvrared no. Then the 
screen gave a basic description of the 
system. It asked my first name, last name, 
and location. It repeated my inputs on the 
screen and asked for confirmation. The 
screen showed I was being logged onto 
Comm-80, with the date, time and caller 
number. When asked if this was my first 
time on the system, I answered yes. I was 
then asked if I wanted more information on 
the system; I replied yes and was told that 
Comm-60 Is running on a TRS-80 with 48K, 
two MTI/MPI disk drives, TRSDOS 2.2, a 
Radio Shack RS-232-C, Centronics Micro 
Pi printer, a Novation CAT modem, auto- 
answer hardware from Computer Control, 
and software from Faulk and Associates 
Software. 

This was followed by an Invitation from 
OCTUG to use the system any time 24 
hours a day, seven days a week. A simple 
command menu was then printed: 

E— Entar a M««fl«g« 
K— KIM a Msasao* 
H—H«lp. Raprint this List 
R— Ratrlava a Massaga 



8— List summary ol massagas 
Q-Ouick Summary (MSQ « & Subjact) 
W— Radlsplay tha Walcome Massaga 
T— Tarmlnata tha Sasston 



Conluskm and Panic 

Although all this was happening at only 
300 baud— about 30 characters per sec- 
ond-many lines were short. This meant 
that one, two or three lines a second were 
being generated on the bottom of the 
screen, pushing old lines off the screen. 
Without my printer connected, I had to 
read (and try to understand) too quickly for 
comfort. So I entered a T from my keyboard 
to terminate the session. The screen 
showed "User Logged Off Comm-80," gave 
the date, time, and total time on system (in 
hours, minutes and seconds) and discon- 
nected. I put the Microconnection in 
Duplex/Voice model to disconnect at my 
end. 

I called lnfo-80 in Seattle, but got hung up 
In the system, so I disconnected. After a 
couple of Forum-80 calls I started to get the 
hang of It. I found I was able to read mes- 
sages within various categories (miscellan- 
eous, personal, commercial, system bulle- 
tins) and I could enter messages of my own. 

Non-Standardization 

My confusion was caused mostly by the 
non-standardization among different 
systems. Various control keys and com- 
mands are used. The TRS-80 does not have 
a Control key; instead you use a combina- 
tion of a letter key with an Up-Arrow, but 
not always. Some use Shift and Key or 
Down-Arrow and Key. Some Just use the 
letter alone for control during receiving, 
but as a command when responding to a 
question. Without experimentation or 
documentation on a particular system, 
you can waste a lot of time (usually at long- 
distance rates). Command letters can be 
particularly confusing. To end a session, 
you might need a T to terminate, a B for 
bye, or a G for goodbye. Don't use an E for 
exit or end, since E usually means enter 
(for leaving a message). Sometimes a B 
means bulletins instead of bye. And G, 



'. . . computer communication over phone lines is by 
standardized character code (300 baud ASCII). . . " 



R/S 26-1411 
PRINTER IKTERFftCE 
CABLE ASSEMSLf 




KEYBOARD SLOT 




(LEVEL 1 OR n 4K1 



TO SERIAL PRINTER 



Fig. 1 



Table 1 

Typical Apple Bulletin 

Board System Commands 



Function: 

(A, B, D, E, G, H, K, L, N, Q, R, S, T. V, W, X, ?) ?H 1 

Enter your Choice: 

'ALL' For Complete Review 

'CTRL' For CTRL Characters, or 

'A, B, D, E, G. H, K, L. N. Q, R, S, T, W. X, ?' tor Individual Response. 

(C/R) to return to program 

?ALL 

Foilovi/ing is a brief list and description ot the commands and their usage: 

CTRL E— Retypes current line up to present position and allows you to con- 
tinue from that point. 

CTRL H (backspace)— Allows you to backspace one character at a time and 
prints A 'i' followed by the character you are backspacing over. This is the 
same routine as Is used for delete or rubout Instead of true delete. (For the 
benefit of printers) 

CTRL U (forward arrow)— Starts you back a1 the beginning of the current line 
being typed (i.e. start over). 

(C/R) to continue, (E) to end ? 

A— Apple 40 column. Normally you would be allowed 64 characters per line. A bell 
will sound at 59 and on up to 64 columns at which point you would be forced 
on to the next line of text. In the Apple 40 mode, the bell will ring at 35. then 
again at 38 and 39, dropping you to the next line at 39. To avoid an extra blank 
line because of the 40th character, 39 was used instead of 40. 

B— Print bulletin. Prints bulletins at beginning of program. 

(C/R) to continue, (E) to end 7 

D— Duplex SwUch. Alternately selects full or half duplex operation and informs 

you of current status. Table commuos 



used for goodbye on some systems, is 
used for graphics on Forum-80. Also, the 
same letter can have entirely different 
meanings as sub-commands within a 
single system. 

Adding the Printer and Stringy/Floppy 

With a few contacts under my belt, I 
decided to add the printer so I could have a 
printout of what was happening on the 
screen. I have an Okidata Microline-80 
printer with a Centronics-compatible 
parallel interface, so I'm able to use a Radio 
Shack Printer Interface Cable (#26-1411) 
without modification. 

Since I don't have an expansion inter- 
face and the Microconneotion was already 
plugged onto the card edge at the left rear 
of the keyboard, I used a two-for-one bus 
extender from Exatron. This is a five-inch 
long 40-wire ribbon cable with a 40-pm 
male card-edge connector on one end, a 
40-pin female card-edge connector on the 
other end, and a 40-pin male card-edge in 
the center. This allows you to connect two 
40-pin cables to the keyboard in parallel. I 
connected both the printer interface cable 
and the Microconnection cable to the 
keyboard using a bus extender. To use the 
printer with the S80 software, press the 
Shift, Up-Arrow and P keys at the same 
time. To stop printing, press the Shift, Up- 
Arrow and S keys at the same time. 

Next, using another two-in-one bus ex- 
tender, I added the Exatron String/Floppy 
tape storage unit. I made a copy of S80 on 
a String/Floppy wafer, and it loads the S80 
program in a few seconds. The system, 
with printer, Stringy/Floppy and Microcon- 
nection connected parallel to the key- 
board, worked just fine. No crosstalk or in- 
terference has been noted even after 
several months of operation. 

Talking to an Apple 

I noticed several bulletin boards listed 
that were local phone calls— but they were 
all listed as ABBS. (Apple Bulletin Board 
System). I knew an Apple used a different 
Basic than a TRS-80, and that the screen 
on a standard Apple computer showed only 
40 characters on a line, although the TRS-SO 
had 64 character lines. I dialed the Canoga 
Park ABBS at (213) 340-0135. Everything 
worked perfectly; I have since found that 
computer communication over the phone 
tines is by standardized character code 
(300-baud ASCII} using standardized 
frequency-shift keying (Bell 103), so any 
computers using these standards can talk 
to each other^Apple, PET, TRS-80, OSI, 
etc. 

My first session with the Canoga Park 
system yielded a four-foot long printout In 
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Ttbl9 contlniMd 

E— Enter message. Allows you to enter a message into system. Enter com- 
mands are basically self explanatory. A carriage return (C/R) at this point will 
list out the command menu for entries. The change command allows you to 
change an entire line but not just change part of it. Make sure when you are 
done with the message to save it to disc with the 'S' command. 

(C/R) to continue, (E) to end ? 
Q— Goodbye. Exit program. 

H— Help. Prints this routine. 

K— Kill a message. Enter this to delete a message from the file. A password 
may be necessary if one was used at the time of message entry. 

L— Line feed on/off. Normally on. For terminals that need an extra linefeed 
character to advance to the next line. 

(C/R) to continue, (E) to end ? 

N— Nulls. Adds an extra delay after a carriage return to allow printers time to 
move the printerhead back to starting position. This option only works with 
the line feed option on. Each null Is equivalent to 30 milliseconds delay and is 
adjustable from 1 to 30. It defaults to one. 

Q— Quick scan. An abbreviated scan See 'S'. 

R— Retrieve messages. Allows you to retrieve a message from the file. 

(C/R) to continue, (E) to end ? 

Tabl» conUnuas 



seven minutes and six seconds— and that 
included the time I spent scratching my 
head trying to figure out what to do next! 
Now I had the command and control codes 
for a typical ABBS system. (See Table 1 for 
main commands and control characters.) 
Additional sub-commands are descrlt}ed 
during specific functions If you hit Enter 
instead of entering a command. 

I called another local system— the 
Woodland HIils ABBS at (213) 346-1849. 
This system Included an automatic log-on 
function and a Chat mode. Typing a C as a 
command alerted the system owners (if 
they were available) who could use their 
Apple keyboard to send a message In real 
time; I'd answer from my keyboard. It's like 
RTTY (radio teletype) but uses the video 
screens Instead of printers. 

A Visit to the Big Appta 

Since this system was located only a 
few miles away, I made an appointment to 
see It In operation. I couldn't believe how 
simple it was: An Apple II with 48K RAM, 
two disks, a 12-inch video monitor and a 
D.C. Hayes auto-answer modem are con- 
nected to a standard telephone. When It 
rings, the auto-answer modem triggers the 
computer. The disk-based program was 
purchased for about $40 from Rainbow 
Computing in August 1980. No user's guide 
is necessary, since the program is self-doc- 




,v^c^' 
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INTRODUCING THE FIRST PASCAL COMPILER 
FOR TRS-80* MODEL I AND MODEL 



« « 



• FAST ONE PASS RECURSIVE DESCENT DESIGN 

• CONFORMS CLOSELY TO ISO DP 7185.1 

• SYNTAX ERROR CHECKING 

• ACCESS TO TRS-80 GRAPHICS AND RANDOM NUMBER GENERATOR 

• COMPLETE DOCUMENTATION 

• RUNS UNDER IRS DOS 

SEND ChEC« or MONFV ORDER - 6% SALES lAX FOR CALIf ORDERS 



*IRS-80 tS A TRADEMARK OF TANDY CORP. 
**MINIMUM 32-K AND SINGLE DISK DRIVE 



ONACKI SYSTEMS 

5161 COLE ST, 

SAN DIEGO, CA 9211 7 



ONACKI 



^^427 
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RACET SORTS — RACET UTILITIES — RACfT computM — RACET SORTS — RACET UTILITIES — RACET computas — RACET SORTS — RACET UTILITIES — RACET computoa — 

I 




FIELD PROVEN!! 

10 MEGABYTES and MORE for the TRS-80* Model II 
plus SHARED ACCESS to HARD DISK DRIVE 



^ RACET COMPUTES "3 



Ei CIRCLE READER REQUEST FOR FREE 24-PAGE CATALOG CHECK, VISA, M/C, C 0, PURCHASE OROEH ^^ llWwfc I UUHdrU I CO ~^ ^^^ 

^ -TflSeO IS A TRADEMARK OF TANDY COfiPORAriON TELEPHONE OROeHS ACCEPTED (7141 997-48M 1330 H GUSSELL SUITE M OUHGE C 

RACET SORTS — HACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes — RACET SORTS - RACET UTILITIES - RACET computas — 



^ Hard/Soft Disk System (HSDS) Softwira allows access as single drive. You can have that 10 Megabyte continuous file - that 50,000 name maiiiist or inventory! » 

° Or a directory with 1000 entries! All completely compatible with TRSDOS 2.0 BASIC. You can mix floppy and hard disk drives. Includes special utilities including & 

\^ HPURGE, DCS Directory Catalog System, HZAP Hard Disk Superzap, and many special formatting options. Three to eight times faster than floppy! RACET quality < 

o f 

S HARD DISK DRIVE ft CONTROLLER $5995. Second Ussr $595. HSDSSottwtre $400. (Note: HSDS now also available for CORVUS drives!!) ' 

I KFS-BO (1-drive 32K Min - Mod 11 64K} Mod I and III $100, Mod II $175 g 

S Assembly language ISAM facility! Interlaces with BASIC- Very fast access to records in large files. Access/insert times 1 -4 seconds. 3 

t B-Tree directory structure eliminates record search. No file reorganization required. Sector buffering reduces media and drive wear while increasing performance, 5 

H Can be used for primary and secondary file database applications. Records are kept in sorted order on disk by alpha key. Deferred write option. Comprehensive tu 

^ file maintenance and debugging utilities are included , Attention ippHcatlons progf immers - Save time in implementing your custom database application software. ^ 

o MAILLIST (1 -drive 32K Min - Mod II 64K} Mod I ind III $75, Mod II $150 '^ 

£ This ISAM-based malllist minimizes disk access limes. Four keys — no separate sorting. Supports 9-digi1 zip code and 3-digit state code. Up to 30 attributes. J, 

I Mask and query selection Record access/update time t -4 seconds' ' E 

g DISCAT (32K 1 -drive Mm) Mod i and III $50 I 

o This comprehensive Diskette Cataloguing/ Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program ^ 

I? works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette <^ 

S free space. RS232 drivers and other features. = 

f LPSPOOL(32K1-ctriveMin)Modl$75 j, 

I LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues | 

« maintained by the system as print files are generated . LPSPOOL supports both parallel and serial printers. | 

t BASIC LINK FACILITY 'BLINK' (Mod I Min 32K 1-disk) Mod I $25; Mod II $50: Mod III $30 g 

i Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program {^ 

" may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin may ^ 

S be specified! = 

£ INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $60 ^ 

I Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds!! ^ 

i2 Select only functions you want to optimize memory usage. ^ 

E INFINITE BUSINESS (Requires Infinite BASIC) Mod I & III $30 ^ 

P Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 127 digit accuracy +, -, *, /. Binary search of \^ 

^ sorted and unsorted arrays. Hash codes. " 

^ COMPROC (Mod I & Mod III — Disk only) Mod I $20; Mod III $30 '^ 

c Command Processor. Auto your disk to perform any sequence of instructions thai you can give from the keyboard, DIR, FREE, pause, wait for user input, BASIC, ^ 

I No. of FILES and MEM SIZE, RUN program, respond to input statements. BREAK, return to DOS. etc. Includes lowercase driver software, debounce and screenprint! ^ 

E? GSF (Mod I & III Tape or Disk - Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 g 

Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! And then compare prices! Machine language — fast and powerful! ^ 
" Multi-key multi-variable and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. o 
^ OSM (Mod I Min 32K 2-drive system. Mod II 64K 1-drive. Mod III Min 32K 1-drive) Mod I $75; Mod II $150; Mod III $90 oc 
g Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC command File. . 

I Execute from DOS. Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O J, 

g times make this the fastest Disk Sort/Merge available on the TRS. | 

1 UTILITY PACKAGE (Mod II 64K) $150 | 
§ Important enhancements to the Mod II, The file recovery capabilities alone will pay for the package in even one application! Fully documented in 124 page manual! 8 
" XHIT, XGAT, XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, t 
S absolute sector mode and other features. SUPERZAP allows examine /change any sector on diskette including track-O, and absolute disk backup/copy with I/O " 

< recovery. DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change Disk 2 
°: ID with DiSKIO- XCREATE preallocates files and sets 'LOF' to end to speed disk accesses- DEBUG!! adds single step, trace, subroutine calling, program looping, j^ 
oi dynamic disassembly and more! ! s; 
^ BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 g 
d SEEK and FIND functions for Variables. Line Numbers, Strings. Keywords. AH' options available for line numbers and variables. Load from BASIC — Call with g 
5 'CTRL'R. Output to screen or printer! ^ 
t^ DEVELOPMENT PACKAGE (Mod II 64K) $125 o 

< includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including <l 
'^ uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation tor Mod I. Assemble directly I 
J, into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG), extended editor commands. ^ 
E DEALER inquiries invited. System Houses - check for special pricing on hard drives and software. 



"Prepare to communicate with giants like 
The Source and CompuServe. " 



Table continiMd 



S— Summarize messages. Allows you to scan over messages starting at the 
message tt you specify. 

T — Time and date. Gives you the current time and date. This is also used 
automaticaliy during log-in. 

W— Weicome. Prints weicome message at beginning of program. 

X— -Expert user. Does away with certain explanatory messages during the pro- 
gram. It also allows certain C/R-defauits. Ex: AC/R in response to functions? 
will print functions supported by the system. 

—Prints functions supported in that current mode of operation. 



is self-documented and prompts the user. 

Forum-SO 

While there are many bulletin traard 
systems you can use with a TflS-80, the 
most widely available system designed 
with the TRS-80 user In mind — and using a 
TRS-80 as the host computer— is the 
Forum-80. BUI Abney, the father of 
Forum-80, spent two years writing the 
combination Basic and machine language 
programs. If you have an interest in setting 
up a bulletin board system, the current 3.1 
version is available for a one-time license 
fee of $150, which includes free technical 
advice. 

A minimum Forum-80 bulletin board 
system requires a TRS-80 with 48K RAM, 
three 35-traci< disk drives, an RS-232 board 



and an auto-answer modem. You can call 
Abney from 5 p.m. to 10 p.m. EST weekdays, 
or 10 a.m. to 7 p.m. weekends (816) 921-9439 
for further information. 

You can use a Forum-80 system by 
following the screen prompts and using 
the Help command. However, the system 
offers sophisticated features and many 
commands and sub-commands that can 
save you a lot of time and make your con- 
tact more efficient. To encourage proper 
utilization of Forum-80 systems, Abney 
distributes free user's guides, in two 
volumes. Volume I is the basic system and 
Volume II covers the more advanced 
features. For copies send a self- 
addressed, stamped, legal size envelope 
for each volume. 

Postage is 28 cents for Volume I and 41 



cents for Volume II. Mail to user's guide, 
Forum-80 Headquarters. 7600 East 48th 
Terrace, Kansas City, MO 64129. 

Burietin Board Rotter 

There are at least 200 bulletin board 
systems on line around the United States. 
Some lists have been published previously 
{80 Microcomputing, May 1980, page 110, 
and Kilobaud Microcomputing, October 
1980, page 158) but the picture keeps 
changing. The most extensive list I know 
of is offered free; send a self-addressed 
stamped envelope to The Microperipheral 
Corporation. P.O. Box 529, Mercer island, 
WA 98040— (206) 454-3303. 

What QfXK] Are TTw BBs? 

You might wonder why you should get 
excited about using a computer bulletin 
board when a phone call or letter might be 
more efficient. Consider this: You and your 
computer are in the forefront of a new 
technological explosion in the information 
and communications fields. Bulletin 
boards are a training ground for develop- 
ing new communication techniques. Also, 
some allow programs to be uploaded (from 
your computer memory to the host comput- 
er memory) or down-loaded (from the host 
computer to your computer memory) in vari- 
ous languages. As this sophistication pro- 
ceeds, so will your ability to use your equip- 
ment and knowledge. Furthermore, bulletin 
twards prepare you to communicate with 
giant Information systems like The Source 
and CompuServes 



OMNITERNl 

What b OMNITERM? 

OMHITERM IS a pFotessional communicationj {uckage for the TTtS-flO thai jlliHn 
yn to Easily iwnmuniute and iransfti lile or progiams «itti almost any ottar 
omputer WtVefitvw 'oufKl a Wfnpultf thai OMHITERM un I word with it's a 
compicte package because it includes k\ only the terminal procjiam itsell \k\ also 
ctKvartlM utHKiM. a tut BdiUr. speaai coofigunllon IIIbs. terlDui 
taMMntatn* ml tniout suppod 

Why ito I mnj It? 

Yn Mcd OMNITERM 11 yn nod to comnwicate effiaefitly witk many itiffeml 
cofflimters. or if you want to CKfomize your TRSA tor ust witti dm padioiiar 
computer You need OMNITERM to SOLVE ywr EOniminicatiam prDMems once 
and In all 

Wilt do I git? 

Till OMNITERM package includes the OMNITERM twrninal program, fom 
conwsion utilities, a tut editoi. M setting files tor uu mth popular contputen 
sic)iisCDmpiiSeTvt,ttKSwrtt»d Dow Jones — iistassanphsofwlutyoucai 

pncUjongh Systams 



The ULTIMATE TRS-80 Terminal Package 



do for the aniivter you want to mrti wtli Tkt padcagt iidadts six pnigranc. mn 

data files »hj real docjmenialiwi a TG-page msnuai ttiat has been callHJ *1he best in 
thBindustry.'Anir OMNITERM comes With rtal user support We can he reacW 
via CwnpuStrvt. Source, phone or mail lo promptly aiBwer ytwr questions about itsing 
OmiTERM 

Whil de I nnd to uic OMNITERM? 

A Model I or Model III TRS«^ least 3?K of memory oh disk and ttie RS237 
mleriace OMNITERM works witti ah ROMs and OOSes. and will work «itti yoif 
special keytnani drrvm 

WhM will it do? 

OMNITERM allows you to translate any ckaracter gomg to any devicr printH. screen, 
disk, keytoard. or communications line, giving you complete controf and allowing you to 
redefine the character sets of all devices It will lei you transfer data, and run your 
printer while connected lor a rEccrd of everything that hap{»ns OMNITERM can 
reformat your screen so that 80. 32. or 40 column lines are easy to read and kwk neat on 
your TRS-BO screen It even lets you get on remote computers with [iist one keystroke' 
The program lets you send special characters ecfio chatacters couni HART errors, 
configure yoer IJART. send True Breaks and use lower case it accepts VIDEOTEX codes, 
grving you full curior ramlrol. It will even let you review te«t that tias scrolled off 
the screen' Best of ail. OMNITERM will yve aspecial file with all your E:han!|es so you 



41 Faifhill Road, Holden, MA 01520 (617) 852-0233 



can quickty use OMNITERM lor any 
one of many diffffent compules by 
loading Itie proper file it's easy to use 
siHci It s menu drnren. and gnres yoii a 
lull status display so you can eummc 
aKfttiangeeverythm) 

'OMttlTERMhasmyvoteaslhetop 
TtiS^ teimiwl program awlatde today" 
Kilobaid MKTocompgtiig. June 1961. 
pages 16-15 

OMNITERM is S% (plus shipping if 
COD) Call tor ?4 hrxir shipment Matwal 
alone 115, ^iiid toward complete pack- 
age. Visa, M/C and COD accepted. MA 
residents add 5% tji Qealn inguifies 
invited 

Contact Lindbergli Systems for yout 
custom programming needs We an 
expert at writing software Umrli iritli 
YOUR liaidware. in assembief, Itigli-leviJ 
taogaaiit or Fortli 

^391 



Sonet TCUie [MiwScrK 71QK!;(7 ntSaai ■ol IMtCttc 
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YlMINin»2 

Attend the biggest public computer shows m the country. 
Each show has 100.000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM. Wang. DEC. 
Xerox. Burroughs, Data General, Qantel. Nixdorf, NEC. Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
^ puter art, electronic gadgetry, and computer music to 

VL entertain, enthrall and educate kids, spouses and peo- 

^^ pie who don't know a program from a memory disk. 

^^ Don't miss the Coming Of The New Computers- 

^ - Show Up For The Show that mixes business with 

pleasure. Admission is $5 for adults and $2 tor chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Se'Hl S5 pe' per son with ihe name ot the show 
ycu wtti aneot) to Naiional ComDuiet StJOws 
8?J SoyisionSneei Chesirwl H.li Mass 02167 
lei 6i7739?000 Itcheiscanatsobe pufcHaseO 
at me snow 



THE 

NORTHERST 

COMPUTER 

SHOW 

BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-18, 1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



THE 
MiD«WEST 
COMPUTER- 
SHOW 

CHICAGO 
McCormick Place 

SCHOESSUNG HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



THE 

MID'RTLRHTIC 

- COMPUTER - 

SHOW 

WASHINGTON, DC 
DC Armory /Starplex 

2001 E CAPITAL ST SE 

(ECAP ST EXIT OFF 1295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

"mURS-SUN 

SEPT 24-27, 1981 

1 1 AM TO 7PM WEEKDAYS 

11 AM TO 6PM WEEKENDS 



THE 

SCRJTHERST 

COMRITER 

SHOW 

ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NE AT 
RALPH McGILL BLVD 

THURS-SUN 
OCT 2»N0V 1,1961 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



THE 

SOUTHERN 

-CRUFORMfl- 

COMRJTER 

SHOW 

LOS ANGELES 
LA Convention Center 

1201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

11 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



^Sec Lisi ot Advertisers on page 386 
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MORE POWER 



We stock the complete line of hardware, 
software, and accessories 



MODEL II 






26-4002 64K 1 D 


rive 




$3500.00 




26-4160 


1 Drive Exp . . 


$1030 00 


26-4161 


2 Drive Enp 


1560 00 


26-4162 


3 Drive Exp 


2100 00 



PRINTERS 

26-1155 Quick Pnntef Si 80 00 

26-1167 9: Dot Matrix Pfinter , 325 00 

26-1166 LinePnntefVI 1025 00 

26-1158 Daisy Wheel II 1725 00 

26-1165 LinePnnte-V 1625 00 



MOD^L III 




^r- 



26-1061 -IK I $620 00 

26-1062 '6K III 875 00 

26-1066 48K III 

W-2 Drives RS232 ... 2180 00 



POCKET COMPUTER 



._)^_) LJ LJ LJ L_) _J LiU "■'■•■» " 

_J_)_ILJl_JL_IL_li_J[_JLJK»»JlUtai= 
r::j-3UaLJLJLJI_iLJLJ,B(UMOKl 



■_l'_J.JLJl ILJLJ LJ( 1 , 



COLOR 
Computer or Video 




26-3001 4K . , , S330 00 

36-3003 16K Fxt Basic 4S0 00 

26-3008 Joysticks 25 00 

26-3010 Color Video 370 00 

26-1206 Recorder 59 00 

PERfPHERALS 

26- 1 140 E-Lpansion Interlace S250 00 

26-' 14! '6K Expansion Interlace 

with A M Ram 31000 

26-1142 32K Expansion Interface 

with A M Ram 350 00 

26 1145 RS232C Board 84 00 

26- 1 160 1 Mini Disk Drive 420 00 



26-3501 1 9K P C $185 00 

26-3503 Cassette IF 49 00 

14-812 Recorder 79 00 



DEALER P124 



FowIerville:111 North Grand, Box 1071, 

Fowlerville, Mr 48836 

(517)223-7281 



m 



' Includes A.M. Electronics 90 Day Warranty ' 

R.S. 90 Day Limited Warranty 
F-48 Form Provided 



Ann Arbor: 3366 Washtenaw Ave. 
Ann Arbor. Ml 48104 
(313) 973-2312 



\9Si\ 



The power behind the drives'^ 

A.M. ELECTRONICS. INC. 
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Also, we specialize in complete, powerful software 
packages for business. Put your TRS-80^'' to work for you! 



Dealer/Service Center 
Record Package 

This package, built in several modular 
packages, can be used separately, or in 
combination as a complete system. The 
modular units are self-contained- When 
combined, they will make the most 
complete and comprehensive service 
center bookkeeping/record-keeping 
package on the market. 

A complete history of customer repair 
files is maintained on-line. Customer files 
can be accessed by account number or 
customer name. The information file 
includes customer name, address and 
telephone number, make of unit, service 
dates, name of servicing technician, 
services performed, and total billed. This 
information can be called to the screen 
or printer as a total list, or by the last 
service date. 

The customer records module can 
post to accounts receivable module, 
payroll module and our Inventory Control 
System. 

A Model I computer, with four 80-track 
drives, or a Model III computer, with two 
80-track drives will hold approximately 
1 ,800 customefs and records. By adding 
additional drives to the Model III, more 
than twice this amount of information 
can t)e maintained. By switching 
diskettes in drives, the capacity is 
unlimited. 

Versions of Dealer Service Center 
Record Package are available for Auto 
Dealers, Mechanics, TV Repair Centers, 
Electronic Technicians and Appliance 
Repair Centers. $199l95 

Order Entry (With 
Invoicing & inventory) 

Orders are composed of name and 
address information (with optional 
company name), method of shipment, 
method of payment, items on order. 
quantities, prices, description, and stock 
number. The system also prints invoices. 

At point of shipment, inventory is 
automatically updated and dollar sales 
recorded. Shipping charges are logged 
and shipping date recorded. All entries 
may be edited and partial shipping is 
permitted. The inventory module allows 
checking and updating stock, inventory 



See your nearest 
A.M. Electronics, inc. dealer 

Here is a partial listing o< authorized AM 

Electronics, tnc dealers: 



ARIZONA 

Slmu>tt C ampHWr deduct* 

POBo> ilGSr 

Tucson Ai'iorn 85riO 

MEroconipulan. Inc. 

Piioeo,! A.iiona B50i8 

CALIFORNIA 

RAC Pioduci* 

3200 Knigniswooo Way 
San Jose CBlitornrj 95148 

CONNECTICUT 

Mountoln VIra SoUw*!* 

Mirybrooli Roao 

Oaribury Corn*cl«:ijl 06810 

CompuWf S*nK»* ol DanbuTY 

Dantiu'v Co^nK'tu' 06810 



DIST . OF COLUMBIA 

4200 WiKOnj." Aw NW 
Wasnington DC 20016 



FLORIDA 

CompuWr WihMi 

2232 Easi Bay Un.e 
Clearwater FiotiOa ^3616 
Adnnturi IntemMtotwl 

5Cr EailStrmI 

Looqwooo Pkwpcia 32750 

MSrMHnsGs 

105 wm Puii Si reel 

W> rile r Ca men Fkn-Oa 32767 

ILLINOIS 

JHComputH 

1350 Biiirr KoaO 
Auiora lllmos 60504 

AAA Chksgo CArttpuW< CtrtWt 
120 Ct'SSInul La™ 

WhMlJOg. Illinois 60090 

MtcNwit Computet P«lptiarali 
1467 S MicnigaiiAve 
Cfiicaga llhno.i 60605 

MASSACHUSETTS 

wesiioiii wau aisa6 

iB99Ua<n5ueei 

TewkstHHT Man 01676 

CompuMrPtu* 

?45AGreainoad 

(.itMWn MiH 01460 



IWmwIiabM Sonwara 

ISOSAOetensa 
IrfuMegon. MicrHflan 49441 



436 Eul Lake SIrMt 
Peioskey hUcnigan 49770 

Eighl M Comer 

722 E«anslon A>*nu« 
MuM«90n.M«f).aan 49442 

Son Sector Mai1iMM>9, inc. 

6250 KAidDleMIt Hotd 
Garden Cily MicNrgan 4B!35 

Maim Sollwara 

315 Marion Avanue 
Big Rapids Michigan 49307 

■raen Computing 

POBo> 1013 
Barkley. Michigan 4B072 

NEW HAMPSHIRE 

HwdaMa 

E South Streal 

MiMtuD Mew ManipVi-'e 03055 

NEW JERSEY 

Floppy DIak Sanrtcaa 
40 Misly Morn Lane Norm 
Trenlon Nt-wJeriay 56638 

NEW MEXICO 

Rocky Mountain Englnaadng 

4749Soutnaro se 

AIDuauerQue Mew Meiico 87108 

NEW YORK 

John D. OwanaAaooeiMaa, Inc. 

i2SctiuDenSir«t 
Siaiei ntano New YchIi 10305 

■ T Entaiprtaea 

171 Hawkini 

Cenwreach htew Vork iw?0 

NORTH CAROLINA 

Alpha Tactinolom 

1201 W«:«ei DinT" 
Bsleigh Norli' Carolina 2)604 

OHIO 

Ekctionici UnlknitM) 

B24 Easi i4tri5trMi 

Aihiatmla Onw 44004 

OREGON 

lioe Cantn Elactrantci 

i30C6tnStrrfi 
urmims Oegon g7BU 

PENNSYLVANIA 

Sttvafw Radio Shack 

562 Nurt Bosd 
pnoennviiir Pcnmylvann 19460 



MICHIGAN 

Adapt* — 

500 2aih Slreel 

Giard Rapifli. Micriigan 49509 



TEXAS 

OuaMy Boflwara 

' 500 Siemmoi's E«c'e""ay 

Oallas Tenas 75229 



reports, sales reports, shipping charges, 
etc. 

Order Entry is a complete order entry 
system, designed for almost any retail 
and/or whoiesaie business. Its capacity 
is upward-expandable from a dual 40- 
track Model I system; 1 ,750 inventory 
items, 385 orders per diskette, $199.95 



Inventory Control System 

This system gives the user complete 
access to and control over an unlimited 
number of inventory items. (Note: It has 
been found that systems containing 
more than 1 3,000 items are difficult to 
handle, from a maintenance time 
standpoint. Operations, such as Block 
File reoganization can take more than 3 
hours.) 

As presently configured, a Model I 
computer v/ith one 40-track drive will 
hold 1 ,925 items, or for a four-drive 
system a total of 6,625 items. Four 80- 
track drives will hold in excess of 1 3,000 
items. A Model III computer, with two 40- 
track drives, will hokj about 1 3,000 parts. 
If required, A.M. Electronics can modify 
both the program and hardware 
configuration to allow on-line storage of 
an unlimited number of items. As the file 
becomes larger, maintenance 
operations take longer. Average search 
time is six seconds, with 12 seconds the 
longest time. 

Upon program initialization, the user 
specifies the item number and 
description digit length. This altows for 
item numbers up to 23 alf^a-numeric 
characters, (As item number digits 
increase, digits for description usage are 
decreased.) 

The program is completely menu- 
driven. Items can tje added, edited or 
deleted from the file. Items can Ije 
placed on order, received to stock, or 
sold from inventory. Complete printout 
capabilities are available through the 
printout menu. 

Item information irrcludes: item 
numt>ef , description, supplier, re-order 
point, cost, wholesale and retail selling 
price, quantity, on-order, and total sold. 
The re-order point is calculated by the 
program, based on number of items sold 
over a period of time. The time period is 
established at program initialization. 
$199.95 

Get a sample 

software printout — Free! 

Call or write us to get sample program 
printouts tor these programs, or if you 
need more information. We'll be happy to 
send it to you. 



Tnr OOtrf DV^nC 



A.M. ELECTRONICS, INC. 



-452 



Ann Arbor: 3366 Washtenaw Ave., Ann Arbor, Ml 481 04 {31 3) 973-231 2 Store Hours: Monday-Friday 1 0-6. Sal, 1 0-5 

Grand Opening of our Radio Shack Authorized Deaiership at: 1 11 North Grand, Box 1 071 , Fowlerville, Ml 48836 (51 7) 223-7281 

Attention Deaiers, OEIM's & Distributors: Call us for details on our attractive pricing. 



•TnseOisaltatJema'kolTandy Cotp 



Prn;t;b soUiecl lu cOange wiinoui notice 



• See List oi Aci¥ertis»rs on page 386 
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APPLICATION 



Calculating time and place all year. 



Sunrise . . . Sunset 




Harold K. Skramstad 
804$ S. A1A Hwy. 
Melbourne Beach, FL 32951 



Would you like to know the 
time of sunrise and 
sunset without having to look it 
up In the daily newspaper? The 
following program finds the 



declination of the sun, the 
equation of time (the difference 
between apparent and mean 
time), the compass direction of 
the sun at sunrise and sunset, 
and the time of sunrise and 
sunset for any point in the con- 
tinental United States. 

If you are interested In these 
values for only your own loca- 
tion, the program can be 



simplified by replacing the 
statements before line 210 with 
statements giving the values of 
LA— your latitude in degrees 
and tenths, and TD— the time 
difference between sun time 
and standard time for your 
location. 

The declination and the 
equation of time E are approx- 
imated by finite Fourier series 



In terms of X, the week numtwr 
and fraction of the week, in 
lines 260 and 340. The value .04 
In lines 530 and 560 is a correc- 
tion for the refraction of light in 
the earth's atmosphere at 
sunrise and sunset. 

I have found this program to 
agree within two minutes with 
the times of sunrise and sunset 
given in the local newspaper. ■ 



Program Listing 



II PRIirfT8I£ PBOGIUUI FINDS TDC DBCLIMATION OP TI'B SUH, THE BQUA 

Trow" 

21 PRIHT'Or Tir<E, THE AIIHUTH AMGLCS OP SUNRISE AND SUNSET, MO 

WE" 

31 PRINT'TINES OF SUIIRISB AND SUNSET FOR ANY POINT IN THE CONTIN 

BKTAL- 

41 PRlHfDHITBD STATES. ■ 

IM DIH R(13) 

lis PL*1. 14159/261 J-ST.ISSTB 

13> INPUT'EHTER LATITUDE (DEC. ,HIN.) *]D1,H1 

131 LA-OIHII/G* 

141 INPUT-ENTER UHICITUDE (DEC. ,MIN.) ■iD2,N2 

lit IHPUT*ENTEH TIKE ZONE (E,C,M,P) *|TS 

IM IF T5"'E" THEN LO-75.- GOTO 211 

17> IF T»-'C* THEN L0-»: GOTO 211 

181 IF TS«*H* THEN LO-llS: GOTO 211 

IH IF T«->P- TNEN L0-13tt GOTO 211 

2II GOTO 1J> 

III TD-(DJ*H2/6I-L01/1S 

231 INPUT'ENTER HOMTH NO., DAY OF HOHTH'tM.DA 

231 FOR I>1 TO 13: READ N(l): NEXT I 

241 DATA I,31,59,»,1»,1S1 

2SI DATA 181,212,243,273,314,334 

2<l X-1N(M}*DA)/7 

388 D-,4S«-22.91S*COS<PL*X)-.43l*COS(2*PL*X)-.lS6'COS(J'PL*XJ+3. 

838"8INIPL'X)*.a6e*SINl2'PL'X)-.IB2*SI»(3»PL»X) 

318 PRINT 

318 PRIHT'DECLINATIOH OF SUNt'i 

321 PRINT USIHC'ftl.l'tDl 

151 PHJIT* OEMEES" 

348 E-.88e*.S18'COS(PL'Xl-3.197*COSI2'PL*X)-.ie6*COSl3»PL«X)-.15 



8«COS(4'PL*X)-7.317*SI(l(PL'X)-9.471'SIN{2'PL'X|-,19MSIN(l*PL»X| 

-.242*SIH(4'PL*XJ 

368 PRINT' EQUATION OF TlnE:') 

371 PRINT USING'III.CiEr 

3BI PRINT" HINUTES" 

391 CL>COS(LA/J) : SD>SIN(D/J) ; CD-COSID/JI; Y-SO/CL 

481 IF ABS[Y)>>1 THEN PRIHT*NO SUNRISE OR SUNSET*: END 

418 I-9I-J*AT»(V/SQR(1-Y«YH 

428 PRINT-AZIKUTH OF SUNRISE:*; 

438 PRINT USING'lllt.l*;Zt 

448 PRIKT- DECREES* 

4S8 FRINT'AZIHUTH OF SUNSET: *i 

481 PRINT USINC'll((.t*i3il-I( 

478 PRINT* DEGREES* 

488 ST-SIN(Z/J1/C0 

491 ir ABS(ST)>"1 TBEN T-6 i Tr-6! GOTO 528 

588 CT-SORU-ST*ST) 

518 T.J/15»AT«1ST/CT)! TT-T 

528 IP D<e THEN T-12-T! TT>T 

538 T-T*TD~E/8l-.84 

548 G05UB 688 

S58 PRINT-TIKE OF SUNRISE: *)TlSl *!* lT2S: * *tTS)*.S.T.* 

568 T-i2-rri TaT*TD-E/<l*,84 

578 COSUD 688 

588 PRINT'TINB OP SUNSETi 'iTl Si * :*(T2Sj * ■|TS|*.S.T.' 

598 END 

681 Tl-IKT(T)i T3-T-Tli TlS-STRS(Tll ; T2-INT( (T2«688t5)/18J 

611 T2S-STRS(T3)i T2$-RICHT$(T2S.LEK1T2$)-1) 

621 IF ll(T|T2)<18 THEN T2$-'I>*T2S 

Ml ttertniN 
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THE GREAT 



2nd Edition 



ITiT?JsT^^STS 




■PTf 


•>i«^ -^ 



^ - 



r^ Encyclopedia of the 

BASIC Computer Language 



r % 



by 
David A. Lien 



APPLE • TRS80 • ATARI- IBM ■ DEC ■ ABC 80 • SHARP 
EXIOV . NEC • HEWLETT PACKARD • "|t^" 

SYSTEM 80 - TEXAS INSTRUMENTS ■ ^^T ' NqhIhsTAR 
SINCLAIR ■ WANG - VARIAN ^^^ OHIO SClfNTIFlC 



Ihe 




Ihe only book that simplifies the BASIC language by 
explaining its many dialects is now even better! We've added 
240 BASIC words from the world's latest computers, for a 
new total of nearly 500 words detailed in a concise 
easy-to-read manner. 

The 480-page 2nd Edition BASIC Handbook tells you 
everything you need to know about today's BASIC language. 
I'l explains a// significant Statements, Functions, Operators 
and Commands, so you can put them to work instantly! 

If there's an alternate way to write a program using other 
BASIC words, the Handbook shows you how. If a program 
needs a Function your computer doesn't have, the Handbook 
generally has a subroutine which does the same thing. And 
it's all alphabetized and indexed for fast access! 

The big new 2nd Edition helps you convert those "strange" 
programs found in magazines and professional journals to 
RUN on your computer. Extra sections describe many 
specialty BASICS, including Atari, Sinclair, Tektronix, 
TRS/Color. plus Disk BASIC. 



For students, businessmen, hobbyists, and pros — anyone 
who works with BASIC, the updated Handbook is 
indispensable. Order your Second Edition today! It'sthe 
missing link between you and more computer power! 

Yes! Give Me More BASIC Power! 

Please send copies of THE BASIC HANDBOOK 

2nd Edition. [30 day money back guarantee) 

a My check for $19.95 each and $1-65 P&H is enclosed. 

(Californlans add 6% tax.) 
D Charge it to my MasterCard or Visa (circle one). 

Acct. No. Exp. Date 

Name 



Address 
City 



State. 



Zip 



Signature 

Mail to: CompuSoft® Publishing, 1050-E Pioneer my, Oept. A 

El Cajon. CA 92020 
Or Call: (714) 588-0996 to order now! ^377 



APPLICATION 



Where you'll be with this meat inventory program. 



Fat City 



David D. Busch 
575 e. Highland Ave. 
Ravenna, OH 44266 

Letting your computer keep 
track of the meat in your 
home freezer can save frostbit- 
ten fingers and energy lost to 
escaped cold air. Better yet, 
firm control over what you have 
and don't have can keep you 
from accidentally dipping into 
the latest meat stocks while an 
older cut languishes at the bot- 
tom of the stack. 

Freezer Inventory was writ- 
ten to take some of the confu- 
sion out of stocking and main- 
taining meat in a home freezer. 
Some homeowners use log 
books which are difficult to 
maintain, never up-to-date, and 
time-consuming. It's usually 
necessary to do a physical in- 
ventory once each six months 
or so just to be sure of what's 
hidden in dark recesses of the 
freezer. 

Others stock and replenish 
by the seat of their pants, know- 
ing vaguely how much ground 
beef remains, and frequently 
allowing choice cuts to suc- 
cumb to freezer burn or some 
other malady because they 
were kept two or three years 
beyond the recommended 
freezer life. 

Features 

Freeier Inventory is a disk- 
based meat inventory system 
written for the TRS-80 Model I 



or III. Type, cut, weight and date 
frozen for up to 50 pieces of 
meat can be entered and 
stored. Depending on memory 
available, the number of items 
in the inventory can be in- 
creased. 

In accessing the data, the 
user can see a list of all the 
foods in the freezer or scan the 
available cuts of only one type 
of meat. Nervous types can 
also retrieve inventory items by 
age. The program presents a 
list of all meats thai were 
frozen one to six months prior 
to the current date. 

Meats can be entered in one 
of seven different categories: 
pork, beef, lamb, fowl, ham, fish 
and other. Those who normally 
do not eat a certain type of 
meat for religious or other 
reasons can delete that selec- 
tion(s) from the list. On the 
other hand, if rattlesnake, 
game or goat is part of your 
menu, it can be added. 

Thirteen different cuts can 
be entered to further differen- 
tiate the item in the meat inven- 
tory. I put together the list to 
conform to the cuts we most 
frequently buy in our house- 
hold: three kinds of roasts, 
three kinds of steak, chops, and 
other configurations such as 
ground. Again, these may be 
altered by the user. 

To initialize the program, the 
data file must be created. This 
can most easily be done by 



typing DIM FOOD$(50,4) in the 
command mode, and then 
typing GOTO 1420 The pro- 
gram will open the file Foods, 
and save the available data (no- 
thing, at this point) to the disk. 
Then, a File Not Found error 
will be avoided when the pro- 
gram is first run. 

Data on the different meat 
types and cuts are Read into 
two string arrays, Type$(n) and 
Cut$(n), at the beginning of the 
program. Next, the user is con- 
fronted with a menu, which 
presents six options: 

• See list of all foods in the 
freezer. 

• See list of only one type of 
food in the freezer. 

• Add new foods to freezer 
inventory. 

• See list of foods by age. 

• Save information input this 
session to disk. 

• Remove an item from in- 
ventory. 

Entering New Food Data 

Depending on the option 
selected, control branches to a 
series of subroutines. Foods 
are added to the new or existing 
list as a subroutine at lines 
730-1030. The meat data are 
stored within the program in a 
two-dimensional string array, 
FOOD$ (row, column). The first 
row used, NF, indicates the 
number of foods in the file, and 
is incremented by one each 
time a new food Is entered. 



To simplify printing out op- 
lions, code numbers instead of 
the actual names of the types 
of meat and cuts are stored in 
the array. The code number 
points to the element of 
TYPE$(n) and CUT$(n) ap- 
propriate to the Item. 

The first column of FOODS 
(row, column) stores a number 
from one to seven, which 
stands for the name of the meat 
represented by that element of 
the string array Type${n). For 
example, TYPE$(1)= PORK, so 
if a cut of pork were to be en- 
tered, a string containing the 
numeral "l" would be inserted 
in F00D$(NF,1). 

The second column stores a 
string representation of the 
number that points to the 
CUT$(n) element equivalent to 
the cut selected- Chops would 
be the fourth element of 
CUT$(n), so to indicate pork 
chops, F00D${NF,2) would 
contain a four. 

The third column contains 
the actual weight of the cut, in- 
put by the user to the nearest 
half pound. Because the weight 
is stored as a string, the user can 
enter a number only, such as a 
tour, or the words four pounds. 
The numeral must come first, 
as the program looks for the 
VAL of F00D$(n,3) when de- 
leting a food from the list. 

The date the food was frozen 
is entered into the fourth col- 
umn (FOOD$(NF,4)). The format 
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MM/DD/YY must be used. That 
is, Aug. 4, 1981, should be 
entered as 08/04/61. No error 
trap is built in to catch im- 
proper input, and failure to con- 
form to the standard MM/DDA'Y 
will make it difficult to delete 
an inventory item later. 

Entering new foods is fairly 
fast. Each of the TYPE$(n) and 
CUT$(n) options is presented to 
the screen in a pair of For. , . 
Next loops at tines 830-850 
and lines 920-940 respectively. 
INKEY$ input will refuse any 
values other than those of- 
fered. Next, the user can input 
the weight of the meat. Weights 
to the closest pound are sug- 
gested, because of the need- 
less complexity of converting 
pounds and ounces to decimal 
values. If two identical cuts of 
meat are entered on the same 
day, the user should enter 
slightly different weights to dif- 
ferentiate them. One could be 
four pounds, and the other 4.5 



pounds. Mark these working 
weights on the package of 
frozen meat so the correct 
weight can be entered when the 
item is deleted from the inven- 
tory. 

After the date Is Input, con- 
trol reverts back to lines 
770-800, where the information 
entered is transferred to the 
correct element of FOOD$(row, 
column). Then, the program 
returns to the menu. 

You should remember to 
save current data to disk before 
exiting the program. By not hav- 
ing Save as an automatic step 
following the input of each new 
item of food, some time Is 
saved whenever several items 
must be entered at one time. 
This will frequently be the case 
after a shopping trip, or when 
freezing a newly purchased 
side of meat. 

In addition, a list of the cur- 
rent foods in inventory, in- 
cluding the new entries, can be 



requested— prior to the Save. If 
a mistake is discovered in the 
new entries, the user can delete 
the error (using menu option 
six) before the data is saved. 
Only one disk I/O operation 
need t>e performed at the end of 
the session. 

Saving is performed at lines 
1420-1490. The number of 
foods (NF) is first Printed to the 
disk file Foods, and then each 
element of FOOD$(row,column) 
is recorded. Because the disk 
I/O time difference is almost 
negligible between having the 
Row loop increment from one 
to 50 and from one to NF, I 
elected to use the former, 
simpler system for program 
clarity. Those who find It 
necessary to redimenslon 
FOOD$(row,col) larger than 50 
rows may want to switch to the 
latter technique. 

Accessing the File 

The food file may be ac- 



cessed three different ways. In 
lines 250-270, all the foods in 
the file are displayed. A loop 
from one to NF repeats until all 
foods are listed to the CRT. 
Pauses are built in every 12 
foods by a check in line 290 that 
sends control to a wait sub- 
routine at lines 400-430. If the 
loop counter (N4) can be evenly 
divided by 12(N4/12 = INT(N4/ 
12)), then the user must hit any 
key to see the rest of the list. 

If only one type of meat is to 
be listed, a subroutine at lines 
450-710 checks F00D$(N6,1) 
in line 590 to see if It matches 
the food type looked for (A$). If 
so, then the meat listing is 
printed to the CRT screen (lines 
660-710), and a counter (CU) 
that keeps track of when 12 
items have been found and dis- 
played is incremented. The 
same wait subroutine is used. 

Meats may also be listed by 
age (lines 1050-1400). The user 
inputs the current date as a 



Program Listing 



CLEAS leOB 
SI.S = "/" 

DIM TYPES(7) ,CUTS(13) ,F00DS(5fl,il) 
GOSUB 1500 

FOR N=l TO 7:BEAD TYPES !N) :NEXT N 
FOR Nl-1 TO 13:READ CUTS (Nl) :NEXT HI 
DATA PORK, BEEF, LAMB, FOWL, HAM, FISH, OTHER 

DATA ROAST, BOAST-RUMP, ROAST-RIB, CHOP, STEAK-SIRLOIN, STEAK-CHUC 
STEAK-SOUND, WHOLE, HALF, BREASTS, LEGS, GROUND, BRISKET 
**■■ HEHU ■•"•• 



IBfl CLS:PRIHT:PRI:JT 

UB PRINT ■ EJiTER CHOICE :" 

120 PRINT ■ 1.1 SEE LIST OF ALL FOODS !M FREEZER' 

138 PRINT • 2.1 SEE LIST ONLY OF ONE TYPE FOOD IN FREEZER" 

3.1 



ADD NEK FOODS TO FREEZER INVENTORY" 
4.1 SEE LIST OF FOODS BY ACE* 
5.) SAVE INFORMATION INPUT THIS SESSION TO DIS 

6.) REMOVE AN ITEM FR(»1 INVENTORY" 



142 PRINT " 

ISa P.RINT ■ 

163 PRIh'T ■ 

K" 

nij PRINT ■ 

IBB PRINT 

19B PRINT " >"! 

238 AS=IMKEYS:IF AS""" GOTO 2flB 
2!a A=.VAL(AS1 

22a :f a<i oh a>6 goto 200 

2IB ON A GOTO 240,44(1,720,1040,1410,1608 
24a • ...... LIST ALL FOODS IN FREEZER '**• 

2Sa LL5 

26it '=?l!:r "TYPll'.-CliT", "WEIGHT", "DATE* 

27 2 ;RI^:T 

2b3 fOF^ ;:4'1 TO NF 

193 IF IMTIN4/i:i =N4/12 G0SU3 398 

IMJ I.=!1NT TYPES(VAL(FOODS(H4,1) ) 1 , 

31l P^INT CI;TS1VAHFOODS(N4,21 1) , 

32,1 PPIKT FOODS(N4,3) , 

330 PRINT FOODS(K4,41 

340 IhEXT N4 

3 SB PRINT 

360 PRINT "HIT ANY KEY TO RETURN TO MENU" 

370 IF INKEYS-"" GOTO 370 

3B0 GOTO lOB 

390 PRINT 

400 PRINT "HI".' AMY KEY TO SEE REST OF LIST" 

41: :f i;;kf.ys-"" goto 4ie 
42; jlstPrint 
43; ^etl'-k;, 

^^,. . ...... i_iyT Q^[_Y ONE T^'PE OF FOOD "' 

i6i CLS:PPISi:PR!.\T 

470 FOR N5-I TL 6 

4£e PRi;.-T N5;'.) ": 

49S FBIKT TYPES(N5) 

500 :>EXT K5 

Mi- PRINT 

'>2!i PRINT -ENTER CHOICE"; 

^30 AS^INKEYSi IF A5="" GOTO ^30 



548 fl=VALlASI 

55B IF A<1 OR A>6 GOTO 538 

560 CL5:PHINT:PHINT 

570 PRINT "ALL ";TYPES(A1;' LISTED BELOW:' 

580 FOR N6-1 TO NF 

59e IF F00DS(N6,1)-AS THEN GOSUB 660 

6BB NEXT N6 

610 PRINT 

620 IF CU=1 THEN PRINT "NO " ;TYPES ( A] ; " FOUND IN F1LE":PRINT 

630 PRINT "HIT ANY KEY TO RETURN TO HETiU" 

64B IF INKEYS-"" GOTO 64B 

650 GOTO 188 

660 CU=CU+1 

670 IF INT(CU/12)=CU/12 GOSUB 390 

ese PRIST CUTSIVAL(F0(H)S(N6,21I1 , 

698 PRINT FOODS!N6,3), 

780 PRINT FOODSIN6,41 

710 RETURN 

720 ■ •••••* ADD NEW FOODS TO FREEZER INVENTORY *•»"** 

738 CLSiPHINTiPRINT 

748 NF-NF+1 

758 PRINT "FOOD TYPE OF NEW ENTRY :" 

7G8 GOSUB B20 

778 FOODS(NF,:)-AS 

780 FOODS(NF,2)=A2S 

790 FOODS(NF,3)-A3S 

800 FOOI>$(NF,41^A4; 

Sie GOTO 180 

B2e PRINT 

830 FOR N2-1 TO 6 

848 PRINT K3;' ' "rTYPEE'N?' 

aSfl NEXT H2 

860 PRINT "ENTER CHOICE : " ; 

B7fl AS'INKEYSsIF AS'" GOTO 678 

888 A=VAL!AS) 

898 IF A<1 OB A>6 GOTO 870 

900 CLS 

910 PRINT 

920 FOR N3-1 TO 13 

930 PRINT N3;",) ";CUTS(N3) 

940 NEXT N3 

950 PRINT 

96C PRINT "ENTER CUT OR TYPE :"; 

97B INPUT A2S 

980 A2=VAL|A2S) 

99B IF A2<e OR A2>13 GOTO 978 

1000 CLS:PRINT:PRINT 

IBie INPUT "ENTER WEIGHT TO CLOSEST POUND :";A3S 

1820 INPUl "ENTER DATE FROZEN (WM/DD/YY] " ; A4S 

1630 RETURN 

1040 ' •'•*** SEE LIST OF FOODS BY AGE ..•••• 



1050 CLS;PRINT:PRINT 

1068 INPUT 'ENTER TODAY'S DATE 

1B7B Y1S-BIGHTS(DATES,21 

1B8B nlS=LEFTS[DATES,21 



(MM/DD/YV) •;DATES 



Program contirtues 
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Program cootmuw} 

' 1B9B yl-VAL(YlS) 
llBll f.l-VALIMlS) 
lllB CLS:PRINT:PRIHT 
1128 FOB N7-1 TO f, 
1130 TYS-'YIS 

me t>i-mi-(j7 

use IF ™<1 THEN TM = TH + 12:TY-irl-l:TYS'STHS(TYl 

1160 PRINT 

H7C PRINT "ALL FOODS -.-N?;" HOKTHS OLD LISTED BELOW 

ilBfl PRINT 

use FBI KT'TYPE", "CUT-, "WEIGHT-, 'DATE" 

liBB PRINT 

1216 CU-1 

1238 FOR NB"] TO NF 

I2i9 YS'RIGHTS(F0ODS(Nli,4) ,2) 

1240 HS-LEFTSIF00DS(KB,41 ,2) 

125B IF VALl VSl -VALITYS) ANTl VALIMSJ-TK THEN GOSUB 1341 

1260 NEXT NB 

127B PRINT "HIT ANY KEY FOP REST Of LIST" 

128B AS-INKEYS:IF AS-"" GOTO 12BD 

129B CLS:PHINT 

13(0 NEXT N7 

1310 PRIKT 'HIT ENTEP TO RETURN TO HEtIO* 

1328 IF imkky;."- COTL 1328 

1338 GOTO 10B 

1348 CU-CU.l 

1356 IF CU/lJ'ItlTICU/n) GOSL'B 398 

1360 PRINT T1PES(VAL{FOOOS|NB,1) ) ) . 

137C PRINT CUTS(VAL(F0ODSCNe,2)] ) , 

1388 PRINT FO0D$(NB,3), 

1390 PRINT F00DE(NB,41 

l«ee RETtJRN 

1410 ' •••••• SAVE FOODS TO DISK •••••• 

142B OPEN "O'.l.'FOtaJS" 

H3B PRINT ll,HF 

144B FOP ROW=l TO 50 

1450 FOB COL-1 TO 4 

1460 PRINT ll.fOOOStROH.COLl :■,") 

1478 NEXT COL, ROM 

14 B0 CLOSE 1 

1498 a>TO lee 

ISBB ' ■•■•• LOAD FOCUS FROM DISK •••••• 



1510 OPEN "I", 1 ."FOODS' 

1^20 INPUT II, NF 

153B FOP R0W=1 TO 5U 

1540 FOB CDL-^l TO 4 

155B INPUi I1,FOODS(F<OW,COL1 

1560 NEXT COL, ROW 

1570 CLOSE 1 

158B RETURN 

1590 ■••••■■ RmoVE FOOD FRC« INVENTORY * 

16BB CLS:PBIN-T:PEINT 

1610 PRINT "ENTER DATA ABOCT ITFJf REMOVED FROM INVENTORY :' 

162B GOSUB B2e 

1630 FOR W'\ TO NF 

1640 IF VAL|FOODS(N9,1) I'VALfAS) OOSUB 167B 

USB NEXT N9 

1668 GOTO 100 

1678 IF VAL|F00DS1N3,2) ) =VAL(A2E1 AND VAL I FOODS ( N9 , 3 H -VAL[ A3S) 

GOTO 16 90 

16B0 RETURN 

1698 IF FDODS(N9,41<:>A4S THEN BETURN 

1700 IF N9-NF THEN »F«NF-1 iBETUBM 

171B TOR H>1 TO 4 

172B FOODSfSS.Kl-FOODSfHP.K) 

173B NEXT K 

174D NF=NF-1 

1758 RETURN 



MM/DD/YY string, which is 
parsed, and the values of the 
MM and YY compared with the 
values of the corresponding 
segments of each of the dates 
of the foods in the file. Target 
years (TY$) and target months 
(TM$) are determined for each 
of six months before the cur- 
rent month (lines 1130-1140). If 
a target month carries back 
into the previous year, then the 
value of TY$ is decremented by 
one, and the target month ad- 
justed accordingly (line 1150). 
The loop prints out lists of 
meats one to six months old, 
month by month. 

Deleting an lt«m from the File 

As foods are consumed, they 
must be deleted from the file. 
This is accomplished by a 
routine at 1600-1750. The user 
enters data about the item to be 
removed (type, cut, weight and 
date frozen), and each element 
of FOOD$(row,cQlumn) is ex- 
amined until a match is found. 
If the item to be deleted hap- 
pens to be the last item in the 
file, (N9 = NF in line 1700), then 
NF is decremented by one, 
making that row in FOODS 
(row, column) available for new 
entries (which will wipe out the 
old ones, if still present). Effec- 
tively, the old entry does not ex- 
ist, because loops accessing 
the data will not go beyond NF 
in their search. 

More frequently, however. 



the item deleted will not be the 
last element of the array. Usual- 
ly the oldest cuts of meat are 
consumed first. In this case, 
the Item is deleted by taking the 
last set of data in the array, and 
moving it to the spot to be 
vacated. Then, NF is decre- 
mented by one. Effectively, this 
closes up the array by putting 
the last entry into the hole left 
by the last one deleted. 

Enhancements 

Freezer Inventory offers a 
number of opportunities for 
enhancement. Additional meat 
types and cuts can be tacked 
on by redimensioning the array 
TYPE$(n) and CUT$(n}, and by 
enlarging the loops which 
display these choices to the 
user for input or retrieval. Use 
Step 2 to count off the display 
loops two numbers at a time, 
and change print lines, as in 
line 840 to read: 840 PRINT 
N2;".)": TYPE$(N2),N2 -t- 1;".)"; 
TYPE$(N2-H). This will allow 
displaying a greater number of 
choices on the screen at one 
time without scrolling off. 

Frozen vegetables could also 
be added with a little Imagina- 
tion. Vegetable could be given 
as element of TypE$(n), and 
whenever FOOD$(row,1) was 
equal to zero then column 2 
(cut) would be Ignored, and, in- 
stead, a vegetable type would 
be input or retrieved from a new 
column in the array. ■ 



^ 
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You've Written 
a Fantastic Game? 
Then We'd Like to Ptthlish W 
We're looking for hot GAME pro- 
grams: 
ARCADE (HI'SPEED GRAPHICS) 
ADVENTURE FORMAT 
FANTASY WARGAMING 
BOARD GAMES 
LOGIC ft PUZZLE GAMES 

There's Gold in them there 
GamesI Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE. INC. -^a 

Submissions Dept. 

Peterborough. NH 03458 



Coming Next Month 



For November, 80 Microcomputing 
takes a look at micros In business. 
We will cover topics ranging from real 
estate to the stock market. 

Technical Editor Chris Brown has 
done an in-depth study of computers 
and the new white-collar militancy. In 
many businesses and federal agencies, 
there is a class of technical elite who 
have the power to bring these institu- 
tions to their knees by tampering with 
their computers. Some of these people 
have not hesitated to use this power. 

News Editor Bert Latamore will give 
you the latest on electronic mail and its 
impact on the business sector. Who 
knows, maybe someday stamps and 



mailmen will be obsolete. Electronic 
mail is but one area that is revolution- 
izing communications. 

Freelancer Theron Wieranga will 
show you how to use your TRS-80 to 
keep track of your personnel file. This 
program has already seen use in a 
school system and promises to be of in- 
terest to any businessman with a large 
number of employees. 

Are you a realtor with a number of 
rental properties? Freelancer George 
Kwascha has a program that maintains 
rental records. Also of interest to real- 
tors will be Leslie Sparks' real estate in- 
vestment analysis program. ■ 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80 "* MICROCOMPUTER 



SOFTWARE 

FOR TRS-80 • 

OWNERS 



H 



CQinPlJTHQMlCS 



TRS SO- IS A TRADEMARK Of TANDY CORP 

I MONTHLY 

II NEWSMAGAZINE 
" FOR TRS-80 ■ 
C. OWNERS > 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



--^' 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARTICl ES PUBLISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 

• KINCALC A COMPLETE FINANCIAL APPI ICATIONS PACKAGE 

• INEORMATION SYSTEM REVIEW 

• STATISTICAl COMBINATIONS 

• PASCAl 'S TRIANCLE 

• ASSEMRI Y [ ANCUAC.E LOR REOINNEHS 

• DISK hiLES 

• MOimi RE'^'IK^ 

• KEYBOARh IMUNDER ANiJ I U;HMNC. EXPI AINED 

• DOS COMMANDS IN LEV'El II 

• PROSIARII IIV CURVE GENERA I OK 

• CALCL'I AIOK SiMUi.ATlONS 

• IHE MEC.ABYIE CiAP 

• STOCKS AND BONDS 

• BUDGET ANALYSIS (KOK BUSINI SS AND MOMI i 

• NEWDOS «n REVIEW 

• DUTCHING THE HORSE SYS I LM 1 MA L CAN I LOSE 

• A SIMULATED GOLE GAME 

• CONTINUOUS EORM SOURCES 

• TAX SAVER RE'^IEW 

AND MORE 



*^55^ 



f^^^so^i 



A Complete Financial Analysis Package Used 



C-^^ To Calculate Markup, Margin, Annuities, Compound Interest, Nomina! 

qH And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 

cSt^ ^ Savings and Insurance, Percentage Difference Between Two Numbers, 

^ Amortization Schedule and More 



SEND EOR OUR NEW 64 PAGE SOETWAKE CATALOG {INCLUDING LISTINGS OF HUNDREDS OF TRS 80- PROGRAMS AVAILABLE ON 
CASSETTE AND DISKETTE) SJ 00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



All programs are supplied on cassette (add S3 for Diskette Version - add S^ lor tnodtfied Mod-II Version) 



•CDnPJTHQMlCS 



%VL'V^P.■lA*■::,A^ *PO^CA' o^, ■ 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ONE YEAR SUBSCRIPTION S24 

TWO YEAR SUBSCRIPTION $4H 

SAMPLE OF LATEST ISSUE $ 4 

STAR ! MY SUBSCRIPTION WITH ISSUE 

("1 JljIv ]97H«nli? June 1979 • b2'1 July 1980 • a:)0 Jarujary I981I 

NEW SUBSCRIPTION. RENEW'AL 



CREDIT CARD NUMBER 
SIGNATURE 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



NEW!!! 

MOD-U NEWSLETTER 
$1 S/yar Cor Vk Usu— 3 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 




IB 



EXP DATE. 



NAME 



ADDRE5S 



__CITY. 



STATE 



ZIP. 



ADD $12 YEAR (CANADA, MEXICO) ADD $24 YEAR AIR MAIL - OUTSIDE OF US A.. CANADA & MEXICO"' 



-See Liat oi Advertisers on page 386 
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• ••£¥£BjrXHING FOR YOUR TRS-80 ••• 



* TRS-80'" is a tTadem^rk of the Radio Shack Division of Tandy Corporation 



MOD-ii PROGRANIS 



* MX orders processed within 24-Hours 
* 30-Day money back guarantee on all TRSDOS Software 
*Add $3.00 for shipping in UPS Areas 
irAdd $4.00 for C.O.D. or NON-UPS Areas 
•Add $5.00 outside U.S.A., Canada & Mexico 
■* We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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(1) ELECTRIC PENCIL (Micnaol Shrayer Sollware) 
Complete word processor wilh eilensive editing and 
printer (ormatting fealurss. (325 (STANDARD 
TRSDOS VERSION) $350 (DIABLO, NEC OR QUME 
TRS(JOS VERSION) 

(2) GENERAL LEDGER, ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORT CONTROL. 
INVOICrNG AND PAVROLL (Small Business Systems 
Group) an extensive business system lor the serious 
user can Be used one module al a time or as a co- 
ordinated system J225 per module It299 (or the 
complete system 

(31 GENERAL LEDGER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE, INVENTORY CONTROL 
AND PAYROLL (Compuma<) a complete user ori- 
ented business system can be used one module al a 
time OF as a coordmaled syslem $140 per module 
1995 (or ine complete syslem 

(4) MOD-II UTILITY PACKAGE (Racel Computes! 
adds important utilities to TRSDOS copy dies 
selectively (aster and more accurate 'ile copying 
repair bad directories displays sorted direclory o( 
all (lies on t to 4 disk dri.es SUPEHZAP change 
disk ID and more J150 

(5) ADVENTURE «1-»9 (Scott Adams - Ad.enture 
International) a series o( games lormally only 
available on the targe computers your goal is to worK 
your way through a maze o( obstacles in order to 
recover a secret treasure or complete a mission ihe 
package includes all 9 Adventures vmtten Oy ScotI 
Adams $99 95 

161 QSr (Racet Computers) Generalized SuOroulme 
Facility a series o( super last machine language 
utililies that can be called (rom a BASIC program (no 
machine language knowledge required) sorts 1000 
Items in under 5 seconds allows PEEK and POKE 
Statements move data blocks compress and un- 
compress data works under TRSDOS J50 

(7) DSM (Racet Computes] Disk Sort Merge sorts 
and merges large multiple diskette files on a 1 to 4 
drive system NOT AN IN MEMORy SORT can 
actually alphaPetiie (or any other type ol sortl 4 disk 
drives worth a( data sorts one complete disk o( 
information m 10 minutes information is provided to 
use DSM with the fiS MAILING PHOGfiAM works 
under TRSDOS 1150 

(S) R8M (Small Systems Software) a machine 
language rnonitor and disassembler can be used lo 
see and modity memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands tor the MOD-II works 
under TRSDOS 139 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes! 
Link (rom one BASIC program to another saving all 
variaBles chain programs without losing variables 

150 

(10) BASIC CROSS REFERENCE UTILITY (Racet 

Computes) lists all variables and stimgs used in a 
program (with Ihe line numbers in which ihey appear! 
lists all GOTOs and GOSUBs (wirh the line num- 
bers in whicfi they appear) searches (or any specific 
variables or strings (with Ihe line number m which 
Ihey appear) JSO 

Ml) DEVELOPMENT PACKAGE (Racet Computes) 
SuPERZAP (lo see print or change any byle on a 
diskette) Disassembler and MOD-II interface lo trie 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk I'O assemble 
directly into memory sa^e all or portions of source 
to disk dynamic debug lacility (ZBUG) enlendeo 
editor commands $125 

(12) HARD/SOFT DISK SYSTEM (Racet Computes) 
The sottware essential to intertace any o( the popular 
large hard disk drives completely compatible with 
your e«isting software and tiles allows up lo 20 
megabytes ot storage (and larger) directory eipand- 
aoie to handle thousands o( dies $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November f) 

(14) HARD DISK DRIVES coming soon (Nov 1') 

(15) H a E COMPUTRONICS, INC. SHARE-A- 
PROGRAM DISKETTE HI works under TRSDOS a 
collection o( programs written by MOD-II owners 
programs include data base management a word 
processor mail system mortgage calculations 
checkbook register and many others 18 (add $3 
postage outside of Ihe United Slates Canada and 
Meiico) FREE i( you send us a diskette containing 
a program that can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES $39 95 (per 

Doi ot 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 

SOdiskettes comes complete with inden-dividers tilt 
plates and adjusiable spacing $44 95 

(18) MASTER PAC 100 100 essential programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAft^ES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essenlial business 
Digrams INVENTOHY CONTROL PAYROLL 
eOOKKEEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125 page manual and two diskettes $149 95 

(M) EDITOR ASSEMBLER (Galactic Sottware Lid j 
Ihe (irst user onenled Editor Assembler ioi the 
MODEL II and was designed to utilize all Iheteatures 

o( Ihe MODEL II II mcluaes innovative features tor 
ease o( coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 
$229 00 

(21) BASIC COMPILER (MiC'osolt) changes your 
source programs inro machine language increases 

program e«ecution Dy 3-10 times $395 

(J2) MAIL/FILE SYSTEM (rom Galactic Sottware Lid 
slores 2 500 names per disk No sorting lime is 
required since the iiie is automatically sorted by first 
and last name plus Zip Code on mpul Retrieve by any 
combination ol 19 user codes Supports an It digit 
alphanumerica Zip Supcorts a message line Comes 
complele with usei-onented documentalion (100- 
page manual) Allows lO' company name and individ- 
ual o( a company ano complete phone number (and 
e«tension| works under TRSDOS $19900 

(23) INCOME TAX PAC Professional income la. 
package mosi lorms and schedules output lo video 
or line primer automaiic memory storage of all 
.ntoimation data can be loaded from diskette 
Changed and edited built in error checking $199 95 

(2*) COMPUTER GAMES (SBSGl Mean Checker 
Machine Star-Trek III. Concentration. TieasureHunt 
Banco Dog Star Adventure $74 95 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



^^P\24 ORDER 
LINE 




NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



(1) CP/M (Lifeboat Associates) an alternative 
operating system lor the MOD-II that allows MOD-K 
owners lo use any of the hundreds o( programs 
available under CP/M $170 

(2) CP/M HANDBOOK |Sybe>) a step-by-slep 

Suide to CP/M takes the reader through each o( the 
P/M commands numberous sample programs 
practical hints reference tables $13 95 

0) GENERAL LEDGER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL. 
AND PAYROLL (Peachtree Software) requires CP/M 

and MICROSOFT BASIC protessional business 
syslems turn key operation can be used as single 
modules or as a coordinated system $500 per 
module $2500 (or the complele syslem 

(4) WORD-STAR The ultimate word processor a 
menu driven word processing system that can be used 
with any prinler All standard word processing 
commands are included plus many unique com- 
mands only tound on WORD STAR requires CP/M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send (orm letters (created on 
WOHD-STAR) lo any compiled mailing list (using any 
CP'M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CP/M. VVORD STAR and 
andy CP'M Cased mail program (150 

(6) SELECTOR III (Micro-Ap) complete data 
managemeni system userdedned fields and codes 
manages any hsl dedned by the user includes 
addilional modules (or simplided inventory control 
accounts receivable and accounts payable requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro-Ap) the ultimate data 
management system all (ealures use the SELECTOR 
III plus data (lie format conversions (ull page report 
(ormatlei compulalions global search and replace 

hard disk compatible aala'text merging $550 

(8) GLECTOR (Micro-Apj add on package lo the 
SELECTOR general ledger rhat allows Ihe user to 
deline a cuslomiied chart o( accounts $350 

(9) CBASIC-2 a non-interactive BASIC used lor 
many programs that run under CP/M allows user to 
make more efficient use of disk dies eliminates the 
use o( most line number reterences require on such 
programs as Ihe SELECTOR $120 

(10) MICROSOFT BASIC an enhanced version ot the 
MICROSOFT BASIC (ound on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing itie variables 
currently in memory) long variable length tile 
records. WHILE/WEND and others can be used with 
the BASIC COMPILER lo speed up programs (3-10 
times faster oieculion) $325 

(11) MASTER TAX (CPAids) protessional tan 
preparation program prepares schedules A B C D 
E f G. R/RP. SE TC ES and forms 2106 21 19 2210' 
3468 3903 24Jt. 4625. 4726. 4797. 4972. 5695 and 
6521 Pnnlmg can be on readily available pre-pimted 
continuous (orms. on overlays, at on computer 
generated IRS approved (orms Maintains clmt history 
liles interactive with CP'Aids General Ledger $995 

(12) GENERAL LEDGER II (CPAifls) designed (or 
CPA s stores complete 12 month detailed history ot 
transactions generates (mancial statements. 
depreciation loan amorlizalions journals. Inal 
balances, slatemenis o( changes in (mancial position 
and compilation letters includes payroll system wilfi 
automating posting to general ledgers prints 
payroll register. W2's and payroll checks $450 

(13) ELECTRIC PENCIL (Michael Shrayer Soflware) 

Complete word processor with extensive editing 
and printer (ormatting (eatures $275 (Standard 
printer version) S300 (DIABLO. NEC or OUME 
version) 

(14) BASIC COMPILER (Microsolt) ctvanges your 
source programs inlo mactime lanmiaao increases 
program execution by 3-10 limes $395 

• <CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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(914)425-1535 



NEW!!! 

MOD-II NEWSLETTER 
$l8/ycar Cor 11 issues) 
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• ••EVERYTHING FOR YOUR TRS-80'*** 

• ntS-tr* b a tradMiMit o« the Itodio SlMcfc OfvWM ol TMdy Co*po(Mlon 

100 sar^ I M ASTIr P AC 14^ 

ttOOl^*^ ! __y * EDmOW (COMPLETELY REVISED) \ 

FOR YOUR TRS-SO'" LEVEL U MICROCOMPUTER 

ALL ON CASSETTE OR DISKETTE 



,«siHe«» 



BUSINESS AND PERSONAL FINANCE 

1 CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 

3 FEDERAL FICA A WITHHOLDING TAX 

3 COMPUTATIONS 

4 HOME BUDGET ANALYSIS 

5 ANNUITY COMPUTATION 

6 UNTT PRKTING 

7 CHANGE FROM PURCHASE 
H NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 

11 INVENTORY CONTROL 

12 PORTFOUO VALUE COMPUTATIONS 

13 VALUE OF A SHMIE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 
1& FUnJRE VALUE OF AN INVESTMENT 

16 EFFECTIVE INTEREST RATE (LOAN) 

17 PRESENT VALUE OF A FUTURE AMOUNT 

15 RATE OF RETURN VARIABU INFLOW 

19 BATE OF RETURN CONSTANT INFLOW 

20 REGULAR WITHDRAWAL FROM INVESTMENT 

21 STRAIGHT LINE DEPRECIATION 

22 SUM OF DK>ITS DEPRECIATION 

23 DECUNING BALANCE DEPRECIATK>N 

24 BREAK EVEN ANALYSIS 

25, SALVAGE VALUE OF IW^STMENT 

26 PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTKMOS 

28 CREDIT CARD RLE 

29 ECONOMIC ORDER QUANTITY (EOQ) 
INVENTCffiY MODEL 

30 VALUE OF HOUSE CONTENTS 

31 TEXT EDITOR 

32 MONTHLY CALENDAR 

33 DAY OF WEEK 

34 CASH FLOW VS DEPRECIATON 

35 COMPLETE MAIL SYSTEM 

36 INTEREST RATE ON A LEASE 



n»A»** 



STA 



•ISTtCS 



STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 
3B ANGLO MET1C CONVERSION 

39 MEAN. STANDARD DEVIATK)N. 
MAXIMUM AND MINIMUM 

40 SIMPLE UNEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 
« SIMPLE T TEST 

46 CHI SQUARE TEST 

47 NORMAL PROBABILITIES 

48 BINOMIAL PROBABIUTY 

49 POISSON PROBABILITY 

50 MATRIX ADDmON AND SUBTRACTION 

51 MATRIX TRANSPOSE 

52 MATRIX INVERSE 

53 MATRIX MULTIPUCATION 

54 SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56 UNEAR EQUATKW SOLUTKJNS 

57 ROOT HALF INTERVAL SEARCH 

58 ROOTS OF POLYNOMIALS 

59 ROOTS NEWTON-S METHODS 

60 PRIME FACTORS OF INTEGER 
6). LEAST COMMON DENCMNATOR 

62 RADIAN DECREE CONVERSION 

63 NUMERK:AL INTEGRATION 

UnUTIES 

64 QUK:k SORT ROUTINE 
66 ffioGRAM STORAGE INDEX 

66 MULTPLE CHOICE QUIZ BUILDER 

67 FORM LETTER WRITER 

68 SHELL SORT 

69 CASSETTE LABEL MAKER 

70 CODES MESSAGES 

71 MERGE TMO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAW.S KAR GRAPH 
j DRAWS HISIOCRAM 
75 MOVINC. BANNER DISPLAY 

GAMBLING AND GAMES 
7b RANDOM SPfJRTS QUIZ 
-7 GOVERNMENT QUIZ 
7S HORSE RACE 

79 MAGIC SQUARE 

80 ARITHMt lie TtACHtR 

81 HIGH LOW (.AMHlt 

82 UNSCRAMBl f I ErfERS 
tU HANGMAN 
84 GAME Ol NIM 
«$ RUSSIAN ROULETTL 
M ROULETII.GAME 
87 ONE ARMLD BANDIT 
«t HIT THE TARGET 

S9 WALKINti DRUNK 

90 STATE CAPITAl. QUIZ 

91 TIC TAC TOr 

92 DICE GAME 

93 LUNAR LANDARGAML 

94 BIORHYIHM 

95 HORSfc SELfcC FOR (CLASS CALCULATOR! 

96 RANDOM DICE ROLL 

97 RANDOM RtXJLETTE Ba.L 

98 RANDOM CARD DEAI.ER 

99 CUF^S T>IF NUMBER 
100 WHITE OUT SCREEN 



OAH»t»»* 



110 P^®* 



^"'^-^'j:^^ 



GUARANTEED SATISFACTION 

30DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



•9 



iCQMRJTBQWXCS 

so N. PASCACK ROAO 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

D MASTER PAC 100 CASSETTE VERSION $5995 

a MASTER PAC 100 DISKETTE VERSION $59.95 

D MASTER PAC 100 (TRS 80 MODEL D VERSION) $99,95 





dA\ 24 ORDER ^^ 

^^^ LINE ^^ 

(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OP N.V. STATE) 

(800) 431-2818 

* Att orders processed within 24-Hotir9 

* Sf^Ooy money bock guaroMoe on ol Se^tivo 



CREDIT CARD NUMBER EXP DATE. 



SIGNATURE. 



NAME 

ADDRESS CITY STATE ZIP 

•*• ADO SXM KM SHimNG m UrS AREAS • ADD SUI ffOI C04K OR NON-UrS AREAS • ADD SIM OUTSIM U.&A. CANADA 4 Mexico ••• 



^Sm usr Of A<rir*rt<Mra on pege JM 
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CQiriPLJTHQI^IICS 



N 
C. 



• » EVERYTHING FOR YOUR TRS-80 ••• 

TRSSO la a irvdrmarh of rhr Radio Shat k [>l\ lalon of Tandy (orpoiuilon 

BUSINESS PAC 100 

100 Rea<ly-To-Run 
Business Programs 




, 30.DOV """" '^' 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 CasseKes (Or DUkettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance.. ..Accounts Receivable....Accounts Payable 



BUSINESS 100 PROGRAM UST 



1 RULE7S Imerest Appoftionmf m b> R-ji^ o( thr 78 ^ 

2 ATi'^Ul Annuity computaoo'i prograr-i 

3 DATE I .Tie betwec dates 

4 DAYVf-AR Day of year a ynrtKTjlar date 'alls on 

5 LEASFJNr merest rate an lease 

6 BRLAKEVTH Breakeven anorysis 

' DF'P^SL Straghtline depfeciatwn 

8 DEPRSY Sum o( -he digrti depretiiHion 

9 DEPRDB Declining twlance dept«iatxin 

10 Dfci'RDDB Double declining balance deprrMatKxi 

1 1 TAXDtP Cash do* vs deprecioCon table* 

12 CHECK2 Pnnts "lEBS checus along wUh daiFy -eqisef 

IJ CHLCKBKl OieckbooK rnainte'\ance prog'an- 

14 MOPTGAGL.'A Atoftgage arTKHtiMDor taWe 

1 5 MClLTMOTi Computes Cirve needed loi n-ioney to douWe Inijie 

16 SiAiVAUL Dptermines vifvogf vbIup ot an rvestmcnt 

1 7 RRVARin Rate o( retum on investment wrJi *Bnal)le inflows 

18 HRCOTiST Rate ot retum on investnenl with ronstanl inflows 

19 E>T->CI Effective intere^ rate ol a loaf 

20 FVAL F jture value o( an inv^stTnem kompo.nC m-eresi) 
?1 FVAl Present value ot a future amotinl 

?2 I OAT'f'AY Anount ot payment on a Kja- 

23 REGWrTH tjjua. wthdrawals from inv«stiiienl to leavt over 

24 SV"\PDiSK Sirnple discount analysis 

2') DAITVAJ. Equivalent & nooeqmvate"! dated values 'or obrg 

26 AhNUDFJ Present value of deterrod anriuit>es 

27 MARKUP % Mar^tiip analysis lor items 

73 SIMKFU^ID Sniong fund amortiiatusr pioqram 

29 BOr'DVAL Vafue of a bond 

3C DEPliTE Depkrlx>r anafys.s 

31 BLACKS*) Black Sctrales opOons analysis 

32 STOCVAl I Elxpected return on stoch via discouriU dMdefiOs 

33 WARVAL Vdue of a wamint 

34 BO^IDVAl^ Value of a bond 

35 EPSEST titimate d future eamjngs pei share fot company 

36 BETAAUTh Computes alpha and beta variables for slock 

37 SrtARPE 1 Poftfolio setectjon mode) i e «nal stodw to hoid 

38 OFTWRFTE Opton wnting compuialjof s 

39 RIVAL Value of a nght 

40 EXf^AL E;tpectcd value ana^SlS 

4 1 SAYLS Bayesian decisions 

42 VALPRTiF Vaiue of perfect informotjcn 

43 VALADffiF Value of addiOonai infonrvitwr 

44 tmLTTY Denves utjiity tuncticn 

45 SlW^ilX Linear programminc solution tJy simple* method 

46 TRAMS Transportation method tof hneoi programming 

47 EOQ Lcooom«c o«Je> quantTty inventory model 

48 QUEUEl Single servei queueing (warting Imel rriodH 

49 CVP Co«-vofcjm«^>r<rfH analyM 

50 COMDPROF Condtttond prtA t^>les 

51 OPTIOSS Oppo(tur«y loM ttf^m 

52 FQUOQ FlKed quariuty economic order quantity rrxxlH 

MME DcaaoFnon 

33 FOEOWSH Aa above but wll^ ahortaQcs pemMed 

M FQEOQPB Aa above but «Mi quw«ty prKc bre^a 

» QtEUECB CoM-benM waUrQ Une MiyA 

96 NCFAMAL lie! cmMIcw anriyik for tlrTxi4e hv««ment 

57 PROfTC ProAMMty knda <tf a prcfect 

56 CAP1 Cap AMflt Pr ModH viatyM d fmjKt 



W WACC Weighted average lost oi lajsUs 

6C COMPOA,. True rate oi~ loan wtfi loo^'isacng rial retjuireO 

61 DlSCBAi True rale or diSCou-'(e<l k.aii 

6? Mt HdATlAl ''Viger anafys*^ corrpuldljons 

6^ niNRAT Tinanciai ratras tor a fir-n 

64 "SFV -ie* present vame ot profe- 1 

6^ PRHDLAS L^speyres pnce ixJe* 

66 PK1'h:>'A Paasche poce nOex 

67 SEASff^D CoristRKts seav>nal guaritjty -vines Inr (orxxMV 

68 TV^TR finif senes analysis lirieai tieiyj 

69 Il>\LMOV Time serves analysis niovinq average treiio 

70 f UPRir^f F utiire poce estimation with inflat>on 
7 I J^AILPAC Moilimj list sy^lerr 

72 LETWRT l.etler wnt.og systeri- driKs with HA-lPAt 

73 SOFn"3 Sorts list of -uimes 

74 lABFI 1 Shipping label r-iakei 
7^ LABFl 2 ^arne label maner 

/6 BCSEitlD :yjf*i business booKkeeping sysieiTi 

7? IlMtCi.CK CompuTes wef*-"! tow hours triMii timet kxK iiia 

78 ACCTPAY In rtieinorv a< founts pa^flSle f/^(t^\ <.lt>rage pennitted 

79 INVOICE Generate irnoii e o" screen aiv; pnni on prntei 
60 'NVtZHT? In neniorv ir-veilo^y <oiit/o sysle"^ 

8'. Tt.ir>R Computeni*^ lelepho'W d reilcv 

82 TWUSAT* firrw use aratysis 

8J ASSICi Use of ass^nmen! aJqonthm lor ^nX>n^a, \ob assign 

84 ACCIRLC In rTemory a<<ounts -pce-vabte syslerr- s'j>iai)e oK 

8^ TLIWS»'*V Cornpares i 'netJiods of repayme"! ii( kjans 

86 PAY'HEr' Computes gross pay required 'or given net 

87 S£L;_PK Computes seiiiiig pn< e lor ijrvi^ sftc tax ai'iounl 

88 ARBCOMP Artwtiage computations 

89 DEPRSf SinKing fund depre< .atior 

90 UPSZOriF Hnds UPS lones ttom up code 

9: FJAT-LOFT lyues e"ve-ope ik l.idiig -M^n- address 

92 AUTOLXP AutomoOile rnjie-se aiiaJyvs 

93 INSHLE :nsuraice policy f k- 

94 PAYHOLL2 In memor, (ayroi; system 
9& DILAJ^AI Dilution aratysis 

96 LOATAfTD Loan amount a botrowe' tar aford 

9/ RFK'PWCH Pu-chasc pnce for rental p-^sp^rtv 

98 SAlflfAS Srtle kasrthw k anot/sis 

99 RRCO^^VBD Investor s rale d return on convertable bond 
'00 POR"'\'AL9 Stock r-iarkrt portfolio storage- valuation program 



a CASSETTE VERSION «99.95 

D DISKETTE VERSION >99.95 

a 1RS-80* MODEL n VERSION •149.95 



ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADO KOO FOR C.O.D. OR NON-UPS AREAS 
ADD $S.O0 OUTSIDE U.S.A. CANADA & MEXICO 

iCQIYIPJTHQMlCS- , 



New 



TOLL. 



f^flEe 






!^ '^^-2^e 




50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



HOUR 
04 ORDER 
^^ UNE 





425-1535 
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• ••EVERYTHING FOR YOUR TRS-80^^^ 

THS-M) Ih a rradrmsrk of ihf Radio Shut k Dlvlslim of Tandy <:()r|M>rall<>n 

* All orders processed within 24-Hours 
^%^^^%W% ^^W^kT ik '■%W?^^ * 30-Dav monev back guarantee on all Software 
^UUlmMlB Wl A I i<.MB • Add $3.00 for shipping in UPS Areas 

-^— ^—^ -«•••. ^ ^jj $4.00 /or C.O.D. or NON-UPS Areas 

n V TCTI^VCCS * '^^^ ^^^^ ours/de US./^.. Canada & Mexico 
SMALL BUSINESS SYSTEMS ^^ 




SYSTEMS GROUP 



^EXPRESS 




FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1 S.B.S.G. IS a sop*^ sticated Busir-ess So'tware System designed tor the se'O^s businessman 

2 taCi ot the S.B.S.G. Business Modules may be purchased separately, or you may purchase the enti'o coordi"ated business system. 

3 Modules purchased separately do not coordinate with the General Ledger (although tor the standard S.B.S.G. fee, the user may upgrade his 
ndividual n^odules Ic" the coo'd rated system) 

4 Toolproo' Step-By Step p'ocedjres are supplied, planned anO documented 'o' the First- Time Computer User. A I programs are self- 
explanatory, telling Ihe user what is required at every step 

5 Programs are written in BASIC and the source code listing is supplied lor those users who decide to modify the origma' system 

6 A complete users manua; 'S sjpplied with each module 

7 Demo Data diskettes are supplied with sample data, 

8 S.B.S.G. has an In House sta'l that car answc questions and problems related to Ihe proper use of the S.B.S.G. Business System ;on the 
telephone or through the ma '| 

9 Hirst- Timp Computer Owners Note Inst rue! ons are provided 'or entering state payroll withholding tables There .s an additional charge >' 
you prefer to have S.B.S.G. Programmers insert the correct data 

10 Wir,m'jm system reqjiremenl is 2-d"ves lo run any single module 

11 Minimum system feqLirerr:enf s 3-drives to run the coo'd naled business system {AR AP-GL| or (AR AP-GL with PAYHOLL) 

12 Minimum system roquirement is 4 drives to run Ihe extended coordinated system (AR-AP-Gl -PR and INVENTORY/INVOICING) 

13 The A. OSBORNE & ASSOCIATES business -^anbals a-e provided FREE with each o'Oer (they may be purchased separate y at $20 per 
mar'ua'l 

Id The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

'5 fact' module can be purchased as independent modules to run on a 2 or more drive syster- except INVOICING 

16 Memory requiremenl s 48K 'o' t^-e MODEl I and 64K for the MODEL-II 

17 All S.B.S.G. BUSINESS SYSTEMS may be upgraded jplo4-drsk drives No data is ever lost during an upgrade There is a standard S.B.S.G. 
charge tor aN upgrades 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases fror^ 
suppliers and produces ct'ecks in payment of outstanding invoices In 
addition, it produces cash management reports. This system aids in 
tight 'inancial control over al! cash disbursements of the business 
Seve'al reports are available and supply information reeOeC for the 
analysis o' payments expenses, ojrchases and cash requirements Al 
A P data leeds General Ledger so that data is entered mto the syslen 
)ust once These programs were developed 5 years ago tO' the Wang 
"iicro-cornputer and nave been tested r many env ronmenls since 
then The package has been converted to the TRS 80'" a-d is now we'l 
documented, on line, interactive mico-conpuler system with the 
capabilities of (or exceed'ng many larger systems). 
CAPABILITIES: 

* menu driven, easy to use tull screen pror^pting and cursor control 

* invoice oriented eve'ything revolves around the invoice, handles 
new invoice or credit memo or debit memo 

* invoce 'nformaticn recorded, invoice ". descnpiion, buyer, check 
register «, invoice date, age date, amount of i-voice, discount {in %), 
freight, tax ($), total payable 

* transaction pr'nt and file maintenance procedures insure accuracy 

* flexible check calculation procedu'e: allows checks to be calculated 
fo' a set ot vendo'S or-*o' speci'ic vendo's 

* program prints your checks contiguous computerchecks with you.- 
company letterhead can be purchased from SBSG 

* reports include (samples on back) 

• open .tern iisting closed item Isting - bot*- deta-' aid summary 

• debit memo iiSting.'Credit memo listing 

• aging 

• check register report (to give an audit trai: of checks printed) 

• vendor listing and vendor activity ;actv ty o' the whole year) 

* *u ly linned to GENERAL LEDGER each invoice can bedist- buted 
to as many as 'ive (5) different GL accounts system automat-caily 
posts lo cash and A/P accounts 



ACCOUNTS RECEIVABLE 

■''he obiective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credl customers. Management can 
generate in*ormation required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales wh le -^m m zing losses frc-T'. bad debts The programs cc"- 
posing this system were developed b years ago especially for small 
businesses using the Wang Microcomputer They have been tested >n 
many environments since then Each module can be used stand alone 
or can feed Gene'al Ledger for a 'uily mtegratea system 
CAPABILITIES: 

* meni. driven, easy to jse, full screen prompting and cursor control 

* invoice orented: invoices can be entered be'ore ready for billing, 
when ready fo' b>lling, after bi'l.ng or aMer caid 

* allows entry of new invoice, credit memo debil memo, or ctiange/ 
delete invoice 

* allows tor progress payment 

* transaction information rcludes 

• type of A'R transaction • billing date 

" customer PC. « • general iedger account number 

• description of P O • nvoice amount 

• sh'pping/lransportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & tile maintenance procedures insure accuracy 

* customer statements printed, computer statements with your com- 
pay letterhead can be purchased from SBSG 

* reports include (samples on back) 

" Iisting of invoices not yet billed 

• open Items (unpaid invoices) 

• closed Items (paid irwoicesl 

• aging 

* fully linked to General Ledger, will post to applicable accounts, 
debit A.'R, credits account you specify 



^Se* LiSI of Aaverlisers on page 396 
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EVERYTHING FOR YOUR TRS-80'*** 

TRS-M> tm • irMlrmark of ih<- HhiIIo Shark nivlnhtn or Tandy <:or|M>rwih>n 



PAYROLL 

Payroll invoices many complex calculations and the production ol 
reports and documents, many of which are required by governmeni 
agencies it is an ideal candidate for the computer With this Payroll 
system m-house, you can promptly and accurately pay your employees 
and generate accruate documents/ reports to management, employees. 
and appropriate government agencies concerning earnings, taxes, and 
other deductions The package has been converted to the TRS-80'" and 
is now a well documented, op-lme. interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems 

CAPABILITIES: 

* performs alt r>ecessary payroll tasks including 

• tile maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing o( reports and checks 

* can handle salaried and hourly employees 

* employees can receive 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except. 
hourly cannot receive salary and salary cannot receive hourly) 

* special nontaxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated tor 
each employee 

* earnings-to-date are accumulated and added to permanent records: 
taxes are computed and deducted: US income tax. Social Security 
tax state mcome tax, other deductions (regular or one time) 

* paychecks are printed, computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated (or: employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked lo General Ledger Each employee's payroll miormation 
can be distributed lo as many as (12) twelve different GL accounts: 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort 

* Pre-Allocated Files for IMMEDIATE update and inquiry capabilities 

* Fast Disk storage and retrieval 

* Inventory Master Record includes class SKU Division Retail 
Cost Beginning Balance Period Sale Units Period Receipts On 
Order On Hand Minimum Reorder Pomt Recommended Re- 
order Amount Vendor Number Period Sale Dollars YTD Sale 
Units YTD Sale Dollars 

* Calculated and Displayed Formulas include Gross Margin ($) 
Gross Margin (%) Gross Margin ROl (%) Average Inventory Retail 
(S) Average Inventory Cost ($) Turn-Over (%) 

* Reports Generated include Master File Listing Class Description 
Listing. .Transaction Audit Trail Minimum Reorder Point by Ven- 
dor Retail Price Lisl Retail & Cost Price List Period Sales Report 

Year to Date Sales Report Slock Status (Screen or printer output) 
Commission Report (for salesmen and buyers) 

* Transaction Types include Sales. Vendor Receipts Vendor 
Orders Customer Returns Vendor Relurns Transfer Stock 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R, A/P. Payroll, direct posting) in 
an accurate and timely manner Ma|0f reports include the Income State- 
ment and Balance Sheet and a ■special" report designed by manage- 
ment The beauty of this General Ledger system is that it is completely 
user formatted Vou customize" the account numbers, descriptions, 
and report formats to suit particular business requirements These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then The package 
has been converted to the TRS-80'" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand: validated against the account file 
before acceptance 

• external posting, generated by A/R. A/P. Payroll or any other 
user source 

* data IS maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

» reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven, easy to use: full screen promoting and cursor control 



•CQIYIFyTHCH^ICSi 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 




HOUR ^g 
24 ORDER ^ 
LINE 

(914) 425-1535 



PRICING MOO-1 

VERSION 

ACCOUNTS RECEIVABLE $'25 

ACCOUNTS PAYABLE *125 

GENERAL LEDGER $125 

PAYROLL J125 

INVENTORY $175 

INVOICING $150 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 

COORDINATED AR-AP-GL $375 

COORDINATED AR-AP-GL with PAYROLL $495 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL $799 



MOD-II 


MOD-III 


VERSION 


VERSION 


$225 


$19995 


$225 


$19995 


$225 


$199.95 


$225 


$199 95 


$275 


$199 95 


$250 


$199.95 


$749 


$599.95 


$675 


$599 95 


$899 


$799.95 


$1299 


$1199.95 
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• • • EVERYTHING For Your TRS-SO"" Model I or Model III • • • 



TRS-80"iS n triidtTMrk of Tiindy Corp 



, Inc 



■ All orders processed withm 24 Hours 
• 30-Day money back guaranlee 
• Add S3 00 tor shipping m UPS Areas 
• Add S4 OOforC O Dor NON-UPS Areas 
• Add S5 00 io Canada or Mexico 
• Add exact postageloall olher cou nines 



Let Your TRS-80^' 
Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80 "^ 
ASSEMBLY LANGUAGE 

DISK I/O 


REMASSEM-1 

Tiredfil bijying book afli'r hook on assembly larifiuaqcproijramminq and 
still not knowing your POP from youf PUSH? 

RcMSOFT proudly announces a more efficienr way using your own 
TRS-80'' to learn the fundamentals of assemOly laiigiiaqe programming 
at VOUP pace and at VOUR convenienci- 
Our ijr. giiP package -INTRODUCTION TO THS-BO" ASSEMBLY 

PROGRAMMING". wiM provide yOu with tni' tollowinq 
■ Ten Jam (Mute lessons on audio cassf ttt-s 

• A drF.'Pt program trj make your TRS-HO— i I'l*-" ">onilor ser.f as a 
t'larknoaid for itic instrucioi 

• A display program fort-ach lesson Io provide illustration and rem- 
t ircement for wtTat you are hearrng 

• A textbook on TRS-80'" Assembly Language Proqramming 

• Slep-by-slep dissection of complete and useful routines to lest 
rTiemory and to gam deed contfot over the keyboard, videomoni- 
tor, and printer 

• How to access and use powerful routines m your Level H ROW 
Thisco irse was developcdand recorded by Josepti E Willisandistiased 
on the '■uccesstiil series ot courses he has lautjhi at Meta Technologies 
Corporation the Radio Shack Computer Center and otner locations m 
Norinern Ohio The minimum system reguired is a Level 1 1 1 6K RAM 


REMDISK-1 

Your drsk system and you can really step out with REM'. ui r .Educational 
IVlodiile REMDISK-1, a short cotirsc" revealing Ihe details of DISK 1 
PROGRAMMING using assembly langiiage 

Using the same 'ormal as oii' eiiremcly popular intrf>rluction to assem- 
bl/ language programminrj this -ASSEMBLY LANGUAGE DISK I/O 
PROGRAMMING- cou-sr- .ncu,ri..s 

* Two 4'i-mini.ile lessons on audio cassetr"? 

* A 'In. 'er program. 10 rT>,3k.' ^Oui TRS-SO"" .■^'If-'i rr!r>nilar S'=''.e as a 

biar thoa'd for tne i-isifiiCio' 

• A rliS play program 'or r-HCh lesson to pro.iT" iM jm'atrJjn and r'.'m- 
irircemenl (or what you are hearing 

* A liooklel of COmorehenSive f uHy-Cfjrnmcntr'd program listings 
illustrating sequential file 1 random-access tile 1 and track 
anil sector 1 O 

• A diskette with machmr'-readable source codes lor a;i programs 
disciissod in both Radio shack EDTASM and Macro formats 

• Routines to convert frrjm one asserribler lorrii.it to the Other 
This course was developed and recorded b/ Joseph E Willis for the 
student wil'> expe'ience m Hssemlily language programming it is an 
lnlor^1r-(1lal■■'-t^ advanced- '"vl ( our se Minimum riarrlware required IS a 
Model 1 Lff-l II 16K RAM on<' 'lisk drive S/Stem 











iCQiriPJTHQMlCS 



y'^ 




50 N PASCACK RUaD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

GREMASSEM-l (TRS-80 MODEL I CASSETTE) 
D REMASSEM-1 iTRS-80 MODEL I DISKETTE) 
OREMASSEM-I (TRS-80 MODEL III CASSETTE! 
C REMASSEM-1 i TRS-80 MODEL III DISKETTE i 
CREMDlSK-1 I TRS-80 MODEL I DISKETTE. 
CREMDISK-t (TRS-80 MODEL III DISKETTE' 



;(3^\24 



HOUR 

ORDER 

LINE 




(914) 425-1535 



S69 95 
S74 95 
S74 95 
S79 95 
S29 95 
S3d95 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N V STATE) 

(800) 431-2818 



CREDIT CARD NUMBER 

SIGNATURE 

ADDRESS 



NAME 



EXP DATE 



.CITY STATE.. 

ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE "• 



ZIP. 



'See List ot Adverlisers on page 386 



80 Microcomputing, October 1981 • 283 



# # 



from mm mHw^m 

FOR THE TRS-80 MODEL I AND MODEL ID 



I System Diagnostic 



# 



smani^^*^^ 



Tssts-Ei^ 




ProperOperS^SB^ 
For CasseUe or Disk 



IS YOUR COMPUTER WORKING? 



^^^ Af ARE YOU SURE? 

»^n^Q W^ It)'^' checksum tefl 

^^V ^^V0 *^ RAM: four tepdrdtr l«tts including every address <nd d«(d v^lue. 

^ vinen nicM Av. chiraclef senerdtor. video RAM. and video fign^l. 

every key conUct tested, 
chtfdcter left. 
reiid/i* rite/ verify djti. 

connector Uult, djtd trinsmission, fr.iming, ditd loop, b^ud rile generator. 

disk conlroller, drive select ind restore, Irick seek ^nd verify ditd, reul/ write/ verify jN tracks and 
sectors with or withoul erising, sector formatting, disk drive tkner, dijk held cleaner. 

— IndividuAl tests of each device with operator monitoring ind intervention. 

— Contirtuous sysem tests run continually for hours testing c«ch component, with di<rgnostk reports optionally written on tine printer. 

— One program adapts to ai^y system configuration and hardware. 

— Complete instructions and documentation. 



ROM: 

RAM: 

VIDEO DISPLAY: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



MON-1 and MON-4 

The TRS-80 Monitor PrMrams t3 and '4 are powerful utility programs 
enabling you to interact directly with the TRS-BO in Machine Language. 
They ar^ as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PACE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Fealurei Oi The Monitor Pro g rarra Enable You To The followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific v^ues. 

• MODIFY memory in various ways. 

• RELOCATE obfect programs. 

• PRINT output on video display or line printer. 

• READ and WRITE obied tapes in SYSTEM Formal. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk fMes (MON-4 Only). 

• INPUT and OUTPUT of dhk sectors (MON-4 Ortly). 

• SEND and RECEIVE data over RS-233-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MON-J) or Files (MON-4) of Disassem- 
bled output for Editor /Assembler program. 

MON-S CfAr Caa««tta Srst«B«) SM.9$ 
MON-4 CFor Disk Syitanu} ftM-W 



MAIUNG UST 

Maintains mailing lists ol over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any fiehJ (i.e.. name, address, lip 
code). Labels printed in 1, 2, or 3 columns, m master list on one IJr>e, or on 
vicieo display. 

Dtak Vcrstoa Only SM-M 



SMART TERMINAL 

EnAblet your TRS-U to be used as a remote terminal to a lime sharing 
computer system. Supports upper/lower case and full range of conlr^ 
keys, inducnns controlkey mapping inio any ASCII character. Automatic 
transmiision ol files between TRS-BO and host computer. FHes can be read 
Irom or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 
pam. Baud rate and RS-232-C tense switches can be reset without open- 
ing Expansion Interface. Requires RS-232-C interface and modem. 

Cau*ttc or DUk VsrslMi M«-99 



FASTSORT 

A series of machine- language subroutines (lor 1U(, 32K and 48K Sys- 

Imm] lo sort data from BASIC programs. Data may be alphabetic (string) 

'6t numeric (Integer only). Works equally well with Levef II or Dsk Basic. 

c* ^Complele instructions and eiamples provided for interlacing with your 

^^ASlC programs. 

Cassact* or Dl«k Vorslon •«.9f 



HOME BUDGET 

Combines the maintenance of vour checkbook with analysis of your 
income, expenses, and monthly biKs. Handles data including bills, in- 
cluding biNs, income, deposits, checks and debits lo your checking ac- 
count, and cash eipentes. Computes checkbook balance, list of unpaid 
bills, monthly and year-lo-dale summaries ol income and eipenses show- 
ing Income lai deductions. Alt output printed on video display or line 
printer at user's option. Complete instructiom for customizing lo suit 
your own budget. 

Disk VsraloB Only S49.9S 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record »612, this program keeps track of 
income, eipenditures, and payroll for a small business of up lo 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, throush last month, 
and vear-to-dale summaries. Payroll section keeps recora ol individual 
employees and their paychecks with up lo sii categories ol payroll de- 
ductions. Employee payroll record and year-lo-dale payroll totals can be 
computed. Manual contains complete instructiom for cuslomiiingtosuit 
your business. 

DUk Voralon M«-« 
Couatta Varalon taf-VS 

(Cassette Version does not contain payroll) 



■CQinPJTHQMICS; 



50 N PASCACK ROAD 
SPRING VALLEY NEW YORK 10S77 



vrSA_ -R^tSS 

NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 




24 ORDER 
LINE 

(914) 425-1535 



I All orders processed wilhin 24 Hours 
• 30-Oay money hack guarantee 
• Afld $3 DO 'or shipping in UPS Areas 
• Add S4 00 (or C O D or NON-UPS Areas 
• Add S5 00 to Canada or Mexico 
• Add e«act postage loal'olher countries 
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GENERAL 



Tweak six additional characters out of Radio Shack's generator chip.' 



Soft Characters 



Stephen D. Moulton 
766 Blltmore Drive 
Virginia Beach, VA 23454 



Being a computer program- 
mer both in profession and 
hobby, I was Intrigued by a let- 
ter in 80 Input {"LowercasB Ac- 
cess", November, 1980). The 
letter concerned those who had 
Radio Shack's lowercase mod- 
ification Installed, which in- 
cluded a brief program to POKE 
certain special characters into 



10CLS 

20 FOR X- 32 to 191 

30 PRINT CHR$(32); CHR$(X); 
WNEXT 

Program Listing 



video memory. The letter also 
stated that these characters 
were otherwise inaccessible to 
Basic. If you run that program, 
you will see that a lowercase @ 
remains @, while lowercase ar- 
rows and underline keys pro- 
duce spaces (see Program 
Listing 1). 

At this point it occurred to 
me that. If the characters can 
be displayed with a series of 
POKE statements, they are ob- 
viously included In the Radio 
Shack hardware upgrade. The 
lack of accessibility to Basic 
must be caused by a deficiency 
in the software driver. I found 



that this Is Indeed the case, 
although I can not fathom why 
Radio Shack would deliberately 
ignore some of the capabilities 
of their character generator chip. 
At any rate, here Is a fix for 
ULCBAS which will allow the 
display of six additional charac- 
ters (£,U,).vM) under Basic 
control. In addition, the fix will 
repair the defective automatic 
memory protection feature so 
that the two POKE statements 
recommended by Radio Shack 
need not be entered prior to the 
execution of the driver program. 
First, load and execute 
T-BUG and load ULCBAS using 



Chang* Location 


From 


To 


709D 


SO 


F2 
7Dfor16K8y8t»m 


709E 


70 


BD for 32K system 
FD for 48K system 


7247 


40 


■0 


7262 


20 


78 


72M 


to 


7C 


72M 


20 


70 


7265 


20 


7E 


72M 


20 

Table 1 


7F 



the L function. Now use the M 
function to make the changes 
listed in Table 1. The first two 
locations changed will repair 
the automatic memory protec- 
tion feature so that your Basic 
program stack will not interfere 
with the driver software and 
cause a keyboard lockup. The 
remaining six changes add the 
additional characters to the 
driver program. Next, save the 
patched driver on tape using P 
7000 7270 7000 ULC16K (this is 
the filename I use for my 16K 
system, but you can use any 
filename that you find con- 
venient). At this point, I would 
turn off the TRS-80 just to make 
sure that any garbage I may 
have scattered through mem- 
ory will be cleared, but a simple 
J 0000 should suffice. 

To run the modified driver, 
first answer the memory size 
question with Enter (the pro- 
gram is self-protecting, right?). 
Next, type System, press Enter, 
type the filename you chose 
when you saved the program, 
and wait for the tape to load. 
Answer the *? prompt with 
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SCRIPLUS 



Scriplus is a modification to Scripsrt"^ which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change ^x [s^kr-kd^d print 
change no. o-f characters per inch 
or UD^erl.i.ne in fnid— line! 



All in accordance with the capabilities of your printer. 
You can change your print size at will! Features: 

1) The user can send commands to the printer to 
activate special formats 

2) Scriplus will not crash programs protected in high 
memory. 

3) "END" returns to DOS READY instead of re- 
booting. 

4) The initial line-feed is changed to a carriage return 
to empty the text buffer. 

5) The user can gel an ALPHABETIZED directory 
from within scriplus. 

6) Optionally select automatic line feed after carriage 
return. 

7) Supports custom printer drivers (not included) 

8) Modifies Scripsit/LC or /UC. (MOD I) 

9) Works with MOD I and MOD III! (Including MOD III 
3.1 Scripsit!) 

10) Specifically written for the MX-80, but will work 
on ANY Printer that accepts CHR$ codes for 
control. 



Tape or disk — '24.95 

(specify) 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11SO0 STEMMONS EXPRESSWAY, SUITE 104 

DALLAS, TEXAS 75229 

PHONE (214) 484-2976 

IRS»l$C[VUt«t M1CR0NET 70130,203 v^Zl rnctOottttolkKMe 

IiiddiuriisiM tmdyCorp Fmlitf 



/Enter and the familiar Ready 
prompt wilt appear. You now 
have the lowercase driver In 
protected memory, and ?MEM 
will yield 15046. To view your 
new character set, run the Pro- 
gram Listing 1 again. See the 
difference? 

Now that we can access the 
additional characters from 
Basic, let us discuss how to use 
them in our programming. First, 
you will note that the® key will 
always yield "@" when used 
alone and "jC" when used with 
the shift key, regardless of the 
status of the Shift toggle. I did 
this to make the @ key function 
like the other dual-symbol keys 
at the top of the keyboard. I 
also did not Incorporate key- 
board reversal for this key 
because £. will not be used as 
frequently as ® in normal pro- 
gramming applications. Note 
that the computer will not 
accept PRINTjC as PRINT® 
(although the Exatron Stringy 
Floppy will accept jCLOAD as 
® LOAD). Note also that Shift® 
still functions to pause program 



execution. The next four special 
characters can not t)e Input 
from the Keyboard because the 
shifted arrow keys serve control 
functions. These symbols must 
be displayed using ?CHR$(123) 
through (126). The final symbol 
cannot be input from the key- 
board because it is a shifted 
underline, and the TRS^ has 
no underline key to shift! It can 
be displayed by ?CHR$(127). 

There remains one additional 
note for owners of the Exatron 
Stringy Floppy. The lowercase 
driver software must be loaded 
and executed prior to the in- 
itialization of the ESF oper- 
ating system (this applies to 
the original driver supplied by 
Radio Shack or to the one 
created In this article). After ex- 
ecuting the driver program, the 
Stringy Floppy must be initial- 
ized using /12346 {.not /12345) 
because the Exatron and lower- 
case driver debounce routines 
will interfere with one another. 

So there you have It; 32 lower 
case characters for the price of 
26! ■ 



!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without RecopyIng File 

-*- Add Records to Disk Files In Any Sequence 

* Variable Key Length From 1 to 50 Characters 

* Machine Language or Basle Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

• Improved Disk Utillzatkxi 

- Easier Program Devatopment 

- Improved Operating Characteristics 

• Reduce or Eliminate Sorting 

- improved Performance 

ISAM SUBROUTINES Documentation 

ISAM UTILITIES On Diskette $90.00 

- PIUS - Frse Mailing List Sample Application 

Add 6% Sales Tax tor Callfomia Orders 

TR&80 MODU. I, II, A III SOFTWARE FROM: 
Johnson Assoclatos - or - Telephone Order Une 
P.O.BOX1402M ^S5 For Bank Card Sales 

Redding, CA 96001 (91 6) 221-0740 

WRITE FOR FRS CATALOG 
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Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software for Z80 
micros, they took for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



(THEN COMPARE.) 



MTA INTEGRITY: FIIE A 
MITOMATK RECORD LOCKING 



The biggest challenge 
for any multi-user system 
is co-ordinating requests 
from several usej 
to change tb&saj^fefttrd 
at the. 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the 
Password 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost savk 
and more efficient use' 
of all the m ernp i^ou h; 
availabla^^^kcK it 
sej 




J res 
i^^^WSTns. 
fample: normally 

jsers can view a 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



ieep^hWrory 
ser nas been 
. when and 
r how long. 
Pros insist on these 
security features. 
OASIS has them. 



EFHCIENCY: 
RE-ENTRANT BASK 



A multi-user system 
is often not even practical 
on computers limited 
to64K memory, 

OASIS Re-entrant 
BASIC makes it practical. 

How'' 

Because ail users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



upports 
nals 
inws little as 
■ry. Or, with 
itching, as much 
s 784K. 

Multi-Tasking lets each 
user run more than one 
job at the same time. 

And there's our BASIC- 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM), Direct & 
Sequential Files; Mail-Box: 



OASIS IS AVAILABLE FOR 

SYSTEMS Alln5 Compucorp C'omemcq^ 
Delia Pro(lLici5 Digital Group Digila^ 
Microsysiivnis. Dyrabyle G odbou l. 

Iiiflei. Inlcfsystems NorlJ 
SD Svblr 
Graptiic Vi 




SYSTEM SECURITY: 
LOGON, PASSWORD 
&USERAaOUNTING 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 



Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 




twa'e Directory 



PLEASE SEND ME: 

Prie» 
wilh 
Producl Manual 


Manual 
Onlr 


OPERATING SVSTEM 

EXEC Largui^e. 
(lie Managemani 
Use' Accoufling. 
Device D-ive-s. 
Pnni Seociei, 
General Te,i 
EO'to' etc 1 
5IMGI F lJ;1EF! 
M U L T 1 1 J S r Fi 


SI SO 
3M 


SI 7 50 
t7 W 


BASIC COMPILER/ 
INTERPRETER/DESUaaER 


■oo 


IS c,n 


RE-ENTRANT BASIC 

COMPILER/INTERPRETER/ 

DCBUOGER 


150 


15 00 


DEVELOPMENT PACKAGE 

, -1.?;" fQ'-- 


tSQ 


Zi.Oi 


TEXT EDITOR A 
SCRIPT PROCESSOR 


■.i' 


^tfyi 


OlASNOSTIC ■ 
CONVERSION UTILITIES 

(Memory Tosl, 
AssemQjy Language. 
Conv«'Te-s. file 
Recovery. Disk Te»i, 
File Copy from 
otr,e; OS. eic 1 


■CO 


15.00 


COMMUNICATIONS 
PACKAGE 


,r,- 


■■^o: 


PACKAGE PRICE 

?;itv';i [ Ulii R 
MUL'I ij'itfl 


650 


60 00 
60 00 


1 FILE SORT 


100 


1500 


' COBOL-ANSI '74 


760 


35 00 



Orde- CA3IS l-o-" 

Phase One Systems, Inc. 

7700 Edgewater Drrve, Suite 830 

Oakland, CA 94621 

Teieonone (diS! 562-B085 
TWX 910-366-7139 

NAMf 



STREET 


NO BOX 


-1 


CITY 




STATE 
AMOUNT $ 


7IP 



i.Afscr: s,s'e"i descrrpi.on: 

ac3 S3 (cr s- oC'Og 

Ca' ':'i a -ei^ae-^ts acd Sa'es lax) 

C Chec-; enclosed " VISA 

G UPS COD G Maslercharge 

Card Number ._^_ . 

Fxpiralion Dale ^^ . 

Signature 



MAKES MICROS RUN LIKE MINIS 



UTILITY 



A TRSDOS to CP/M conversion program. 



Crossdos 



Jack Means 

1612 East Oakland 

Bloomington, IL 61701 



Digital Research's CPM is 
neither the most sophisti- 
cated nor the most convenient 
operating system available for 
the TRS-80. However, the large 
number of programming ian- 
guages and quality business 
packages available for TRS-80 
CPM made me more than will- 
ing to order it. 

Immediately after receiving 
it, I was faced with two prob- 
lems. First, the text editor pro- 
vided with CPM (ED) was too 
limited and cumbersome to suit 
my needs. Second, I needed 
some way to transfer programs 
and data files from TRSDOS (or 
NEWDOS)toCPM. 

A Solution 

Program Listing 1 solves 
both problems. I can now 
create a program under 
TBSDOS using virtually any 
text editor (Electric Pencil, 
Scrlpsit, Electric Secretary, 
even the TRS-80 Basic editor), 
and transfer the file to CPM 
using the attached program. In 



addition, the program allows 
me to transfer any sequential 
data set from TRSDOS to CPM. 
The program can handle ran- 
dom files, but they must first be 
converted to sequential data 
sets. 

To use the program, load the 
file and type "Run". The system 
will immediately display: Enter 
input file name:. 

At this point, enter the name 
of the TRSDOS file to be trans- 
ferred. If the file is a Basic pro- 
gram created with the TRS-80 
Basic editor, it must have been 
saved with the ASCII option 
(i.e., SAVE "MAILLST/BAS",A). 
The next video display will be: 
Enter name for output CPM file:. 

Enter the name which you 
would like to have assigned to 
the file after it is transferred to 
CPM. Remember, If you plan to 
use the file as input to the 
CBasic compiler, it must have 
the suffix of .BAS (i.e., 
MAILLST.BAS). 

Enter CPM Drive (A.B.C.D] for oulpul: 

Enter the CPM drive name to 
which the output data set 
should be written. Remember 
that CPM uses A, B, C, D in- 
stead of 1, 2, 3, 4. 

The system will now display 
the word Converting: and 



display each text line as it is 
read into the system. When the 
entire file has been read into 



memory, the system will dis- 
play something similar to the 
following: 



10 

20 
30 

40 

50 

6B 

IZ 

SB 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

22a 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

3 90 
400 
410 
420 
430 
440 
450 
460 
470 

4 60 
490 
500 
510 
;XS 
520 
530 
540 
550 
560 



•*•' TRS8B- CPM .1** 
'*'• TRANSFER PROCRAH tt.t 

*'■• COPYRIGHT t , * . 

* * • * JACK HEANS .... 

* * ' ' 1612 EAST OAKLAND .... 

* ■ • ' BLOOMINGTON .... 
' ' • * ILLINOIS .... 

* * • * ALL RIGHTS RESERVED .... 



HL'HL-1 



ML=ML-1 
ML-HL-l 



CLEAR 500 : ML-65535 : CLS : DEFUSHl-iH00a0 

LINEINPUT "ENTER TRSDOS INPUT FILE NAME: ' ; MS 

LIKEINPUT "ENTER NAME FOR fXjTPUT CPM FILE: 'jCS 

LIHEIHPUT -ENTER CPH DRIVE (A,B,C,D1 POfi OIJTPUT: 'jDS 

IF DS < "A" OR DS > "D" THEN GOTO 140 

OPEd 'IVLNS 

LINE!NPUTI1,!S 

IF EOFdl THEN GOTO 28B 

L=LEH(IS| : IF L=e THEN IS-" " 

PRIHTg448, "CONVERTING:- : PRl NT* 51 2 , I S;CHRS (31) 

FOR 1=1 TO L 

A.ASC(«IDS(IS,I,1) 1 

POKE 1-1*(ML-327671 1 ,A 

NEXT I 

POKE|-l-(ML-327 67) ) ,13 

POKE[-l'lHL-32767) ) ,10 

IF ML ■: 33535 THEN GOTO 350 ELSE GOTO 170 

L=LEN(IS| : IF L-0 THEN GOTO 330 

FOR 1-1 TO I, 

A=ASC(HIDS(IS,I,11 ) 

POKEl-l*(HL-32767) ) ,A ; ML=HL-1 

NEXT I 

POKE(-l'lHL-32767) ) ,13 : ML-HL-1 

POKE(-l*(ML-327671 ) ,10 : CLS 

PRINT "FILE ";NS;" HAS BEEN WRITTEN IN MEMORY. - 

PRINT -PLEASE COPY THE FOLLOWING STATEMENTS EXACTLY :"■ PRINT 

A-3276a*(65535-MLl : Z-16 : GOSUB 440 : GOTO 390 

H=N-1 : IF N=0 THEN GOTO 430 

IF B(N)->10 THEN GOTO 420 

A1.BIN)+4B 

MLS-MLS-tCHRS(Al) ; GOTO 380 

A1-B|H)»55 : GOTO 410 

GOTO 4 86 

H.N+1 : B = ISTiA/Z) : C-A-[B*Z1 : B(N1 -IfST(C». 5| 

B(N1-INT(C».51 : A=B 

IF A>e THEN GOTO 4 40 

RETURN 

PRINT -F'.aOO0,-;HLS;",43fl0' 

Z = INT1[65535-MLI/256*1) 

PRINT ■SAVE-;Z;I!S!-:";CS!PRINT 

LINEINPUT -PRESS ENTER WHEN YOU HAVE COPIED THE STATEMENTS ■ 

CLS : PRINT "REMOVE ALL TRSDOS DISKS,' 

PRINT -INSERT THE CPH SYSTE>1 DISKETTE IN DRIVE A. * 

PRINT -INSERT A CPH FORMATED DISKETTE IN DRIVE -;DS : PRINT 

LINEINPUT -PRESS ENTER WHEN THE CPM DISKS ABE READY "-IS 

X-USHlia) 



Program Listing 
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File MAILLST/BAS has been wrillen 
In memory. Please copy Ihe tollowinQ 
slalemenls exactly: 

M8000.375D,4300 

SAVES B MAfLLST BAS 

Press Enler wfien you ha»e copied the 

stalements. 

Once the Enter key has been 
pressed, the screen will clear 
and the following will be 
displayed: 

Remove all THSDOS disks 

Insert the CPM system disk in Onve A 

Insert a CPM formatted disk m drive 

B 

Press Enter *hen t(>e CPM disks are 

ready 

At this point, remove all 
TRSDOS disks and place the 
CPM System disk in drive A 
(TRSDOS 0) and the disk for the 
output in the drive Indicated. If 
the data set is to be written on 
the System disk, the second 
statement can be ignored. 

Once the CPM disks have 
tjeen loaded, press Enter. The 
CPM operating system will be 
loaded and the prompt A> will 
be displayed. At this point you 
should enter: DDT. 



The system will then display 
the following: "-". 

Next, enter the first of the 
two statements you copied 
earlier (I.e., M 8000, 8750,4300). 
The system will respond with: 

Now press the Break key. 
This will cause the CPM to 
reboot. As soon as the A> 
prompt appears, enter the 
second of the two statements 
copied earlier {i.e., SAVE 8 
BiMAILLST.BAS). 

A copy of the transferred file 
is now in the drive specified. It 
can be edited by ED as if it had 
been created on the CPM 
system. However, the last line 
in the file will usually contain 
garbage. To eliminate the line 
simply use the ED kill (K) com- 
mand. 

As written, the system will 
transfer just over 32,000 bytes 
at a time. If your file is larger 
than this, it can be segmented 
and transmitted as individual 
files. Once on the CPM system, 
you can again merge the 
segments. ■ 



AT LAST! 

Mass produclion prices toi riigh quality software Buy diiect and save 50^. Also 
available fof CPM and HOGS 

DATA BASE MANAGER Mod I & III S69 d-IS lAbK) Mod-l< S199 

Mamlam a daia base and produce reporls all wilhoul usei programming Define 
tile parameters and reporl tormals on-lme Key random access last muHi-key 
sofi fieW arithmetics audit log label No lime-consummg overlays 500 happy 
user-s m one year Mod II and 48K versions have over 50 enhancements, mctuding 
40 lields maximum [DM-M2 is great' - 80-US 

A/fl Mod-IS69 MDd-IIS149 Mod-Ill S69 

Handles invoices slatemenis, aging, sales analysis, credit checking, forms input, 
and order entry Unlike other accounts teceivable programs, ours can be used by 
doctors, store managers, etc 

WORD PROCESSOR S4g 

Centers lustifies, indents and numbefS pages Mod-I version (ealufes 
upoEf/lower case without hardware modification' File merge option available 

MAILING LIST Mod I & III S59 S79 i-WKi Mod-ll S99 

The best' Compare and be selective Includes torms input 5-digit selection code, 
zip code cKiension sort on any field and multiple labels Who else offers a reporl 
writer and merges with word P'ocessor'' 

INVENTORY Mod I & III S89 S109 i48Ki Mod-ll S149 

Fast liey random access Reporls include order inio performance summary, EOO 
and user-specifieti reports Many people tiave converted to otti system' Next to 
impossible to damage the file 

GL A/R, A/P. PAYROLL Mod-ll S129 each 

Integrated accounting pacl^age 100' page manual As opposed lo Osborne s slow 
binary search and 64 column scieen, we use fast ISAM and SOcolumns Dual disi< 
and TRSDOS required 

LZI6 S59 

A cassette pactoge ot 10 business programs lor Level ll 16 K systems includes 
wo'O piicessof and data base manager Pokef game S19 

Most programs are on-line, interactive random-access, bug-tree documented 
and delivered on disks Mod-lorogramsrequire32K TRSDOS Were"1 mbusmess 
soflwate — don i lei our low pnce fool you' Ask for our free ?0-page catalog if 
you re still not convinced Compiled versions are available 



E^ 



MICRO ARCHITECT. INC. ^s* 

96 Dothan St,, Arlington, MA 02174 




OUT-OF-STATE TAXES AND SHIPPING COSTS 



WARRANTIES HONORED BY ALL COMPANY OWNED 
RADIO SHACK STORES OR COMPUTOR CENTERS 

WE ALSO CARRY A FULL LINE OF PRINTERS. 
COMPUTORS AND ACCESSORIES 



2 DISK HS-232 (ALL RADIO SHACK EQUIPMENT) 

TR$-80 COLOR 4-K $3 1 5 

1S-K $495 32-K $595 

COLOR D4SK DRIVES 

0*50912-3*339 

— TM TANDY CORP 



WE ACCEPT 

CERTIFIED CHECKS. 

CASHIERS CHECKS 

AND MONEY ORDERS 



PERRY OIL & GAS INCORPORATED 



n7 NORTH MAIN ST PERRY MICHIGAN 48872 
WE OWN AND OPERATE A RADIO SHACK 



PHONE l!)17} 625-4161 MtCH 
DEALERSHIP H16? 



FOR OUR PRICES PLEASE CA[[ TOLL FREE 



1-800-248-3823 



-See List ot Advertisers on page 336 
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GENERAL 



Is anybody there. . . does anybody care? 



Adventures in Modemland 



Fred Blechman 
7217 Bernadine Ave. 
Canoga Park. CA 91307 



So you're a new Model III 
owner— or you're thinking 
of getting a Modei III. One thing 
you want to know is, "Are there 
a iot of programs I can use?" 
The answer is an emphatic yes! 
The vast majority of Basic pro- 
grams written for the TRS-80 
Model I will run without modifi- 
cation on the Model III— but not 
all of them. 

But first let's get some con- 
fusing terminology straight. 
Radio Shack has chosen to use 
the TRS-80 name on all their re- 
cent computers {Model I, Model 
II, Model III, Pocket Computer, 
Color Computer and Videotex 
Terminal). However, the Basic 
interpreters for these computers 
are not the same; some pro- 
grams require more memory 
than others; and some pro- 
grams are written for disk-based 
systems, others strictly for cas- 
sette. 

In both the Model I and the 
Model III the less-sophisticated 
Basic is called Level I. They 
seem to be 100 percent com- 
patible, with the added feature 
Model III Level I includes— print- 



er commands not found in 
Model I Level I. 

Model I Level II Basic is large- 
ly compatible with Model III 
Basic. This Basic is not called 
Level II with the Model III, 
possibly to avoid confusion 
with Model II Basic which Is 
quite different, 

I have a cassette-based 
Model I Level II 16K unit for 
which I've written and sold 
various programs (Amway 
Products Distributor programs 
and Small Home-Business pro- 
grams). I also have 22 programs 
in a new Hayden book {Pro- 
grams for Beginners on the 
TRS-80). Since all these pro- 
grams were written for Model I, 
I wondered if they would run on 
Model III. 

Real Trouble 

I bought the TRS-80 Model III 
Operation and Basic Language 
Reference Manual (Radio 
Shack Catalog Number 
26-2112, $5.95) and read it cover 
to cover. This convinced me the 
Model III is more than just a 
repackaging of the Model I, 
since it has so many additional 
features. 

Since all my programs are in 
Level II Basic, 1 didn't concern 
myself with Level I, but looked 
for information on the program- 



ming compatibility with Model 
III Basic. In the 270-page Model 
III manual, less than one page 
is devoted to Model I to Model 
III conversion hints! What par- 
ticularly grabbed my attention 
were the differences in avail- 
able memory (less in Model III) 
and the slightly different 
character sets. I could see I 
was in trouble, but later found 
the trouble was worse than I 
thought. Many Level II Model III 
differences are not mentioned 
in the manual! 

It became obvious that the 
only certain way to find out how 
my programs would operate 
with a Model ill would be to run 
them on one. Armed with my 
Level II cassettes, my own 
recorder and a loading meter 
(to reduce tape loading prob- 
lems), I went to the local Radio 
Shack Computer Center and ex- 
plained my dilemma to the 
store manager. He could not 
have been more cooperative. 

There were about six Model Is 
and six Model Ills set up for 
their classroom, and he said I 
could use them as long as I 
didn't interfere with his 
classes. 

I found a 16K Model III Basic 
machine and Immediately ran 
into the first thing not men- 
tioned in the Model III manual. 



It seems Radio Shack recently 
changed the DIN five-pin plug 
on the cassette recorder-to- 
computer cable from one with a 
thick plastic sleeve to one with 
a thin metal one. The old type 
plastic sleeve DIN plug will not 
fit the Model III socket! You 
must have the new Radio Shack 
cassette recorder cable, now 
supplied with the CTR-80A 
recorder also available sep- 
arately (Catalog Number 
AW-2577 for $6-95). The new 
cable tits both Model I and 
Model III. 

The manager loaned me a 
new cable. We plugged every- 
thing in, turned on the Model III 
and "CASS?" appeared on the 
screen; this was the computer 
asking me what cassette speed 
to use. Model III Basic uses 500 
baud for data recording; 1500 or 
500 baud for cassette program 
loading or saving. Since Level II 
uses 500 baud only and my 
cassettes were recorded in 
Level II, I typed and entered L 
for low cassette speed. The 
default value (pressing Enter 
without typing anything) will 
result in a high cassette speed 
and Level II tapes will not load! 

The first program I tried was 
my "Amway Order Verification," 
which loads into about 10,400 
bytes of memory: no problem — 
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until I tried to run it. While 
dimensioning a large array- 
something I had no problem do- 
ing with my Model I 16K— the 
Model III told me it was out of 
memory. Model III Basic has 
less available memory. 

A Definite Lack 

How much less? That de- 
pends on your Model I. The 
Model III has 256 bytes less 
user memory than the older ver- 
sions of Model I Level II, 256 
bytes less than later versions. 
When you type and enter: 
?MEM or PRINT MEM on the 
Model I, you get 15572 (older 
Model I) or 15570 {new Model I) 
for Level II 16K. On Model III 
16K Basic you get 15314. This is 
the best way to determine no 
extra memory has been re- 
served for Clear, arrays or 
up per- memory programs. (Ac- 
tually, 50 bytes are auto- 
matically cleared on power-up 
for string handling. To prove 
this, type and enter CLEARO 
and then ?MEM and you'll find 
15364 as the Model III Basic 
total free memory, but you 
won't be able to handle any 
strings at all. Type and enter 
CLEAR50 and you're back to 
power-up configuration.) 

Fortunately in this program, 
the entire array was not really 
required. I reduced the array 
size and the order verification 
program ran beautifully. In 
another version of this pro- 
gram, which needed the max- 
imum array size, I removed 
some remark lines to free 
enough memory. 

A Mystftry Revealed 

Next I loaded my "Amway 
Monthly Gross Profit" pro- 
gram — plenty of memory to 
spare, no problem there. 
However, right at the beginning 
of the program I PEEKed at 
memory location 14312 to 
determine if the printer was 
ready. A number in this memory 
location Indicates the printer 
status in the Model I. The 
printer status is at the same 
memory location in Model III 
Basic. Unfortunately, the value 
of the number at this memory 
location is not the same in the 
Model I and Model III. 

The solution to this problem 



is to PEEK at location 14312 
with your printer on and ready 
and note the number for that 
particular printer. Be aware 
that different printers may give 
a different value at 14312— 
especially If you are using a 
serial printer with a printer- 
driver program in memory. The 
printer-ready number at 14312 
can then be used by the pro- 
gram to determine if the printer 
is ready. If not, the program can 
branch around LPRINT com- 
mands. 

Also, it's not generally 
known (and not in the TRS-80 
manuals) that with Level II 
Basic you can punch in 
POKE16423,4 to make your pro- 
gram transparent to LPRINT 
statements. This also works 
with Model III Basic. 

However, to restore program 
recognition of LPRINT, you 
must insert POKE16423,5 for 
Model I or POKE16423,3 for 
Model III. Do not put in 
POKE16423,5 on the Model III 
or you will lock the computer in 
Disk Basic and will be able to 
recover only by turning the 
computer off (thus losing your 
program) and then turning It 
back on after 10 seconds while 
also pressing the Break key. I 
found this out from the store 
manager when I unintentionally 
locked the computer center's 
Model III in Disk Basic and 
thought I had destroyed it! 

With Renewed Courage 

Regaining my courage, I 
loaded and ran five other Am- 
way programs and found no 
other changes necessary. Then 
I turned to the Small Home- 
Business Package designed for 
Level II 16K with printer. The 
first program, "Speed-Letter," 
a simple text generator, bombed 
out with the message ?0M ER- 
ROR in 130. Line 130 of that pro- 
gram is CLEAR9400, to preserve 
lots of string space for text. The 
fewer bytes of free memory in 
Model III Basic caused this to 
happen, so I changed line 130 
to CLEAR9000 to reduce the 
memory requirement. This 
allowed it to run in Model III 
Basic, but also reduced the 
length of text permitted in us- 
ing the program. 

That program also uses an 



\nm' 




Dough'flo (do'flo) n. [Colloq) a highly mtei 
active business or home finance program, 
designed to instantly analyze where the hell 
all that money went. 

Doughtlo II ^ a business progiam lis a dome linance piogiam Dougtillo is (now hold 
your bieaini. 'an eipendiluie orienled data base management system ' (Wfiew.) Bui 
besi ot all. lis easy lo use 

Whal ttie heck does Doughllo do'' l o'.s 

• AHoivs in Stan] analysis ol business or iionie tdst^ <>0J- iP'o"*! 
■ Keeps taOi ol eipenses wiin up to ?6 usei OelmeO caiego'ies 

• Aiiouvs separation o* home and Dusiress eipenses 'or lan Social 
Spcuriiy Oeduciions etc 

• Ideal tor preparing income and stale laies 

• !5 able lo seai'cn sort and produce tiaril (".opy ..■i a'i> "umDer ol 'teirl^ ana 
cnecki over any range ot dales categories arrounis vendors. O' 
de'if TLpiions 

Be your o*n business analys|i Viitually obsoletes a bookkeeper, because your com 
puter does the luaiK lor you. Use Oougtillo to. 

• Iniiamiy retrieve up to "150 recoids at a iime without lime tonsuming disx 
access 

• Easily generate del ailed repori^ ot d^l eipendilurei 

• Salisty your boss wile (ti.isbanO'') or yoursei' ti'al yo.j knoA noiv jvisely 
(or toolishly) money is being speni -^l 

Exceedingly simple lo use |we lesled ii on simple people^, now there is no eacuse 
not lo Know wheie the hell you losi all Ihat money, Mhelhei il was last yeaf oi lasl 
month. Besi ol all. maybe now you'll be able to save some ol that dough lot Ihe 
lutuief Requires 32K and one or mote disk drives Specify Model I or III. At only 
S39.95 postpaid, it's a steal sure to save you money' 



alphanelics 



P.O. BOX 597 FORESTVILLE, CA 95436 
24 hr. phone (707) 887-7237 ["^ 






PERFECT 
CLOAD 



DKVMKl 



TIME 




Al.PHANETlCS TRS-SO TAPE DIGIJIZER 

■ from artv.evi in ine S*01er"bP' Otlobpr 19B0Elcni«nIary Electron its Hepr.nl 5 s.ailahle upon rtquesr 

Ai lasl ihete >s a cure loi TRS 80 lape cloadmg blues For ovei Ihree years. Alphanelics 
has been selling ihe TRS 80 Tape Oigitiier a proven hardware solution lor your soltware 
problems No longer need you juggle the recorder's volume control endlessly, trying lor 
a perlect cload ol a pre recorded program Just pop the lape into Ihe cassette recorder, 
process Ihe signal ihrough our digit ner. and you re ready lo RUN a perlect load! , 

Jusi check out the Tape Oigiliier's lealures 

• M^kes tjpp prograin load.nq viriuaii, indeppnaent ot volume control 
selling 

• Allows r:opying system and nonnai tapes Aitho,,! uMnq con'Duler 

• Makes a pet'eci digiidi copv ol anv tjoe v.i\tiout iismg coi'ipuier ' 
removing hum noise and (.iires minor dropouts 

■• Cassplte switch allows manual ( ontroi ot i.asf,Ptle rei order independent 
o' compuler control 

• Good Da I a indicator nasii/ enables splling proper vol, j me doubles as 
a [ape 'Tiornlor 

• AC powered nobalteriostort'piai.c . 

• Housed in J sturdy dit'dciivp nietji case 

• Compieteivcoinpaubie with level i s il a^so I OU' speed Model ijl 

Feed your cassette lo the Alphanelics Tape Digtlizei and teed iou< computer the eiact 
digital wavelorm Ihe TRS BO gave your lape Gel rid ol youi tape bugs today — $64 95 
postpaid or return within tO days lot a lull lelund' 



^See List ot Advertisers on page 386 




PROBASIC 



PROBASIC $195.00 

Lo«ier rekxatably links user specified modules to save memory. 
Design BASIC to your spedficaiions (now or later). 
Dump feature allows you to save your versions of Basic 
SamQie: PROBASIC -P; ACDEFGIM -S:Your file 



Probasic Includes the foltowlng relocatable modutes 



PRO - ANGLES 

DEGREES, RADIANS 
ASIN, ACQS, PI # 



PRO-LABELS 

LatieJ branctiing & testing 
IF LABEL 85 < > Test" 
THEN MERGE . . . 
85 Test" PRINT 'Tesf 



PRO-DEBUG 

* Most brackets optkxial . . . 

* Fix - T M error 

* New - DELETE 

* TRSTEP, TRVAR, PROC. 
INSERT, DIR, INBSC 



PRO-EXTENSIONS 

Dynamicly save variables & 
files during editing, merging, 
linking & deteting, , . . 
New - RENUM 
New - MERGE. LINK 



PRO-KEYS 

* Redefine key(s) to any string 
from program or keyboard 

* Enable/Disable from key- 
board with CTR'L - ) 

* Fix - live - keytx]ard 

■ PROKEY = , PROKEYS 



PRO- WORDS 

UPC$, LWC$, TRIMS, REVS, 
PAUSE, RPTS FCHR. FSTR, 
FSECTS, CHGS, EVAL. 
CKKEY, FRACT, COMP, 
FQTY, MIN, MAX, EDTS, E #, 
INVS, CNSECS. 



PRCMNACH 
SVC excess to bask: sutis 
New • BREAK (Reset) 
PEEK, PEEK%, PEEKS, 
POKE, POKE%, POKES, 
CALL adres (parms), 
CLRTN, EXECUTE, INP, 
OLTT 



PRO-EDTT 

Immediate entry keys 
• «•■■•. .Ml 
New - LIST & EDIT 
ROLLUP, ROLLDN 



PRO -CRT 

Inverse vidk> 

CRT, CRTS, SCROLL 



PRO-SORT 

String aray sort routines 
2000 strings in 7-16 sec 
SORTa$(*USING 1,2. . . 



PRO - RLES 

Fw - LOF 
RELOC, OPEN "E" 



PRO-FUNCnONS 

Multi-tine Functkxis 

MIDSTO 

WAIT for S reorganizing 

New-HEXS 

Misc fixes 



PRO - VRS 

Allows 3 letter variables 
Reserved words in variables 
UPCVRS, LWCVRS 
KEYVRS, VARLEN 



PRO-GRAPH 

Draw lines, patterns, points 
SET, RESET. POINT, 
USING, TO, GRAPH 



Call and we'll send our 
PRO-8(^SYSTEMS .507 
3206 CENTER STREET 
CedarFalls, la. 50613 



TEST PROGRAM" listing 

319-266^262 
319-266-7184 
319-233-6111 



up arrow to indicate the end of 
text. The Model III video display 
character set is not Identical to 
the Model I. In particular, there 
are 96 special additional char- 
acters, but no up, down, left or 
right arrows! It seems incredi- 
ble these were not included in 
the new 96 characters. The up 
arrow on the Model I keyboard 
produced an up arrow on the 
screen. This could also be gen- 
erated using the command 
CHR$(91). The Model HI key 
tmard still has an up arrow, but 
this key (or CHRS(91)) produces 
a left bracket Instead of an up 
arrow. I didn't change my pro- 
gram but instead, tolerate a left 
bracket instead of an up arrow 
on the screen. This could really 
t>e a problem in a program that 
used arrows to indicate direc- 
tion, such as some game pro- 
grams. 

Another Program Bombs 

My '■12-Column Ledger" and 
"3-Across Mailing Labels" pro- 
grams loaded and ran with no 
changes. 

However, I ran into two 
Model III Basic problems with 
my "Telephone Dialer/Timer" 
program. This program auto- 
matically dials a telephone, us- 
ing up to 500 names and phone 
numbers stored in memory. The 
dialing is accomplished by us- 
ing the internal TRS-80 relay to 
trigger an external buffer relay 
whose contacts interrupt the 
phone circuit. The recorder 
cable subminiature plug (which 
normally goes to the recorder 
remote jack) is directly con- 
nected to the internal TRS-80 
relay contacts. The OUT255,4 
command on the Model I closes 
this relay's contacts, and 
OUT255,0 is used to open the 
relay contacts. This does not 
work on the Model 111, so I got 
help from the manager again. 
He and the Computer Center 
lead technician went through 
some Model III schematics and 
told me to try OUT236,2 to close 
the relay and OUT236,0 to open 
it. It worked! 

The timing portion of this 
program, used to show elapsed 
time in seconds and minutes 
for cost calculation, was run- 
ning too fast. The Model III runs 
at 2.02752 MHz, while the 



Model 1 runs at 1.774 MHz. Con- 
sequently, any For... Next loops 
used for timing need to be 
modified. Unfortunately, al- 
though the Model III Internal 
clock speed is approximately 
14.3 percent faster than the 
Model I, the Basic speed of 
operation is not directly related 
by the same percentage. In this 
program I found a FOR X = 1 TO 
266:NEXT loop had to be 
changed to FOR X = 1 TO 
285:N EXT (only a seven percent 
increase In counts) to retain 
one second for a completed 
loop count. It becomes a matter 
of trial and error and will vary 
with individual machines and 
room temperature. The circuits 
are crystal controlled, with no 
real attempt at extreme ac- 
curacy or long-term tempera- 
ture stability, so don't expect 
your TRS-80 timing loops to 
have even the accuracy of your 
digital wristwatch. 

I ran into the same thing in 
my "Telephone Toll-Charge" 
program, where a similar 
For.. .Next loop count had to be 
increased from 263 to 325 (an 
almost 24 percent increase in 
counts) to maintain a nominal 
one-second completed loop. 
Several things affect the run- 
ning speed of For.. .Next loops: 
the location of the loop within 
the program; whether the vari- 
able is an integer, single or 
double precision; and to some 
degree, the number of other 
variables that precede this loop 
variable in the program. 

Next, I decided to see how 
the 22 programs I wrote for the 
Hayden book would run in 
Model III Basic. Most of these 
programs were originally writ- 
ten in Level I 4K Basic, then 
changed to Level II. Since the 
book features line-by-line ex- 
planations of each program, I 
wanted to see if any rewriting 
would be necessary. I found 
that except for the numbers in 
some timing loops, no other 
program changes were 
necessary. So, Model III runs 
many simple Model I programs 
with little or no change. 

The book also contains 
several appendices, and I 
checked their validity for Model 

III Basic. A two-line keytward 
debounce program, needed in 
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Level II to prevent multiple en- 
tries when pressing a key only 
once, is not needed tor the 
Model ill, since the keyboard 
does not have this problem. My 
AudioA/lsual Control Box. for 
reliably loading cassette pro- 
grams and controlling recorder 
operation, worked perfectly 
with the Model 111 without any 
changes. Simple subroutines 
lor printing the screen display 
on a printer, with and without 
graphics, worked perfectly. But 
I ran into trouble using a simple 
two-line Basic program merg- 
ing technique. 

Anolhar Discovery 

The Model Ml manual 
memory map (page 12/23 of the 
operation section) shows 17129 
as the beginning of user 
memory. However, decimal 
memory locations 16548 and 
16549 are the beginnlng-of- 
program pointer. The numbers 
In these two locations are the 
least and most significant bits. 
in decimal form, of an eight- 
digit byte giving the decimal 
location of the beginning of the 
Basic program area. 

For Model I Level il, location 

16548 shows a 233 and location 

16549 has a 66. Multiply 66 by 
256 and add 233 and you get 
17129. However, the Model 111 
on power-up shows a 67 in loca- 
tion 16549 and 233 in 16548. 
Since 67 times 256 plus 233 
equals 17385, it seems the 



beginning of Basic programs is 
17385 — exactly 256 bytes 
higher than In the Model I. 

Apparently this Is where the 
Model III lost 256 bytes. I con- 
firmed this with some PEEKs at 
a Basic program in memory and 
by successfully merging pro- 
grams using the technique in 
the tx>ok. revised to reflect the 
new beglnning-of-program loca- 
tion. 

While you may wonder if this 
is Important, I can tell you this 
change will raise havoc with 
any System tapesyou have that 
load into low memory. There 
are various utility programs 
that do this. They won't work 
unless modified and for most of 
them this means "back to the 
drawing board," since they are 
written In machine language, 
not Basic. 

Another item in my book ap- 
pendix needed revision. 1 have a 
one-liner that makes two 
cassette copies with a two- 
second gap t>etween them. I put 
this at the end of all my pro- 
grams as the last line: 



WEB International T-Beep, a 
device that beeps on command 
from the computer. This tells 
you when the computer has 
finished a task (sort, search. 
load, save or a program error), it 
uses a simple command and 
time-loop for operation from 
the cassette auxiliary cable. 
The command OUT255,1 
causes the voltage at the com- 
puter's gray miniature phone 
plug to go from its normal 45 
volts dc to .9 volts dc. This is 
enough to make the T-Beep 
sound. The command OUT 
255,0 returns the voltage to .45 



volts. I checked this out on the 
Model III and these commands 
have not twen changed. 

There are many other subtle 
differences between Level II 
and Model lit Basic in various 
ROM addresses that can crash 
your programs written for Level 
II In machine code. Also, Basic 
POKES and PEEKs will have to 
be carefully checked. If your 
Level II program crashes in 
Model III— especially with a 
?CASS or the memory size query 
on the screen— you probably 
POKEd into the wrong loca- 
tion. ■ 



Dlttar«nc« 


Iwfti II Bute 1SK 


Modal III BmIc ISK 


CiBHtts Cable ' 


Plastic DIN Pii>g 


Metal DIN Plug 
(R/S«AW2577) 


Less Msmofv 


■'MEM = 15772 Of 15770 


?MEM = 15364 


[256 Of 258 Byiasi 






Primer Status' 


7PtEK (143121 


?PEEK (14312) 


(Same Locitlon. 


[Note Value] 


(Nate Value) 


DtMerenI Value) 






LPfllNT* 


POKE 16423,4 to DisaDtB 


POKE 16423,4 to Disable 




POKE 16423,5 lo Enable 


POKE 16423,3 10 Enable 


CMHWD 


1 


( 


Arrows 


f - * — 


None 



CSAVEr':0UT255,4:F0B I - 1 
2000:NEXT:CSAVE"V 



TO 



See the problem? OUT255,4 
must be changed to OUT236,2 
tor Model 111. With this as the 
last program line, you merely 
type run line number and Enter 
and tt>e computer dumps two 
copies on tape. 

One of my programs uses a 



Speed 
(Timing Loopsl 

Inlernal 
Relay' 

Beginning ol 
Basic Progiam- 



Qui 255.4 lo Close 
Oul 255,0 lo Open 



17129 (42EgHei) 



2 02752 MHi 



Out 236.2 to Close 
Out 236,0 10 Oper 



17385 (43E9MeK) 



"Not cov«f»d (Of incoffBCt') in Moael III nianuBl 

Table 1. Some Level ll/Model III Basic Differences 



5,000,000/20,000,000 BYTES 

From Micro Mainframe 
10 MEGABYTE HARD DISK DRIVES, with REMOVABLE Cartridges, For Models I / II / 111 (S5,995/S8990) 
SERIES III H. Model III with 5,000,000 byte hard disk drive{s} {$6,995/39,095) or add to your Model I/Ill {S3, 795) 
SERIES III f. Model III with a controller board (available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

From AT-80 
GLSa — 1149 — Radio Shack General Ledger 1.1 with over 30 added features; including a general ledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 
ARB8 — S199 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 
GL/Ml — 149 — Convert your General Ledger 1.1 to GLB». Typical user comment: "Takes half as much time." 
AR/M1 — J49 — Convert your Accounts Receivable 1.2 to ARM. Typical user comment "Saves hours ' 
GL/Ml uid AR/Ml require proof of purchase of the original programs, or, send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5.00 each. 

FTDEUDBO - 112 - Displays and Executes the NEWOOS/80 Appendix A programs/keyboard entries. Requires 32K. 
HEWD0S/8Q - $135 LOOS - J135 EPSON MX-70/B0/FT - SClll FRICTIOM KIT - 149 

AT-80 3827 Dismount Dallas, Texas 75211 (214) 339-0498 ^ 



^S** List of Adv*rtismrs on D'Q* 386 
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'TIC-TOC 80"* 

Micro Clock 

Put o wrisf worch on your Computer. Gives Time, Dote, 
ond Day of week, without the need of operator input. 
Kuns on Dotteries, so it never needs to be reset. Gives 
you the obility to enter doto with the knowledge rhot 
the Dote ond time ore correct. Includes complete 
documenrotion, ond sompie routines. 

Mod I Version S99.00 

Mod III Version S109.00 

NEW DOS PLUS SUPPORTED!! 



LIGHT PEN 



Model I (j II Light Pen. Needs only o 9 Volt Dotrery. 
Attoches through the cosserte recorder for eose of 
operation. Eosy to use ond program. Comes complete 
with hordwore ond extensive documenrotion ond 
sompie routines. All this power for only S19.95 



LYNX MODEMS 



Expond your horizons, oilow yourself to communicore 
with other computers, ond for others to communicote 
with your computer*! Now this is eosy to do with the NEW 
Model I (j III LYNX Modem with Auto Answer/Diol 
features. Needs no RS232-C Doord instolled in the TRS- 
flO'". Full 1 yeor worronty. All this for only $299.95 



MODEL III MEMORY KIT 

Upgrade your Model III to 32 or 4d K with the RIGHT 
Memory Chips. These ore Prime 150ns (Post!!) chips. 
Oewore of slower chips, os futureMod III upgrodes rr^oy 
not work with them! 

16Kset S45.00 

32K set $80.00 



UNITERM 

UNIVERSAL TERMINAL PROGRAM 

by Pete RoberTs 

The first ond only fully intelligent termir>ol progrom for 
DOTH Mod I and Mod III users! Includes oil features found 
in Terminol programs costing MUCH more, plus mony not 
found ony where else. Includes extensive 
Documentation ond hondsome binder. 
Price $79.95 



RUN YOUR OWN 
COMPUTER BULLETIN 
BOARD 

Become o CONNEQION-W SYSOP (System Operator) 
with LYNXModem, and CONNEQION-SO DOS Program 
by Tom Vonde-Stouwe & Rich Taylor. All for only $399 
($ 1 00 off regular price). 

CONNEaiON-dO DBS Alone $199.95 

LYNX Auto Modem Alone $299.95 



DOS PLUS 



This is the BEST Operaring System currently ovoiloblefor 
the TRS-flO"". It offers you oil the features you could ever 
use. speed, reliability and much more. Avoiloble for the 
Model I ond III. Single and double density systems 
avoiloble. Only 99.95 either system. 



UTILITY PACK 



COPY 



by Dick Dolcom 



Lood in rhe 500 Baud system ropes in 1 /3 rhe rime with 
Copy III. This uriiiry will reod in your 500 boud sysrerr> 
ropes ond Then write rhem out ot 1 500 boud. This gives 
you bockup protection OS well o speeding up your ropes. 
A must for oil Model III Cosserte users' 
SPECIAL S9.95 



CASOP 



The CASOP Utility will oIlow you to copy systems ropes, 
find lood locorions. check for hidden messages, modify 
program blocks, relocote program blocks ond merge 

two tope programsrogerher. CASOP isomusrifyouwrire 
or load SYSTEM topes $24 95 



by Mike Friedman 

FOR THE SERIOUS TRS-W USER 

CONTAINS: 

S pooler: Very fast. Allows poge parameters 6 Perf Skip. 

This spooler ollows you to switch Doss without 

(nterupting printlngll 

Erase: Super progrom. purge urility wirh mony modes of 

operation. You will never use KILL ogoin!! 

Mofi: Ploces a sector mop of your disk on the screen. 

Shows free, used and locked out qrans. 

All for only $49.95 



MODEL III DISK DIREQORY 

PROGRAM by Dill Moxey 

Catalogue your Diskettes with this easy to use Cotologue 

program for Model III Disk systems. Con run on as little as 

32K 1 Disk system. Helps you keep track of ALL of your 

programs. 

ONLY H9.95 




^123 



a 171 Hawkins Road 

Centereach, New York 11720 



l^^^^n ^^^^^ 



(516) 981-6568 (Voice) 
(516) 588-5606 (Data) 
MNET-70031. 105 



Dealer Inquiries Welcome 

Add $2.00 S & H 
NYS res. odd oppr. tax I 
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AMBE 



EYE FATIGUE- Much 
discussion has token 
ploce regarding 
screen Color and 
confrosf. ExTensive 
reseorch lios 
produced o 
breokrtirough in the 
prevention of 
Operator Eye Fotigue. 




Amber has been found 
to be mucli more effec- 
tive in preventing eye 



TM 



fatigue than any other 
color. Put on Amber 
Eoze Filter on yourTRS- 
60'" or any other 
computer monitor. 
Contocf one of the 
dealers below. 

Model I S19.95 

Model 11 Cr ill.. $24.95 
Other Computers Coll 



The Copyright Kit 

How ro Copyright your Computer Sofrwore 



A self-instruction 
booklet on 
copyrighting the 
computer programs 
you vflite. INCLUDES: 
Step by step 
instructions, sample 
forms, as well as 
discussions of 
copyrights, porients 
ond trode secrets, your 
rights secured by 




copyrights, legal 
remedies upon 
infringements, 
material not 
copyrightable ond 



MUCH MORE! Written 
by Attorneys. 
Published by Narionol 
Attorneys Publications 
Inc. and distributed 
exclusively through 
D.T. Enterprises ond 
available from the 
dealers below. IF YOU 
EVER WROTE A 
COMPUTER PROGRAM, 
YOU NEED THIS BOOK!! 



Available At 



Breeze Compuring 
P.O. Oox 1013 
Berkley. Ml 46072 
3l3-2flS-9422 

Progroms Unlimited 
20 Jericho Tpke. 
Jericho. I^Y 11 753 
600-645-6036 

Contemporary Comm Corp. 
5562 Coral Woy 
Hoslen, Ml 46640 
517-039-1028 



Computer Moqic Inc. 
1 1 5 Weltshire Ave. 
Louisville. KY 40207 
502-6939334 

Son John Enterprises 
P.O. Box 1671 
Freemont.CA 94536 
415-651-4147 

Stevens Rodio Shock 
562 HutT Rood 
Phoenixvllle, PA 19460 
600-345-6279 



All Systems Go 

1 05 W. Plant St. 

Winter Gorden.FL 32761 

305-877-2630 

Bobs TV. 

93-1 5 66th Drive 

Woodhoven. MY 11421 

212-441-2607 

Soft Seaof Morkering 

6250 Middle Belt Rd, 
GordenCity.MI 46135 
313-425-4020 



CPU Computer Corp. 
1 75 Moin Street 
Charleston. MA 02 129 



Computer Serv. of Donbury 
P.O. Box 993 
Donbury. Cr. 06610 
203-744-5516 

Omni Systems Associores 

P.O. Box 632 

W. Caldwell. NJ 07006 

201-226-9185 




171 Howkins Rood ^'.'2 
Cenrereoch. New York 1 1720 
(516) 981-8568 (Voice) 
(516) 586-5836 (Doro) 
MNET-70331. 105 



Deoler Inquiries Welcome 

Add S2 00 S G H 
NYS ie5 odd opp' iQ« 




-See Lisl ol Advertisers on page 386 
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TECHNIQUE 



Harmony and multiplicity. 



Multi-Statement 



Dan Keen and Dave Dischert 

Custom Tailored 

Computer Software 

RD # 1. Box 432, 

State Highway 83 

Cape May Court House, NJ 

08210 



One of the best features of 
Basic programming Is that 
once you become good at It, 
there are more conquests to 
make as you discover new 
methods to use so your pro- 
grams look neater, execute 
faster, and use less memory 
space. We will examine some 



tricks that wilt help you round 
off those rough edges. 

It never occurs to most pro- 
grammers that data state- 
ments can exist In harmony on 
multiple statement lines. The 
Model I owner's manual gives 
the Impression that data lines 
should be tucked away by 
themselves at the t>ottom of the 
program. But, both of these 
lines are valid: 



10DATA23,25,89.100: FORX-1 to 4: READ 

A(X):NEXT 

10 FORX « 1 to 4: READ A(X): NEXT: DATA 

23^,89,100 



Don't hold back on the length 
of multiple statement lines, 
pack them full. Multiple 
statements save bytes and 
decrease program run time. 



la CLS 

2B PRINTe256,*<A>DD'!PRINT'<R>EPOBT'iPRIHT"<D>ELETE"iPBI»T"':S>ET 
UP" 

JB AS-INREYS:IFAS-'A"THENlBaELSEIFAS-"R"THENRUH"REPORT/BAS"ELSEI 
FAS-"DTMENRUN"DELET£/BAS"ELSEIFAS-'S-THENG0T02BB 
40 FORX-lTOSBiNEXTiGOSUBSeiFORX-lTOlBf ;NEXT:GOSUB7B 
5B GOTOSB 

6B PRISTe2 57,*A";:PRINTi321,-R"iiPRIHTe3e5,"D'i!PRINT8449,*S"i!R 
ETURN 

78 PfiINTe257,' ■;:PRINTe321,* "; : PRIHTS3B5 ,■ * j : PRINTS449, " "jsR 

ETUfiH 



Program Listing 1. 



10 ONERRORGOTO100:DEFUSR-123456 




20 REM 




OTHER INSTRUCTIONS GO HERE 




FOR DISK 




60 GOTO200 




100 POKE16526,L, S. B. : POKE16527 ,M. S. B. I 


OTHER INSTRUCTIONS GO HERE 




FOR TAPE 




200 ONERRORGOTO0:REM 




PROGRAM STARTS HERE 




210 X=USR(Q) 




Program Listing 2. 





Program Listing 1 shows a 
sample menu. An option Is to 
be selected. Check out line 
30— It's packed, but very effi- 
cient. The book didn't tell you 
that It's possible to use more 
than one If . . . Then . . . Else 
statement on a line, but you 
can use as many as you want. 
Just keep track so each If has a 
Then, and an Else If needed. 

There are two other In- 
teresting points to be made 
about that short program In 
Listing 1. First, If some options 
are selected, program execu- 
tion may branch to another sec- 
tion within the program (by us- 
ing GOTOs), or It may run an 
entirely different program. All 
the command words listed In 
chapter two In your Level II 
owner's manual can be used. 
The only exception Is CONT: 
It's not that the machine 
doesn't recognize that word. It 
Just doesn't know what to con- 
tinue. 

Some commands don't 
return you to your Basic pro- 
gram after they execute, such 
as CLOAD, List and System. 

Experiment deleting lines or 
even causing New to execute If 
the operator indicates he's 
done with this program. 

The second point of Interest 
Is dynamic flashing of the 
characters to be selected. As 
you can see, the program 
prompts you to respond with A, 
R, DorS. Between checking the 
keyboard via INKEY$, these let- 
ters are blinked on and off. 
Since the Model I doesn't have 
a flashing cursor, this 
animated input lets the 
operator know that the com- 



puter Is ready and awaiting 
further Instructions. 

Potpourri 

You can use a PEEK state- 
ment as the value part of a 
POKE statement. This line 
takes the character on the up- 
per-most left side of the screen 
and displays It near the center of 
the screen: 

10 POKE 15850, PEEK (15360) 

Variables with a declaration 
character after them may or 
may not be the same as the 
plain variable. For example, If 
you use the variable SR%, 
don't expect SR to have the 
same value. We've run into 
trouble assuming that the two 
would always be equal. 

Auto Date Routine 

If you have a program which 
uses the current day's date 
within It, put the auto date 
check routine at the top of Pro- 
gram Listing 4. The routine 
determines If the date has been 
set. If the date has not been set. 
It will ask you to Enter the date. 
Should the date already be set, 
then it will display the date and 
ask Is Date O.K.? Execute these 
lines before a clear statement 
In your program so none of the 
variables here will Interfere 
with those used later on. 

The routine simply PEEKs 
the address where the day Is 
stored. If the value there is zero, 
the date has not been set. 

TheFor...N0xtTrfck 

Check out Program Listing 3. 
See the NEXT A In lines 50, 60, 
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70, 80, and 100? You could 
rewrite the program by chang- 
ing all ot those NEXT As to 
GOTO 20 and delete line 10. But 
the program as it stands taites 
up fewer bytes than would the 
GOTO version even with that 
extra ilne deleted! 

This method is a convenient 
way of returning to the same 
point in a program. Perhaps the 
returned point could set up 
something on the screen, or 
reset some variable. By step- 
ping zero, the loop never runs 
out of counts. 

The For . . . Next Step 
technique is not necessarily a 
great advantage over GOTOs 
and GOSUBs, but it does use 
less memory. 

A Disk Basic Trick 

Here's a trick for Disk Basic 
programmers. We had a pro- 
gram v^here we were cramped 
for disk space and each byte 
was important. The program 
must store many dates, both 
the month and the day. The 
trick is to take the dates and 
manipulate them so they take 
up less disk space. 

Since there is no need to 
store a slash (/), just create one 
number from the two. Then you 
can use MKI$ and store the 
number as an integer. Upon 
retrieving the number, do the 
reverse. Add a slash and split 
the number in two. This saves 
bytes over storing the date in 
its entered form: 

10 INPUT'ENTER MONTH AND DAV 

(MM;0D)":DAS 

20 DA - VAL|LEFT$.2) = HIGHT»DA,2)1 

30 LSET(f teld variable) = MKIJ(DA) 

To restore: 

10 BS = STRKCVKfleld varlabl*)) 
20 
BS = MID»,(B«1^ + -r + RIGHTVB»,2) 
30 PRINT BS 



Qame Tips 

When writing a game or a 
children's program which 
utilizes an INKEY$, use a dum- 
my INKEY just prior to the one 
you want. This picks up any 
stray keys that may have been 
pressed before you want a 
response from the operator. 
Here's how it could be set up: 



10 IKS^INKEYI 

20 PRINr-SELECT A LETTER- 



SO AJ = INKEYS: IF AS = -THEN 30 
40 PROGRAM TEXT 

The variable IK$ will never be 
used anywhere in the program. 
It simply prevents previous key 
entries from getting through to 
line 30, where the real variable, 
A$, Is quizzed. Let's go one step 
better than 1NKEY$ for getting 
input from the operator. 

By PEEKing memory loca- 
tion 15350, you can find a value 
returned by the keyboard. This 
method has two advantages 
over INKEYJ. A$ = INKEY$ 
won't hold the value if it is in a 
loop. The next time that state- 
ment is hit, A$ would change to 
become whatever is there. 

Also, PEEK will detect If 
more than one key Is being 
depressed. This is great for 
checking to see if the arrows 
are being held down. The up ar- 
row returns an eight, down ar- 
row 16, left arrow 32. and the 
right arrow 64. If you hit the left 
and up arrows together, the 
memory location holds a 40, 
which is the addition ot 32 and 
eight. Furthermore, holding 
down a key will enable you to 
design continuous firing into 
your game. 

The negative aspect of this 
procedure is that we're only 
looking at one byte of the 
keyboard return, so other keys 
will return the same value. Both 
the left arrow and the letter T, 
for example, return a value of 32 



but 11 generally serves the pur- 
pose for most games. 

Disk and Level II USR Calls 

Our final tip deals with the 
use of the USR command. 
Writing a program with a USR 
call can get you into trouble if 
you want It compatible with 
both Level 11 and Disk Basic. 
Since Disk Basic supports 
more than one USR call, it must 
be set up a little differently. If 
the program has only one USR 
call, an error handling routine 
can trap it and branch program 
execution to an appropriate 
section. 

To tell the computer where to 
go when a USR call is en- 
countered, Disk Basic requires 
the address to be set up by 
DEFUSR-address. Level II 
Basic has the address value 
POKEd into memory locations 
16526 (least significant byte) 
and 16527 (most significant 
byte). 

A DEFUSR statement would 
give an L3 error if it were run 
under Level II. Take a look at 
Program Listing 2. If this was 
run in Level II, line 10 would 
generate an error but because 
of the On Error statement the 
program won't go out on error, 
but rather will branch to line 
100 where it can be set up for 
Level II operation. Similarly, if 
run in Disk Basic, execution 
would continue to line 20. ■ 




10 


F0RA=1T02 STEP0 










20 


X=X-(-l 












30 


B=B+1 












40 


C=C+1 












50 


IFX=100 


PRINT"X= 


= 100" 


:X= 


--0 


: NEXTX 


60 


IFB=250 


PRINT"B= 


= 250" 


:B= 


= 


: NEXTX 


70 


IFC=3 PRINT"C=3' 


: NEXTX 






80 


PRINT A 












90 


NEXTX 
















Program Listing 3. 









IB CLS:PHINTi32B,; 

28 IFPEEK(1645J)-BTHENINPUT-ENTER DATE (NM/DD/iYl ' , DTS : POKE1645 

«,VAL|LEFTS|DTS,2) ) : PORE16 4 53 ,VAL(KIDS {DTS , 4 , 2 ) ] : POFE164 52 ,VAL (R 

IGBTS(DTS,21) 

3B PRINTLEFTSITIKES.B) J* IS DATE OK {■i/H)T 

4B BS»IHl[EYS:IfBS-*N"THEHPOKE16 4S3,BiGOT02B:ELE:FBS-"Y'THEN5BELS 

EAt 

SB 'PROGRAH STARTS, CLEAH, DIH, AND SO OH 

^t • PROGRAM TEXT 

7f '— PROGRAM TEXT 

ee ■_ PROGRAM TEXT 



Program Listing 4. 



2 games per cassette 

t« HhTRS'IO IMtllirlll. KK 
ImUlBrKMcllll lUtC mcncMprtm. 
t\\ Hr rfpNU luw 

ACTION SOUNDS ft GRAPHICS 




tbnbUittff iitB kitllt Hmmi r 
10 CtMpalciOppMttls Fifht II 2 « 3 
iimtiami TbrMtCHuriei "Snmkr". 
~RttKlDptM''.Mi4 "nmiii IhcitfelH" 

THE NEW STARSHIP VOrAGES 

I briiiiiit "trek" trp«ipKt»r. 30 
[il]i)*itli afipiroMd Mnia( eM«r 
crift, saow itt 'CIhM " li cttmtUi 
buw itirluu 0«lti trtM the Rvfiti 
C4l*la( Mo ZOO I 119 9S 




PARSECTORV 



Stilt 
The 

UltlMtB 

War 



OnifK iflit icrH* (iMificli plJT'r i 
^oitcdiiBUt LiMdillMt tattle crilt 
twt Mtch tiMM lifhl Fire lH|h fimttti 
(Mfi) bcwK u tkerl riift mih* Hf'i 
llMMi ir CMwatcr pppwewt 

nUtSECTOR 8 TtwuMit UniNB. 
CiMt (ilii) ta CM^ier liinu Stnleti I 
cililot N« 2007 S 19 SS 




! ! ! ANTS ! ! 



Imuii{ 

Hir 
letHce* 

Nit 
Cthaies 



Fist, ■■chiie lM(U|e ipeed ThiM |MM 

(irutiiti: "0pi« FieW, 'Best lifrier", 
Mt4 ~Di|fiRift*ti' 1 pitjtn H cMipiter 
•ppMWil EiiTtiplM, Cliill*i|ii| tB 
«ut*(. Fia pKkid (iM fH ill Bfcstll 

THE NEW STARSHIP VOYAGES 
citil»{)lD 2103 SM.9S 



HIGH SPEED LIFE 

Tke FUSTEST. iiMt IDVINCED miiM •! 

I HCMMD't tMMK wtkeMtKll (MM 

Spedxilir kjle»d*KBpK iBiMtiii 
SOO tei/flii* topical 32 tTtfitnmmi 

pattcfK Ihlttpti caatrtl taactiMi 

[ RilMMol IT BOSoflwKtCriliaut. luiM ^ 

NAME THAT STATE QUIZ 

I l*p Bftck eltiutoul itm Dri>i 
SO ititei ini atki fiit fwttnii 
Three qui tupei In) It lu 
citiltf Nt 2104 J 14 IS 



Disk Owners 

Or ^Kial re^el tbt abtw imn tn 

MalaWt a« uuette (jM tn«tH). une pnc«. 
CMWtibtemttiTtSMS Diikltuc 4H 



taa 11 aODa>U9i4r\*iciiir>g COO moa H hO 
FURnaiU*\Tai l**»Oi«*» MO n»|rfiH IP. 

Synergistic Solar, Inc. 

rOlBi 5t05)5. MiMf FL 331St 

,--231 
PWIKXitr to. mors mto [)••*• inc*!^ .mil«d 
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APPLICATION 



Know^ all the angles before you decide. 



Cadet— The Decision Maker 



Victor T. Albino 
18501 194 NE 
Woodinville. WA 98072 



Cadet is designed to help 
you make logical decisions 
about almost any kind of prob- 
lem. It provides an orderly pro- 
cess so each factor that goes in- 
to your decision making is listed 
and considered. 

Cadet will provide all nec- 
essary prompts and protect 
against illegal entries so that 
you can easily state your prob- 
lem and enter any factors you 
think important. Cadet will then 
make a recommendation for or 
against the action you have in 
mind. 

The program Is structured on 
the classic decision grid con- 
cept. This management tool 
facilitates decision making 
when a problem has many con- 
flicting elements. The real 
value of Cadet is that it allows 
you to concentrate on identify- 
ing the issues and your feelings 
about them. The program takes 
care of the mathematics and 
even calculates a level of con- 
fidence for the suggestion it 
makes so you have some idea 
of how sure you can be about 
its advice. 

The program also provides 
some cheerful graphics to keep 



your spirits high while your 
mind contemplates the issues. 
When you run the program, for 
example, you will see an 
animated spiral that simulates 
the "thinking" process of a 
RAM chip. 

The action comes from lines 
907 to 909. For some inter- 
esting variations on this theme, 
type in the following short pro- 
gram: 

OCLS 
10B = 3 

20 FOR X = to 375 step 7 
30B = R-7'SIN(X) + 71 
40C = R-3-COS<X) + 20 
50 SET(B,C) 
60 R = R-,05 
70 NEXT X 
80 GOTO 80 

This is the same spiral pat- 
tern that appears In the pro- 
gram. Now try changing the 375 
in line 20 to 850 and decrease 
the step size to 5: you get a 
pretty flower spiral. 

Lines 30 and 40 plot the sine 
and cosine values of X using 
polar coordinates. The factors 
of 7 and 3 In these same lines 
are needed to compensate 
because the pixel (picture ele- 
ment) on your screen is not 
square; It Is a rectangle with an 
end to side ratio of 3:7. If you 
start experimenting with these 
numbers, you will get an elip- 
tical spiral instead of the cir- 
cular one. 



The numbers added at the 
ends of lines 30 and 40 are there 
to position the design on the 
CRT. It is best to keep the 
center of the design near the 
middle of your screen since an 
illegal function error results 
when the equation attempts to 
plot points off the video. 



There are many modifications 
you can make in this program. 
By changing the values, often 
only slightly, you can create 
some fascinating graphics. 
After all, now that Cadet has 
solved your problems, you 
should have plenty of time to 
create fantastic graphics. ■ 



Program Listing 



CADE! 
VEH.3,B 



COMPUTER ASSISTED DECISION EVALUATION TECHNIQUE 
BY VICTOR T. ALBINO 

AUGUST 1968 
« CLS:CLEAB jaBflrGOSUB 57 5!(;05UB748 
5 CLS 

15 PRINT!PHINT:PHlNT!PRINT:PRI(JT"iT WILL DO THIS BY HELPING YOU 
TO THINK THROUGH THE 

VARIOUS POSITVE AMD NEGATIVE FACTORS WHICH MUST BE CONSIDERED 
BEFORE YOU CAN ARRIVE AT AN APPROPRIATE SOLUTION .": PRINT 

25 PRINTTAB[4e| "PRESS / KEY," 

26 IF INKEYS<>"/'TH£NZ6ELSECLE 

30 PHINT:PRINT"IF YOU ARE READY, WE WILL BEGIN. ": PRINT: PRINT'FIR 
ST, YOU MUST TELL HE YOUR CONTEMPLATED ACTION. IT SHOULD BE ENT 
ERED AS BRIEFLY AS POSSIBLE AND PUT IN THE FOHIl OF A QUESTIONTHA 
T CAN BE ANSWERED "YES' OH 'NO'." 
35 PRINT:PRINT"FOR EXAMPLE, A TYPICAL QUESTION MIGHT BE: 

'SHOULD I BUY THE USED CAR7'"!PRINT 
39 Din AS(2fll 

4B PfilNT'TYPE IN YOUR QUESTION NOW AND THEN PRESS <ENTEB>." 
45 INPUT ZZS:CLS 

50 PRINT:PRINTTAB(23) "THANK YOU.' 

55 PRINT;PRI(n'"NE)(T VOU WILL BE ASKED TO ENTEH STATEMENTS ABOUT 
THE ACTION YOU ARE CONTEMPLATING. YOU MAY GIVE ME UP TO 20 

STATEMENTS TO CONSIDER." 

63 PHINT:PRINT"BE SURE TO INCLUDE ALL THE FACTORS YOU CAN THINK 
OF ON BOTH SIDES OF THE ISSUE, THOSE IN SUPPORT AND THOSE AG 

AINST." 

65 PRINT:PHINT"IF THE STATEMENT IS IN FAVOR OF THE ACTION, PRECE 
DE 

YOUR STATEMENT WITH AN 'E' FOR 'FAVOR". " 

70 PRINT"IF THU STAT^ENT IS AGAINST THE ACTION, PRECEDE YOUR 
STATEMENT WITH AN 'A' EOR 'AGAINST '.";: PRINT: PRINTTABI 40) "PRESS 
/ KEY," J 

75 IFINKEYSO'/'THEHTSELSECLS 

SB PRINT"5INCE I HAVE NO VALUE SYSTEM, I MUST RELY ON YOU." 
85 PRINT:PRINT"AFTER EACH STATEMENT VOU GIVE HE, PLEASE ENTER IK 

YOUR 
EVALUATION OF ITS IMPORTANCE ON A SCALE OF 1 TO 9." 
90 REM 

95 PRINT"FOH EXAMPLE, A '1' WOULD IHDICATE THAT THE FACTOR IS N 
OT 

TOO SIGNIFICANT. ";PRINT"A '9' WOULD BE USED FOR THOSE ITEMS YOU 
CONSIDER HEA:,LY 

Program continues 
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Piogiaf coniinuea 

IHPOBTAKT.* 

96 PfilNT-lSTATEriEMTS NOT PRECEDED BY AN 'F* OR 'A- OR ENDING HIT 

H A VALUEFBOH 1 TO 9 UILL 6E VOtOED. THEV SHOULD BE SE-ErTTEHED. 

1*;;PRIKT 

110 PBINTtPPI!;T"SO«E EXAMPLES Of STATEKENTS WO^LD SE: 

F THE USED tfiR a,V VEBY LOW MILEACE 7 

A THE CAR IS OViTR-PHlCED BV S&flB U 

A THE TIKES NEED HIiPLACING 5 

F THL CAR'S COLCH (S MY FAVOBiTK i!",- 
la*! I-RINlTAfimi -PRESS / KEV.'i 
106 U'lNKEYS^-VTHLUIBe Ei.SfXI.S 
118 PRiHT;PHlMT'l WILL KEEP AN ACCOUIJT Of ALL. THE FACTORS ¥O0 TH 

SHOULD HE COHSiDERtO. IffiCH YOU ARE THROUCH, SIHPLT TYPE 

•N- IN r.C5P0NSE TO THE QUESTiON : 'AiJV IMRE FACTOBS 1 

SHOULD COHSI0ER?--:PftINT 

Hi PftlHT'I WILL THEN HEVIEV; WITH YOU ALL THE fACTORS YOU HAVE I 

IJEHTIKIED,- 

120 PBINr'AETEPWAUDS, I WILL GIVE VOt) HY SUCGESTED DECISJOH WHIC 

H 

WILL 9E LOUICALLY DERIVED FRnM YOUR OlIK VALUES." 

12S PHINT-FIIJALLV, I I.ILL GIVE VOU A COtiFlDEHCE LEVEL FOR THE 

OECiSlOfi I SUCI;EST.";PHINT 

138 fRIKTTAB(40|-PKESS / KEY.' 

m iriNKEYS-;>V"THEp;i31EI.SECLS 

MS PRINT'THE QUESTION IS: 'iZZS 

MB PHIKT:PHINT"PLEASE BEGIN (I3W TO EKTER THE STATEMENTS FOR AND 

AGAINST 
THE PROPOSED ACTION. (DON'T FORGET TO PUT Mi 'F' OR 'A' hEFOBF 
EVERY STATEHEtlT AND A NUMBER fROTl 1 TO 9 AFTER EACH ONE.)" 

141 PKlNT:PRIt.-T- F -OB- A STATEMENT 

1 TO 9- 

142 PRI»ITSTHINliS(6 4.---» : NO'l :MV"C : ;j-J=9 
1*5 INPUTASllI :GOSUB:*6;GOSUeiSil 

ISi INPUTAS(2| !GCSUB3 46:COSi:P2bC 

155 IIJPUTASIJl :c;oSUB246:GOSUB250 

160 IKPUTASI4I :GOSUB;46:GOStJB25( 

!6i 1MPUTAS15) :C05UB246;GOSUe25e 

na 1NPUTAS(6) :GOSUB246:G0S:!a25e 

ITi INPL-TASni :GOSU9246:CO5UB250 

180 INPUTASOI !OOSUB246:GCSUB2SB 

1B5 n;PUTAS(9l :GOSUB246:GOSUB2iO 

190 INPL-TAS(iai !GOSUB246:GOSUB2t)D 

19^ lHPUTAS(il) :GOSUB246!GOSUB2!.B 

3flH lNPUTASfl2] !GOSUB246:GOSUB2!iB 

2aS INPUTASim ;GOSUB246:GOSUn2')B 

210 INPUTASIMI :G0SUB246:GIJSUB2^B 

215 tNPUTASUS) :GOSUB2t6:GOSUU2Se 

2 2B iNPUTASdSI :COSUB246:GOSUB259 

225 lNPUTASil7) :GOSUB246:GOSliB2Sa 

238 IHPUTASIiei :GOSUB346:GOSUP2iB 

23S IMPUTAS(19I ;COSUfl246:GOSUtl2S8 

24a :sPUTASi2B| iGOSUB246TGOSUB2bB 

24i Pai!JT:PRINT-THAT MAKES 2a STATWENTS WHICH IS ALL 1 CAN HAND 

LE 

AT OKE TIME. LET ME PROCESS THESE ASO SEE WHAT KIND OF 

DECISION I REACH, -:rOR T=1T0«P08 :SEXT:Cf,S:GCT0354 

346 MJ=HU-l:™*Kl.'fl:FORX'HU Kj Nli:IF LEFIS( AS ( X | , 1 ) ='f ' OR LEFTS 
( ASIXI , D'^'A" THEN 247 EL££PR1HT"RE-ENTEH YOUR LAST STATEMENT AN 
PRECEDE IT WITH 'F' OH " A ' . " ; ! PRINT : AS Ul ■" A VOID STATEMENT B" 
: RETURN 

247 NB'VALiR!GHTS(AS(X) ,11) !IF ABS(NR)>0 AND ABSINRXIB THEN RET 
URN ELSE PRiHT'HE-ENTER THE LAST STATEMENT AND END IT WITH A VAL 
UE FROM i - 9.-; :PRIHT:A3(XJ •■« VOID STATEMENT fl-rRETURN 
259 iMPUT-AfJY MORE OUESTIONS TO CONSIDER (Y/M'.-MS 
25! IFHS-"Y"OR.1S-*N-THEN2 53 

252 PRIhT'PLEASE ANSWER ONLY 'V FOR YES OH 'N' FOR NO.-:C0TO25B 

253 irHS-"N"THEN254ELSE:iO-:JU'l:SETlH!i 
:5< FOB X-1T02B 

2bi If LEFTSlASiX) ,1|»-F'THEN SF'SFtVALIBIGHTSiASIX] ,1) } ELSE SA' 

SA*VAL( RIGHTS (AS (X) ,11) 

36B NEXT y; 

J5S GySUE765 

368 PRINTia460,'YOl, GAVE !IE ";MO;* FACTORS TO CONSIDER." ;PHIMT85a 

8, "THEY WERE : " ; : FORT'lTO2H0fl : HEXT:CLS: NU-i 

361 FCRX=1TONO:FI)RS-15552T01561SSTEP2: POKES, 176: NEXT 

362 FORS-1606 4T016127STEP2;POKES,!76:NEXT 

365 PRINTe44e,NUi".l "jHIDSIASfXl , 2 ,LEN{ A5 I X ) | -2) :NU'NU + 1 

37H FORT-lTO2a0fl;NEXT:CLS:NEXTX 

ib'! PRINTe465 ."PRESS / KEY TO CONTINUE." 

466 IFINKEYS\)"/'THEtJ466ELSECLa 

478 Pj(IKT;PBINT"AFTEE CAREFULLY ANALYZING ALL THE INFOtWATION YO 

U HAVE 

PROVIDED ON TPE tJUESTION: "iPBIST 

47i PHINTIZS 

489 PRINT:IF Sf^SA THENPRINT'l SECCMMENO IN FAVOR OF THE PROPOSE 

D ACTION.": GOTO 488 

485 PBINTilF SA 'SF THENPBIHT"! BECOMMEHD AGAINST THE PROPOSED AC 

TrON.*:GOTO 438 

4B6 ir SF-SA THLNPBINT"! AM UNABLE TO SUGGEST AN ANSWER. 

THE F'JSITIVE ANO NEGATIVE ELEMENTS IN THIS ISSUE BALANCE 

OUT EXACTLY." 

487 PHINTiPRIKT'SORRY I CAN'T HELP YOU. i AM AFRAID YOU ARE GOl 

HG 

TO HAVE TO USE HUMAN INTUITION ON THIS ONE 1 ": PRINT; PRINT'BETTER 

I.UCK NEXT TIME."; :PHINTTAB[4a)"PMESS / KEY . " ; : GOT054a 

48a PkINT:PRINT:PH!NTTAB(4e) 'PRESS / KEY." 

489 IF INKEYSl'"/"TH£N4B9ELSECLS 

49B I;' SF^SA THEN CF = INT( IBB- ( SA/SFJ 'IBB) 

495 IF SA>SF THEN CA=INT( 1B0-(SF/SA) "IBB) 

SBB PBJNT*i448."«Y HtCMMENOATION iS HADE WITH A CONFIDENCE LEVEL 

OF : " ; 
505 IF SF>SA THEW PRINT CF;-»":FA=Cr 

510 IF SA>Er THEN PRINT CA;"t":FA-CA 

511 F';jBT= iTOJflBB : NEXT :CLS: PRINT: PRINT: PRINT: PRINT: PRINT 

515 IF FA^5e THENPHINT'UNFORTL'NATELY, THIS 11^ NOT A VERY HIGH !.E 

VEL 

OF CONFIDENCE. YOU MIGHT JUST AS WELL FLIP A COIN ! " :GOT0526 

529 IF FAtBS THENPHINT'THIS IS A tWDERATE LEVEL OF CONFIDENCE. 

YOU CAN FEEL REASONABLY COMFORTABLE WITH ttY RECOMMENDATION .' rGOT 

0526 

525 ir FA>8B THb;NFHINT"THI5 IS A HIGH LEVEL Uf CONFIDENCE. 

Program coniinues 




BASIC/S 3.0 (MOD I/Ill) $39.95 

A Basic compiler tor the Mod I/Ill 48K Disk System BASIC/ 
S compiles a subset of TRS-80' Basic tntoXSO machine 
code, the machine code can then be run as a /CMD lite, 
most of the features and built in functions of Level II are 
implemented, along with sequential and random disk i/o 
(including LRL/256). Altows variables, reals, and strings 
This a programmer's compiler. Not intended to compile 
"off the shelf" software, but will compile code written or 
modified along it parameters. No royalty tee to pay* Many 
basic programs you are using today can be compiled 
Supports all Mod I and Mod tit operating systems 

QSD UTILITY DISK #1 FOR 
LDOS® (MOD I) 69.95 

Increase the speed and power of LDOS* Contains: 

LZAP/CMD — Uses resident disk driver of LDOS and thus 
enjoys its flexibility & device independence It will 
auto configure ilsell to drive capacity. L2AP will 
support any number of drives from 0-7, any cyliner 
count up to 255 and any sector number to 255. It 
supports both single and double denity automaticai- 
tyl Various drive sizes and densities can be inter- 
mixed and LZAP will page between them without 
error. The ultimate ZAP routine for the ultimate 
system. Many more features including a "help" 
command for beginners to assembly code. 

RESIDELD/CMD — Allows you to SYSGEN system over- 
lays for increased speed and free space on disk, plus 
more! 
CLONE/CMO CHANGE/CMD DCAL/CMD 
VDISK/CMD STAT/CMD BINHEX/CMD 

And by Kim Watt . . . 

LCOPY/CMD — Mass file transfer package. Fast and 
versatile! 

LPURGE/CMO — Allows you to selectively purge by class, 
list, ext, etc. Contains over 20 features. A "mini 
super-utility!" 

RECOVER/CMD — A "smart" recover routine for "killed ' 
files. 

DVORAK/CMD — the famous DVORAK keyboard layout. 

EXTRA SPECIAL DELIVERY 
(I/Ill) $179.00 

Machine Language program to maintain your mailing list, 
print labels, and merge data from your mail list into a letter 
created by Scripsif or Electric Pencil'" 

— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500STEMMONSEXPRESSWAV, SUITE 104 ^h^ 
DALLAS, TEXAS 75229 WST 

PHONE (214) 484-2976 ■^*i 

lllS.lotkr*i«tut MICRONET 70130,203 ^n p.i<fDo«(Noiir«iud» 

Tridmurliio'IindTCvp Pgi1i|F 



r'S*« Lisi ol AOwHsvis on page 386 
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Ever wanted to 

do things to your TRS-80 that 

Radio Shack said couldn't be done' How 

about reverse video, high resolution graphics, 

a high-speed clock, and audible 

keystrokes. 

Not enough? How about turning an 8- track 
into a mass storage device, making music, 
controlling a synthesiser, individual reverse 
characters, and a real-time clock' 

If the thought of using a screwdriver gives 
you the shivers then you can turn to the 
software section. Learn how to make BASIC 
programs auto- execute, reset memory size, 
pack program lines with machine code, and 
generate sound effects. 

The Custom TRS-80 and Other Mysteries is 
packed with page after page of practical 
information, and tested software. Get a copy 
and turn your TRS-80 into a supercomputer. 
Available for $29.95 from your local UG 
dealer and B. Dalton bookstores. 




^37 

1260 W. FoolhiH Blvd. 
Upland. California 91786 

(714) 946-5805 

rRS-BO i> t (i^emirk of Tindy 



Prog/am condouM 

TOTHISG IS SURt IS LIFE EXCtPT DEATH A;;d T».*t.s BiiT THIS 

EVIDENCE LOOKS PRETTi' CONCLL'S 1 VE , " 

526 PPiST:PB!Vr:PHINTTABi401 -PSESS KEY."; 

in IF ISKEYSv--', 'THEN52"' 

= 3e CLS:PR:ST:?RINT:PEiST;PRIN7;PBi;;-:-N.-A TV^AT TfX' MAVF >:Y OPINI 

ON VO'.' AKE. OP COURSE, 

FREE 70 DO AS VOL' PLEASE .": PB! NT 

535 PRINT-HOWEVER, IF v.-'': ACCEPT MY ADVICE, fOU MILL KW>W THAT 

YOL'R DECISION WAS BASED L'TON A COMPLETE EXATINATR'N AND 

COMPARISON OP ALL THE ISSl'E5 . * ; : <;OTC55fl 

54fl IFINICEVSv-V'THEK54eELSEb5: 

558 PBlNT:PHlNTTAB(4ej"PRESS ,■ KEY." 
551 IF INKtYS^''"/"THEN55I ELSECLS 

55 2 C0SUB7 36 :POKE16B25,lBa:F0RS-l6eB9TO16 345STEPS4: POKES, 191: HEX 
Tt POKE16216, I 3B:S'16342: POKES, 176: POKES. l,lB4:POKES-2, IBB: S'16e] 
2:POKES,18B:POKES-t64,191:POKES.I2«,191:POKE16J23,llB:POKE16224,l 
31:POKL16225,I40 

553 POKE16226,n6:PCKE16:91 , 1 31 : POKE16292 , 1 98 : POKE1629 1 , 1 76 : POKE 
16294, 144 :Y = 4S:F0H>;-71TO76; SET! X,Y) : NEXT: Y-46 : FOBX-6 9T07 3 : SET( K , 
f) :HtXT 

554 LC5.CHPS;i68WCHB$il63! tCKHS(16ai »CHBS(!6B1 .CHRSllfeS :LLS = C(-: 
HSfn9)-CHRS(19e)*CHHSa9Bl .CHRSa9B)*CHRS(19ei 

555 Ri;S-CltRSaeBWCHRS(19e}'CHBS)i8a'+CHHS(188) :R1.5-CHHSl 133) -CH 
RS(149; •CHRSa4 9i-Cl-iRSll33; -C!iS;sl33- 

556 S-1S751: POKES, 160: POKES- 1,1 34 :F03iX>S>2TOS-7!POKE]l,l 31 :SE1CT:: 
ORX-S*4!'?OS'46:POKEX,131:SEXT:?OSE5-4"",129 

557 POKE15S14,152:POKE15Bl5.!29:?OSE1^734,lt.»:POKtl^T15,13«:POI<E 
15672, 152: PC P!E1 56^3, 12% :FCKE1 5689, 149 iPOItEl 5545, 149 :POKE15a77,i; 

e:POKE15941,178 

556 PHlKT^'>4,L-JS;:?Ri;.T^lia,LLS.-:PRi!-^6*4,J'l-S;:PRiNT^?eS,3LS; 

559 Y'i5:FL'R\ = 29T011STEP-2:SET(X,V) : SE>.T: SET ( 1 1 , ! 4 t : V- ! 3 : FORX= 1 1 
T02;STEP2:SET1X,Y' :SEXT :X=:2 : FORV- i 3T07STEP- 2: SETIX , Yi :NEXT 

568 Y-7:F0RX = 21T01£TE;-;:SETIX,V| : NEXT: X-l : FORIT-- ? .Ol J.-^T! p: : SET : y 
,Y1 :NEXT:Y-13:F0RX=1T011STEP2:SETIX,V) : NEXT 
561 PRINT^194,"G00D-i3Yt'; 

56 2 F0RWA-lTO8:PR!ST954,CHBSI3PI ; ; F0RT = B7rllUi : NEXT: i RI NT-54 , 1.L'S; 
: FORT-eTO50e: NEXT: NEXT: CLS 

563 END 

575 N-15751 '-OPENING GRAPHIC 

576 BO-1 5360 :PPINT^1, STRINGS I 62, 137) : PBI tiT('96 1 , .STHI NCS (62 , 1641 : 

577 FORX-0TOlB23ETEP6 4:POKi:iiOtX,166:POKEBO'X' 1 , ] >.6 : POKE[«:.X'62 . 1 
66;POKEBO*X.6 3 .166 : NEXT 

5BB POKEH, i 91 :POKENt 1,191 : FORX-N.2TONt5 : POKi.X , H i : NEXT 

5B5 N-Nt64 

598 POKEN, 191 iPOKEN. 1,191 

595 H-N-t4 

608 POKtN,191:POKES-l,191 : r(>PX-;;'2TON.5 : ?<>KS X , 1 HB : SS XT 

685 u-l5762:POKEC,191:POKSC-l,191:PCKEO*;,143:POKK'-).M3:PO|rEO. 

4,19l!POKEO-5,191 

610 0-0'64 

615 POKEO, 191:POKE0.1,191:POKLO-I,lht8:POv;FO. J, 1 MS: l>')KEOi 4 , 191 :P.. 

KEO*5,191 

620 0-0-64 

625 POKEO, 191 :POKE0'l, 191 : POKEO- 4, 191 : POKEO- 5, 191 

638 P-15773 

635 POKEP, 191 :POKEP.l,191:POKEP + 2,143;POKEPt3,143:POKi:p-4,191:PO 

KEP<5,18a 

64e P-p.64 

645 POKEP, 1 91 :P0KEP+1, 191 : POKEP 1 4 , 191 : POKEP.'j , 1 91 

650 P-P.64 

655 POKEP, 1«1:POKEP+1,191:POKEP.2, IBS :POKKPtl, 1 8B : POKEP'4 , 191 : PI) 

KEP*5,143 

660 0'1^783 

66 5 POKEU, 191 :POKEQ-t 1,191 : FORX'=U+2TOO+5 : POKEX , 14 3 : NEXT 

67? 0-0*64 

675 P0KLQ,191 ; P0KEQ--1 , 191 ; POKE0.2 , 143 : FOKEO'3 , 1 4 1 

660 C-Q-64 

6B5 POXLQ,191:POKEQ--1,191 : F0RX-0-2TO0'5 : POKEX , I KB : NEXT 

6 90 B- 15794 

6 95 POKEP,143:FOKER'1,143:POKER'2,191:PO'4EP-3.19I:POKEP-4.14J:P<- 
KER-5,143 

7BC B-P-64 

785 POS£R'2.191:POKER-3,191 

718 R-R-6* 

T15 POKER- 2, 191: POKES- 3, 191 

720 FORT^IrOlCBflzNEXT 

725 WS-" cc:tPUTEa assisted decisi:'; evallatio:. technio 
■_E" 

7 30 CLS: PRINT; PHI -iT: PRINT: PRINT; PRIST: PBI t.T: PRIirr 

715 F0HX.lTCS9:PRI.'iTf'.ICSC..S,X,n ; :F0R7-1TCI' : MEXTT , K : F-BT= ITCIBP 

D:NEXT 

736 REM ' COnpUTEB GP./iPHiC 

7 37 CLS:S-15375:POKES,191:FORX = S-1TOE--3:POH1.>;.131 : NEXT : FORX = S'4T 

OS-t23 : POi'EX,17 9:NEXT:FORX-E-24TOS-31 :POKEX, 1 11 iMEXT: POKES. 32 ,191 

738 S-15439: POKES, 191 : P0KEE.2 , 1 88: P0KEE.3 , 131 : POKE5.24 , 131 : POKE^ 
- 25,1 98: POKES.29, 131: POKES- 32, 191 

7 39 S-15503:POKES,191:POKES-2,191:POItES.8,l 31 : POKES -9 , 1 )5 : POKES- 
IB , 129 : P0KES.13 , 16B : POKES-14 , 1 44 : POKES-1 6 , 13 1 : POKES • 19 , 1 35 : POKES 
.2e,i29:POKEE.25,191:POKEE-2E,191 : POKEE-29 , 191 : POKES • 30 , 191 : POKE 
S. 32, 191 

7 48 5- 15567: POKES, 191 :PCKES-2.1 91 :POKES-6,U0: POKES- 1 3, 142:POKLS 
.14,141:?GK£S-19,144:POKES + 25.191 : P0KF,S-2B , ill : POKES.29, 1 31 ; POKE 
S.3B,131:P&KES-32,191 

741 S=156 31:POKES,191:POKES.2,!91:POKES.9,l)7trOBX-S.lBTOS'i7:PO 
KEX, 176: NEXT: POKES.18, 134 :?OKES-25, 191: POKES. 32, 191 
7 42 S- 15695: POKES, 191 :POKES-3,] 31 :FOIlX-S.4T€-S.23:POKEX,14B: NEXT: 
POKES- 24, 131: POKES. 32, 191 

741 S=15759:PCKES,191:FORX=S-lTOS-i:PCKEX.:76:NEXT:FORX=S-6TOS-; 
1 :POKEX,!S6:SEXT:FCRX=S-22TOS'31:?OSEX, 176: NEXT: POKES-32, 191 

744 S-15e21:FCRX»STOS.36:POKEX,17fc:NEXT 

745 S« 15BB5: POKES, 191: FORX=S.4TOS.24ETEP2:PvKEX, 148: NEXT: FCRX=S- 
29TOS-33STEP2:POKEX,14e-.NEXT: POKES. 36, 191 

7 46 S-15949 :P0KES,191; FORX-S-4TOS-24STEP2:POKEX, 179: NEXT: FORX=S- 
29TOS.3 3STEP2:POKEX,17 9:NEXT:POKEE.36,19] 

747 S- 16013: POKES, 143 :FORX-S-1TOS.35:POKEX.14B; NEXT: POKES.36, 143 
:F0BTrlT04BB: NEXT: RETURN 

748 Y-16:FORX«29T01BSTEP-2:SETU,Y1 : NEXT: X^ 10 : FORY- 1 7T034STEP2 : S 
£T(X,¥) :lJEXT:Y-35iF0RX-eTO127STEP2:SET(K,Yl : NEXT : X-' 127 : FORY-35TO 
47STEP2rSETlX,Y) :NEXT: Y-47 : FORX = 127T08STEP- 2 : SETl X ,Y) :NEXT:X>=e:F 
ORYi^47T035STEP-2:SET(X, Y) :H£XT 

749 PR1NTS77B, "HELLO! 1"H *0!JH COHPUTEP, THE PROGRAM YOU HAVE 
PUT INTO «¥•; 

758 PR1NTS834, -MEMORY WILL ASSIST YOU TO BEACH A I.DGICAL DECISIO 
N ABOUT ANY"; 

Program continues 



Program contmuM 



751 PRIHTe89e,*PR0POSE0 ACTIOt* YOO HAV BE CONT EH PLATING. (PRES 

S ■/ ' WEY •) * f 

7SI IF 1NKEYS<>*/*THEN75! 

TS3 CLSiRETURN 

765 RCH • HEAD 

778 CLSiS'15513 

775 POKBS,l6aiPOKES*l,176iPOKEStJ,176jPOKES*3,lS2 

78« F0RX.S*4T0S*N:P0I(EX,HB:(JEXT 

785 eORX»S*15TOS*17:PO((EX,l76:SEXT 

798 S-15S74 

795 POKES, 168:POKES+1,]52!POKES«2, in ;POKESt3,U9 

MO POKES*2e,138!POI(ES*21,137!POI!ES*22,16<!POKeS*23,H4 

885 £'156J7 

818 POKES, 152: POKES*1,1297POKES*24, 138! POKES*25, 164 
815 E=lS7ee 

828 POKES, 152: POKES*!, 129; POKES+27,lJ7:POKES*28,m 
825 S-1576* 

830 POKES, 149; POKES+3, 1*3 :P0KES*4, 132 !POKES*28, 178 

835 S-J5826 

948 POKES , 1 5 2i POKES* 1 , 1 34 : POREStlO , 1 78 

845 5=15889 

85B POKES, 182: POKES*l, 176 :P0KES*2, 176 iPOKESt30, 168 !pOKeS*31, 133 
855 S-i5956 

868 POKES, 168; POKEStS, 144 :POKeS*25,lS2:POKES*26, 134 :POKES*27, 129 

a6S ;;«i6e:i 

87B POKeS,167iPOKES*l,147!pOKES»2,13l!POKES*J,13l!POKES*4,129:PO 

KCE'20,176!pOKES*21,140:POKtS*22,134iPOKESt23,131 

675 ^06866 

860 P'JKE£,13e!POKES«l,131:POKESt2,14e:POKES»3,176:POKES»4,176'PO 

KES + i'>,152iPOKES*17,134:POKeS«le,131 

885 £-16155 

890 POKES, 149:POKES>10, 170 

895 S=16219 

900 POKes,18l!FOftX«S'lTOSt9:POKEX,176:HEXT;POKES*ia,le6!pltIllTe26 
.•KOPCINC bah CHIP";:FOftT»lT05ee!l4EXT 

985 P0RH"1T06:PHIKTP347,"T H 1 H K I N G'; !FORT.lT02S8!HEXTiPRIH 
■fP^*'''' ";:F0RT=lTOiee:NEXT!HBXT;F0RT-lT0S8e!HexT 

986 KE*t • WHEELS TURHIMG 

987 PR:MTe245, -WHEELS'; !pRlHTe312,'TURNIHGl*;:PRIMTM71,-<-;!pRI 
KTP37^,STRINCS(9,"--);ifi.3:FORT.lT08ee:NEXT:PORX-BT037SSTEP7 

986 li'.R'7*SIN(X)*73:C-R'3'COS(Kt*2e 
909 St;T(B,C) !B-B-.85:NEXTX 
'»ie FORT.eT07ea:HEXT:S-lS936 

915 P<5KES,188tFORX.S'lTOS»14:POKEX,He!SEXT:POIlES*15,16B 
928 5=16888 

925 POKES, 191 :POt(ESUS, 191 tPOKESne, 176: POKESti7, 148 !P0RES*18, 13 

938 S-16864 

935 POKES, 143 :FOKX.S*ITOS»14!pOKEX,)4eiNEXT!pOKES*15, 143 

940 l'HlNTl*642,-OK I'H READY'; :FORT'l-rol88e:NEXT!CI,S: RETURN 



JOE COMPUTER Presents Handicapping Software 
"^ IT'S FOOTBALL SEASON! -'« 



F>MWi Irani SDL: Now witn new irunuai — ata ptice' Ihat's 
r>gM, Ken Pecfy o( SOt refuses !o taise ihe pfice Joe (eels ti»t mis p'ogradi snouW sell 
Uh 1500 Ml Why' Because rt works - befler iMn 65% jg*fisi IM las ve^as une (or 
Ihe last 3 years on ptcli.ng upsels - a whopptng 73W lasl year' A p(Oven winner' IT 
^ tanis adoul 10 ffitnoles a week to recorO ffle weet-enu's results Then sil Uck ana wi 
your compuier preOici neH weekend s pants tw ?8 pro teams or 78 college teams Each Ofootan 
corrws w(\n a prior season Oala ttle IfK TRS-H ^e FaMW ttnm new 
l*n FMbill CMtMW ( TK-W M Apple I 



M 



Ceaife FMM CMsene 02K TflS« •( Aypli) 
Oltk 






ai.« 

sn.is 

«l.»5 

m.ts 

■nMi Htwr Pn f»amm NMtry 

This unque pfOgram wilh Oala (ties aisplays Ihe saxes and Us Ve^as lines lot ihe last five years lor all 
NFL regulat and post season gatnesincluOing Ihe Super Bowl Al 28 leams incluOefl ThtsOalaisharfl 
to (infl - now It can De .n youf compuiei Oala rs d.spUyeO via a variety ot seatch Keys A must lor 
serious tootbai lans 
TU^ir«wle4aK0MieMf isg^ 

■•«• IUc« H«iMc«pplfi|> Our Oiwesi seller - ProUahiity HandicappinQ Device I 
Ihts IS a comprefieistve horse racmg syslem (or sootlmg over.ays m IhorougWxed 
sprmi races Easy enlry of data (rom me racing torm A complete users manual takes 
you siep Dy step Ihrougti a sample race ano e.plams overlay BeiHrtg and money 
managemenl The user s manual conisirs a Oeianea lal; run ot a 100 cooseculive race 
sysiem workoul showing an iimm^ St 50 lelurrwi (or each Jl 00 wagered (Noie this .s not tfw 
same program as Wmnrng at the Races ' ( Vou may purchase the manual seperaiely tor 17 95 and 
VS'i '^\'* ■*' ■•** *" "*' " (Biilc^O. M-lnlc) PMH ItMtt IHhhmI ind CHlMl Hr : 

MP#" W THS-M Mk Mf BE 

(7/M5">rR"Slii|li0Mlllv0Mi01lk $»;« 

MjwnNs FMOin Mscovcmui 

WiMiMg It M Hkh. This is the program using tne algorithms from Dr OuinnsMoti Highly prvsed 
and endorsed Dy Dr Ourin this program is Ihe Mst avaNaUe today Agam, Ken reluses to raise the 
price' Our loss is your gain Screen edit type data entry makes entering oala a Oree?e Order no* 
Oelore Joe convinces Ken lo raise Ihe price' 

IMnnliigiltlMRKMCMt«m|32KTHS-HtrA|ipli) t» 95 

*** S3S9S 

Wmmt tt Mi Rkis - the book by Wiiiiam Ouinn pn D This is the b«si computonj-ed sludy ol 
thofoughored facmg ever puljtished This 300 p*gB hardbound book shows detailed studies ol high mt 
pact value (actors and includes Dr Owrm's famous Par Times 
A Tom AinsleWlnnwi Circle BMk WM 

BttUng the Hkm wn I Compttter by SieN« Brecner A good How To ' book on ffluhiple regression 
lechmwies applied tn Part Mutual handicapping Some heavy maih Si* .95 

■MM ciwcai Mitw* <v JOC cou*vrtn - rtuna groci ana 'nioKTwi.an ,113, ggj on, 
Sweio JOECOMiuTEn jVnvn^.tM So„» nooaivyi h.m c» ViMi 

C»l-|«fH itHHlll M« t% UW( III 

. ^ttf^'r • "^ m 




..rmcmommoFaMAnma 

IWVMBVMMtn ra 1KB WVtVUMW 

Tia UM ONHN, "^nguaoe runs on more dlffereni Opei^ 
aur.^ Sys^Jim ana TT.ore fUTereni- sized compilers Ihar. 
ar\y ether similar .aixg.iafe yoratarters. It runs on NCR 
and n minKompuwrs and, in the miero neid. on the 
CP, U* UP'U', TRSDOS', OASIS', U0ASI8«.»nd UNIX' 
(CWYX version) Operating ^siems Ui nwntlon only 
a few 

Until now. wrloua business suAwar« of am swpe and 
fiexibiliQr seen m Ihe m mtqqmp mar world nas not been 
avaiiable on micros KUCMMH. now allows transfer of 
such software with a minimum o( ftias 

We r.ave parUdpaied in such a mini-to-mKTO CransTer 
of a ji mpr mt of gsneraJ luslnesB software using RM 
Laslheimiisfer mechafilsnvofcwirse Runnlngon 
lit«ra;iy Usu-jsancte of minicomputei-e. these refbied, 
enhsjiced, and proven software packs#scov«rA,R,AjP. 
O'L. P/H. Orter Entry (with Invoicing and Inventory 
Control ) as well as Saies Analysis The packages define a 
new level of achievement ibr features and Cexlbllltv m 
micro applicauone scAware and offer top quality at a 
reasonable pnoe. 

Rir Immediate informatiorL call 714-848- 1922 fOr your 
complete product deecnpUons. 

. . JLVS AU. THB OLD, VAMILXAA rAVOUTM that 

wect nliiiTw tf o(Ter. such as 

0«B«m fcsiaeas— aient Aocountlng iCPA Write-up) 
FMS" < Pmanciai Uodeling System ) 
NAD' ( Kame and Addr«8s £(retem ) 



I latata— REAP ( Real Estate Aoquisluon Programs > 

PU& < Property Uanagsfnem Etystem ) 

UlS* ( Uultiple IJsUng £tystem > 

Kaatth C*r«— APH* (Automated Patient History) 

Word rrnf»mtmt and ^stoH teftwan- Uagu Wand> 

QSOKT 

____ CBASIC2': 

fMPSMiT*j.TMissOfiHWtiwttMf(NnELy"l 

ENljiWE'WORSSwMTCrtlAPteSsSwe 

(wiaNQM.i»ce «N6 PtTmEvA fliLiTi. J 

"^"^/"""H" THOSE «E . T 




and CyberneUos' unique THfre&', Ifodel II CP/M ofienng 
high performance, hard disk support, and CP/M com- 
patibility 
TreileiMiii iiit 

l-nran UcPtrlanil Corp . S-Dtpial K«Marcn Inc , 3 -Tanaj' 
Corp, 4-PhM* Diu Synenw tnc . S-MI TfeMiphoiM Ubonuor 
MS. Inc. S-Aimncui Butanew Systerw. Inc. 7-Sinjntirrt 
!)y»i«nisOroiip,lnc.»-Cytwmetica ine ft- P(«hlM» Sollwara 
Inc. 10-C«iipU»rfftfB«ems.lM: 



(7t«S48-«22 




8041 NEWMAN AVE. SUITE 208 
HUNTINGTON BEACH, CA 92647 



^Sm LisI ol AiSverlisars on page 386 
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GAME 



Let the good times roll 



Micro- Yahtzee 



Mark E. Johnson 

2925 W. Lincoln Ave. iHI 

Anaheim. CA 92801 

Here's a computer dice 
game to help you while 
away your time. I call it Micro 
Yahtzee. 

The game first displays the 
instructions. Play begins when 
your roll is sorted into order and 
displayed. Use the INKEYS 
function for all the entries so 
they are quick and easy. During 
the game the scores for each 
category appear continuously 
and the display indicates 



whether each category has 
been used or voided yet. After 
you roll, select your category. 
The program checks your dice 
against your selection and then 
tells you to make another selec- 
tion (if you have used that cate- 
gory already), or gives you zero 
for that category if the dice 
don't apply, or gives you the ap- 
propriate points. At the end of 
the game your point totals and 
bonuses are displayed. Then 
the averages for each category 
and for each player for the 
games played are figured and 
displayed. 



You will enjoy this computer 
version of Yahtzee because of 



the easy to read display and the 
safeguards against errors. ■ 



Lius 0-109 


a. initiatlie variables 




b. Display categories and scores 


Lln«S 106-3707 


a. Roll dice and change selected dice 




b. Category selection 


Urns 3600-3960 


subroutine puts new scores Into active players' variables 


Lines 4000-4030 


subroutine counts dice (or bonus selection 


Lints SOOO-S100 


subroutine checks for 3 or 4 o( a kirtd 


y MS 6000-6100 


subroutine cttecks for full house 


Lines 7000-7200 


subroutir>e checks lor small or large straight 


Lines aOOO-8010 


subroutine checks for Yahtzee 


Unes B500-8520 


subroutine totals dice lor clwnce 


Unes 10000-10200 


subroutine seta up temporary set of category numbers 


Lines 11000-11075 


a. Check lor bonus eligibility 




b. Totals scores lor game 




c. Check for new high or low score 


Unes 12000-12100 


subroutine sets player one's scores to strings 


Lines 12200-12225 


subroutine sets player two's scores to strings 


Line 15000 


subroutine clears portion of screen 


Une 15005 


subroutine clears portion of screen 


Unes 16000-18060 


subroutine sorts dice Into order 


Unes 17000-16000 


totals all scores & displays summary 


Lines 19000-19090 


Instructions for garrta 




Table 1. Une Description 



Program Listing 



I CLEAR1S0:DIH H(T2) i(4(49)-l:H(5e)-2iN(Sl)-3iH<52)-4:ll(S3)*SiHI5 
4) -«:M(e5]*7:H(ee) -8:11(67) -9:M(6a)«ia:H(«9)-llin(70)>12:H(7J) 'IS 
(H(T1I-14:LT-Slg 

1 CtSiPBINT' HICRO-VAHTZE 6* sPRINTiPRIHT'lNSTBOCTIOHS 
7 it) OR (Kl», 

2 NS*IHKBYS:IPN;***THEH2 

3 IPH;-*I*THEH19()0e 

b RAHI}OH:Cl-l:DINPl(14),B(13l,B$(13),P2(14},A(14),tl;(13),P2$(13 

],P3|14],P4(14) 

6 CLSiIdPUT'eitTEIt 1ST PU^IER'S NME' jPlSiINPUT'EtfTER 2ia> PLAYER* 

S HAMe'jP2S 

IB Gl-B!CLS:rORfl«lT013:A(A)-.SiPl(A)-.5iPlS(Al"" •■tP2S(A)"" *': 

P2(A)>.SiNeXTAiA(l()>.5:CLS 

62 PRIin'»S96,' 

'iGOSUBllBSe 
GS FORA-1T013:READB(A) :NEXTAirORA-lT013:READB$:PRI(IT§B(A) ,BS|P1$ 
(A) ]■ *]:PRIHT»B(A]'i-23,P2$(A) eNCXTA: IPGl-2tTHENlieBB 

66 PRI«Tn68,P3S;*'S TURN"; 

67 ONAlGOSUBlSBBBtlSeBS 

BB DATA35,99,163,227,291,355,419,4B3,547,611,675,739,8«3 

9B DATAl-ONES ,2-Tt#0S ,3-THBEES , 

4-POURS ,5-PIVBE ,6-EIXeS ,A~3 OP 

A KINO ,B"4 OP A KIKD- ,C~FULL HOUSE , 0— SH. STRAIG 

HT— , E~LG. STRAIGHT , P— YAHTSEE , C— CHANCE 

10 S RESTORE 

lt6 PRIIITM,'Y A H T Z B E'l 

JBBe Q-911:S-B 

3ZB0 FORX-1TOS:H(X)>IHT(RNO(0)*6)-»1:NBXTX 

3225 G0SUBI6BeB 

33BB PI)1HT9S96,*Y0UR ROLL IS. . *f H<1) ]H<2) |H<3) iH<4) t B(S> t 

34aB PRI>fl'e925,* HOW MANY CHANCES PAL *i iHS*INKBySiIPNS-**TH 

EN34BBELSEH-VAL(N$1 

3465 IFMS<*B"0RNS>"5"THEN34BB 

3580 PRIMTi92S,* WHICH ' j *(*;lli ') 'i ' "; 

3SBS IFH>STHEt)P(l)>l:P(2)-2iP(3)-3tF(4)-4iP<5)-5iCOT03&eB 

3S2S IFH-BS-2:GOTO3590 

35 J e FORO-ITOH 

3535 PSI0)>IHKEyS:IFP$(0)>**THEN3S35 

354B PfitHTf953-H,' "i : IPPSIO) <*B"0BPS<0|>"S"THEN3535ELS1P(0)-VA 

LiPS(O)|:PRIKTei0B5,*CHAHGeD l*tP(0) i 

3570 HEXTO 

3575 FORM2>lTO50:NEXTN2:PftIHT01005,* *> 

3580 FOR0i>lT0N:R(P(0))>tHT<RHO(8)*S)+l:HGXT0 

359B C-0 

3608 FOR0-JT04 

3618 IFU(Q)<>H(0+1)THBK365B 

3620 T-H(Q)!H(Q)«H(Q*l)iH(Q*ll-TiC-C-»l 

3650 KEXTO 

3660 IFOBTHEN359B 

3670 PRIIJT?896,'VOOR ROLL IS. . •jHdl |Ht2) IH(3) lH(4) iH(S) ( iS»S*l 

3690 IFS<2THEH3400 

37B8 PRIin'0896, 'FINAL ROLL >*]H<1) iH|2) rH(3> tB(4) tH(&) i * 

ENTER OPTION • | :N$-1HKEY$: IPN$-"T1teH3T0O 

3781 Tli-ASC(H5) 

3702 IPT1<49ORT1>S4ANOT1<65OIIT1>72THEH3700 
3783 T-«(T1) 

Pfogtam continuta 
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Program continueO 



3714 irT<10KT>14THEH17ll 

37i5 IFA(T1 O.STHEHPRlIJTSim.'YtX] tlSBD TH*T AUtBADr*) iG0T0)7f I 

37ifi PHIKTflllt,- — > |-;»S; 

37f7 Gl-CJ*] 

JSIfl OHTCOSi;B4lll,4gi«,illl,4ait,4l||,4||(,S|||,Sllt,filll,7lll,7 

■■i,BBii,8^ii,liaig 

3?il IFCl/2-;>IWT(Cl/2;THEN395i 
J91I TOI«A-1T013!P1(A)-A1A) iHeXTA 

391S GosuBiiiee 

1321 aOTO£2 

3951 FORA-ITOIJ:?!!*) -A(A| iSEXTA 

39S1 GOSUBl^ZII 

4fll V-« 

4<B5 FORL-ITOS 

4111 IFH(L1 -TTHENV-V»1 

4I2« MEXTU 

4B3I A|Tj-V«T:itETUBN 

5iBi IFT-7THENBS-1 

sail IFT-BTHENB)'4 

5I2B POBfl2-lT05 

')I3B F0RB)-1T05 

5I4B irH(B2) -H(B1)TUENB«-H«*1 

^B5B NEXTB3 

'1B6B irB(<B^THEKB6-a 

iB7B :FB6>-B5TTIEN;1IB 

!>>Bi NEXTB2 

BBS! B6-l:A(T)-B:>lE-njRN 

5 1 ii A (T) -fl ( 1 ) •« ( 2 ) .H 1 3 ) *H ( 4 ) ♦« [ 5 ) : B6 -B : RETURN 

fiilB H3-1 

6B2B rORr2-2T05 

&B3B JFIirl}-M[F2)TUENfilBB 

iB4B M2-t<2 + liD[J121.H{r21 :G0T0611» 

elBB M3-«3tl 

611B NEXTF2 

1121 FOREl-lT0n2 

6131 irD(ll-D(EllmEM61SI 

(14B A;9)-i:N2-i:RETURN 

61%l NEXTEl 

«ie> IFK!>3THEtl614t 

6171 irH3>3THEMG14> 

6181 IF(n2tH3) OSTHEH614I 

619B A|9)-35:H2-aiRETURN 

7aBa G3-aiLi-a 

7ilfl IPT-laT1IEK7IBa 

7a 2a IFHdl -H(2J^IANDH(2)-H(3)-lMIDHl3|-H(41-lANDH(()-B(S)-mEll 

72ai 

7B3a A 1 11) -a : RETURN 

7iaa wi-B 

7ia2 F0ftA>lTO5:W(A]-a:MEXTA 

71B3 F0RA-1TO5 

7ia4 irH(A)-H|A<llT1IEII71B7 

7ias wi-wi<i 

7iB6 W-|Wl)-t<{A) 

7187 NEXTA 

7 1 as IFW(1)>1-W(2)UIDN|2I*1-W(])AHDW(3| *1-H( 41 TBeH715l 

71 B» IFM(2}>l-W<3)iUIDM(3)*l-M{4)ANDH(4)*l-M(5ITnEN71Si 

7122 Alla)-B;RETL'HK 

Tm AUa)>]5iilETURH 

72aa Alll)-4a:RETURH 

Bflaa IFH(I)-H12)ANI>H(2)-H(3)AI(I>fl(3)>H|4)AIII><l(41-H(S}T1IENA[12)-SB 

I RETURN 

BBla A(12]-liRETURN 

B5aa A(13]-B 

B5ia F0RA.1T05:A|13).A[11)»H(A) : NEXTA 

BSD RETURN 

laaia Cl>Cl»l:IFCl/2<>Iin'ICl/2{THEHiaiBB 

laaas p3s-pis 
iiaae ai-i 

IBBia F0RA-1T013:A(A)-P1(A1 iHEXTA 
lflB2a RETURN 
lilBB F3S-P2S 

laiai Ai>2 

liIBi FORA-1T01];A(A)-P2|A| 1 HEXTAi RETURK 
IIBBI P7-B 

iiaa; fora-ito«iP7-p7*pi(ai ibexta 

liaiB IPP7<63THEKP7-f 

llBll IPP7>62TBEJir7-35 

liaiJ irF7-35THEIIPO-PO*liPOll)-35 

1112a rORA-lT01lTB7-B7*Pl(A) iNEXTA 

lia3a B7-B7-tF7!Tl-Iin'(B7| iB7-a 

lia4B r7-f :FORA-lTOt:F7-F7*P2[A) :HEXTA 

11143 irF7<fi3THEKP7-B 

lia4S IFP7»B2TBENF7-3S 

11846 IFF7-35THENPT-PT*a:PT(ll-J5 

11855 FORA-lT013iB7-B74P2[Al iNEXTA 

llBta B7-B7»F7iTa-I»T{B7] iPRIMTiaSft ,PlSj ■-" |T1 , "BOKOS-" jPOlI 1 JlP 

Oll)-liPRI»'T*3ia,P2!t"-"iTa,"BOIinS-"|PT(l) I iPTm-BlB7-iiPl(141- 

TliP2(14]-T2 

11865 IFTl>T2THEim4-H4 + l 

liatt IFT1<T2THENH2-H2tl 

II as 7 IFT1-T2THENK3-W3»1 

1187* r3-T3»TliT*-T4*T2iT5-T5*JiPRIHTi384,*PUSB AKT KEY TO COWTI 

NUE'i 

11B71 LS5*IHKETJi tPL5$-"ni£SlJB71 

11874 i:0SUB17aiB 

11B75 COTOia 

12888 F0RA-1TQ13 

12885 F1SIA)-STR$(P1(A)1 

12818 irPHAl-BT1IEl(PlS[A) ■■ I" 

12815 IFP1(A)-.5TIIENP1$(A1-' •* 

12828 KEXTA 

12188 RETURN 

12288 P0RA-1T013 

1228S P2$(A| -STRSIP2(A] ; 

12218 IFP2(A)-STHENP2S(A}-' X' 

12215 IFP2(A1-.5THENP2SIA)-- •• 

12228 seXTA 

1222s RETURN 

15888 PRIHTiSB6,'I'iiRETURIl 

15885 PRIWT8B91,*1*| iRETURH 

16888 C-8 

isaia FDRo-iTa4 

16828 IFH(O) <-ElO+l)THENlBa48 

ifioi T-Hiai ■.HtQi-fito+n imQ»ii-Tic-c*i 

Program continues 



BOOKKEEPING 
MADE SIMPLE 




The Menu 



THE 

BOOKKEEPER 

SYSTEM 



TM 



-A Combirved General Ledger, Accounts Payable, 
Accounts Receivable, ond Payroll 

-Expandable to Include Inventory, Order Entry, 
Certified Payroll, or Mail List 

-Complete Easy-To-Follow Manual and 
Instructions 

■ For Microcomputers using CP/M. OASIS or 
TRSDOS Operating System 

"64 K Minimum, Hard Disk Compatible 

- Demonstration Disk Available 



3iiih ilSllua^ Jan, ^ 43 




179 Wnt Smith StFMt 
Collatln,T»nnMS«« 37066 



CP M OASIS and TRSDOS arm TM ■ ol 

Digital llm%»arch Phasm Ona S|nl»mi 



DEALER INQUIRIES 



(615)452-1027 welcome 

We're Writing rrograms for People 



.'S«8 List ol Advvrtismrs on D*a» 386 
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Word Processing? You need a 

SPELLING CHECKER 



Hf i-(fi. . T'.. t-- ■ ^rolh ',*> Ihe srteer. ss it is cf*rterl. *«<. 
- ^rr-r 1- *tBrt*^, ff! rww three cHoices. 

n REFIACE the iicorrect ier<J. Ihe repltfccnp'' -o'l 
.:, [NS!iV.il' tf-rtrnTIt fw cwrecU*4S. then ime-'i^. ','■ Ifie 
te-t. 

;■ '--le uo'o ••■-. riirrecti leavf it ■;. i'. ;o. 

3' Leaw U* «or1 k it is, WO tell ^XBT-ELl to 
LE*" t'-.i5 uor'l (or fut/re tfferer.ce, «nti jusl ore ke-)strt*t. 









ipFS^: f- :r=lHrF HOI.'L' S) LEM «^ :: i ■ ^■^^t* ""'■[' 



HeXSPOLL 

AnMKv 

zaps those.sna«1cy typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear Ihe 
memory and teach HEXSPELL a complete new language. 
Progisms. wordllst A manual $69US Manual only S12. 



RBQui'es ^K TRS-ao Mod 1 wilfi 2 Dii"e 
T^sled assin^t ScfipBil & Eleclnc Penc 


i TRSDOS 

1. snouin w 


THSflO &:r,&*l[ ■r*1r*11»'nirt.i pf TnnOy Co'p 





oia procesBors 



h*«l SMBfV So 



A^HeXAGON 
▼4rSYGTeM« 



.^125 

PO. Box 397. Stalior A 
\bncouvef. B.C Canada V6C 2N2 
letophone (604) 682 7646 



Program continued 

168*9 NEXTQ 

160511 IFOBTHENieeBe 

leeee return 

170aa CLS:FORA-lTOHlP3(A)-P3(A)tPl(Al : P4 (A) -P4 (A) tPZ [ A) iNEXTA 

17BB5 READASslFAS-'START'THEMlTlBBELSEnaeS 

171BB PRINT' '|P1S,P2S 

n2BB AB-a2:F0HA''lTO14!BEADAS:PRINTASl' " , : PHIWTIKT(PJ [ A) /T5->, 

491:!pHlNTeAB,INT(P4|A}/T5*.49| ; A8-Aa+64 jKEXTA 

173BB IFHT<-P:il4)THENHT-Plll4) iliTS-Pl$ 

174BB IFLT>-Pl(14)THeNLT-Pl(141 iLTS-PlS 

17 5BB IFHT<-P2 11*)TH6N9T-P2{14) JBTS-P2S 

176flfl IFLT>-P2(]4)THENLT-P2(H) iLT$-P2S 

177BB PRI(n'^92,"I.OWE5T SCORE WAS BY * ;LTSl '-* I l.T| : PRINTS156 , "HIG 

BEST SCORE WAS BY " i HTS ! "•* J HT, : PBINT?22e ,PlSl " 'S*I " BOHUS -"iPO 

(■ OF ■;T5i:PRINTg2e*,P2Si*'S';' BONUS -"iPTj" OF "jTS I i PR1NTS41 

2, PI Si :PRJNTS42 2,P2Si:PRIfTg43 2,'TIES"i 

mB5 PHINTg476,W4j i PRlNTg4B6 ,W2; ! PRINTe496 ,W3 I : PRI(JT*96B ,* (AVE. 

PTS. PER GAME FOR EACH CATAGORY)'; 
1780B NS-INKEYS:lFNS-*"rHEN17S0B 
179flfl RESTOREiRETURN 

18BB0 DATA START , 1- ,2-,3- , 4- ,5- ,6-, A- ,B- ,C- ,D= , E- ,F-,G= ,AV 
ISBBB CLS:PKINTg21,'THE GAME INVOLVES THE "ROLLING" OF FIVE D 

ICE AND GETTIHG COHBINATIONS THAT MATCH EACH OP THE 13 CATA- C 
ORIES. (E.G. 3 OF A KIND, LARGE STRAIGHT ETC.) 

190B2 PRINTe274,*ON EACH TURN YOU GET TO ROLL THE DICE 3 TIMES A 
ND CAN DECIDE ON ROLLS TWO AND THREE TO RE-ROLL JUST THE ONES Y 
OU WANT. WHEN THE COMPUTER ASKS 'WHICH ONES' YOU RESPOND WITH T 
ME DIE NUMBER U TO 5 LEFT TO RIGHT) ." 

19BB4 PHINTe594, "AFTER THE LAST ROLL YOU MUST CHOOSE A CATAGORYE 
VEN IF YOUR ROLL DOES NOT MATCH ONE, YOU MUST CHOOSE ONE AND IFK 
OUR ROLL DOESN'T MATCH THEN THAT CATAGORY WILL JUST BE 'X' OOT.T 
HE "BONUS" CATAGORIES ARE NUMBERS 1 TO 6.' 

19aB5 PRINT^al3,'Y0U GET A BONUS OF 3^ POINTS IF YOUR TOTAL FOR 
CATAGORIES 1 TO 6 IS 63 OS MORE," iPRINT: INPUT'PUSH ENTER TO CONT 
INUE*,X 

19B1B CLE:PftlNT*FOLLOWIHG ABE THE POINTS FOR EACH CATAGORY' 
19815 PRINTiPRINT'l TO 6 BONUS POINTS, DIES MATCHING CATAGORY N 
UMBER ARE ADDED' 
1902B PRINT' lA] THREE OF A KIHD. ONLY WITH THREE OF A KIND, ALL 

DICE ADDED' 
1983B PRINT'(B) 
ICE ADDED' 
19B4B PRINT'lCl 
19B5B PRINT'(D) 
19fl6B PRINT'(E) 
19878 PRINT'lF) 



FOUR OF A KIND. ONLY WITH FOUR OF A KIND, ALL D 



FULL HOUSE. 1 AND 2 OF ANY BIND. 35 POINTS" 
SMALL STRAIGHT. 4 IN SEQUENCE. 35 POINTS' 
LARGE STRAIGHT. 5 IN SEQUENCE. 4B POINTS* 
YAHTZEE. ALL FIVE SAME. SB POINTS" 

19888 PRINT'lGl CHANCE, ANY COMBINATION. ALL DICE ADDED' 

19882 PRINT' (HI WILL END GAME IMMEDIATELY' 

19B84 PRINT'NOTE: PUSHING 5 AT 'HOW MANY CHANGES' RE-ROLLS ALL 

HE DICE'iPRINT'NOTE: PUSHING AT 'HOW MANY CHANGES' PROMPTS 'li 

ICB OPTION" 

19B9B PRINT:IHPUT"ENTER TO START GAME' t K iGOTOl 




Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM, Models I & III, In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 



PTHE B00K 




If you ever do Assembly language program- 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

*TflS-80 Is a Iradamarli ol Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 



►^305 



[ Insiders Software Consultants, Inc. 
' P.O. Box 2441, Dept. SUM2 
Springfield. VA 221 52 

G Please send me Volume I of THE BOOK 

G Please send me Volume II of THE BOOK 

NAME -_^ 

ADDRESS „ 

CITY, STATE 



.ZIP CODE. 



Checl' payable lo Insiders Software Consulianis. Inc. 

MASTER CHARGE MC Bank Code 

VISA E«p Date . _CardNumber 

Signature __^_ 



Daalar Inqulrlss Irfvltcd 




Volume II: Everything you want to 
know about the video, keyboard, 
cassette, and printer driver 
routines. Learn how to write your 
own! Remarkably detailed listings 
illustrate well-commented source 
code. Complement Volume I, now- 
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MDX-2 System Expansion 
for TRS 80's 

Th« Rtw MDX-2 tysum •xpantlon t»ard from 
COMPUTEX provldM mora Mp«bliniM ttian «iy otfwr 
yst«m MpMuton currantly avalUMs. 

FEATURES INCLUDE 

• Capability to build only whd you Mtd. 

• Silk aenwtta and wMar mmkmi P.C.B. 

• Dip switchM are uMd tnateftd of hardwars lumpan. 
■ No maaty vantcally mountsd (armln«tk)n rMtaton. 

• On board diract connoct modam kit 

• 2K/4K EpFom kit 

• RS232/20m.A. aarial intartaoa 

• Raaltimt dock kit 

• Ftofvydlakcontroltarkil 

• 32K RAM txpamkm kH (lets Ram) 

• C —iWeport 

• AnatogpowaraupfMy 

• UDX-2prlntad circuit board 

• Hardwaraandtockaikh 

• Centronlca Una printar port 

Buy just the system expansion t»&rd and those kits you 
want, or save even more and buy the complete kit. 
MDX-2 KIT COMPLETE 
S2M.00 



DISK DRIVE SALE 



$38.06 
SI 7.96 
S17.96 
SI 7.95 
Sai.95 
SII.SS 

S3.95 
S29.06 
S74.95 
S19.96 

18.96 



TANDON TM100-1 

Bar* OHva S2S8.00 WHh ea**/ai«p>y S2S$.00 

Slngl* tidad 40 Iruk ■ 162KB SIngIa Danalty, 1B0KB DouUa Danalty 

TANDON TM100-2 
Bar«Dri«aSaS6.00 WHheaaa/aup*lySM6.00 

Ooublo ilded 40 track • 204K8 Single Oemlty , SOOKB Doubia Danalty 

TANDON TMIOO^ 
BaraOnvaS33S.OO WHheaaa/aivplytlSS 

Single tidacl SO track • 204KB Slngla Danalty. 300K8 Ooubl* Oanally 

TANDON TM100-4 
BaraDrtvaS45S WHh caa*/Mpp»y SiOB.OO 

OouW* skM 80 track • 40eKB SIngIt Damlty. TdSKB OouM* Danalty 

AH TANDON Orlvm fmn COMPUTEX comt with comprthtntiv 
u$9n mmitm'. TANDW malnttntne* manual and acMmuMa. In 
mUltHm, all drfwt an a lact r k allY (aiMd AaAva, during and allar t/iair 
48 hour burn In. 

DISK Om VC ACCESSORIES 

TMDrtMCaMa 934.95 

fturOrtwaCaMa SS4.96 

DrfvaExMnaarCaM* 914.96 

Modal III SaoandOrtvaCaU* S4.96 



Model III Disk Drive 
Kits & Drives 

Now available from COMPUTEX, a Radio Shack Disk Drive 

Kil for your Model III lor only S429.9S. 

Compare Ih^se standard features ori our list to the ofrters 

1 Drive ConlroHer Board 

2. AH necessary interconnecting cables 

3 Switctung Power Supply 

4 Disk Drrve Mounting Brackets 

5. Internal Disk Drive Cable 

6. Comprehensive installation and theory manual 
7 16K RAM 

COMPLETE MODEL III DRIVE PACKAQES 

These packages all include, the Model III Disk Drive Kit 
and the Micro Systems Software Model 111 DOS 
M3DK-1 (2-TM100-1 Drives) provides over 

350K Bytes storage 919 95 

M3DK-2 (2-TM100-2 double headed drives) provides 

over 700K Bytes storage 1 ,149.95 

M3DK-3 (2-TM100-3 80 track drives) provides over 

700K Bytes storage 1 ,199 95 

M3DK-4 I2-TM100-4 double headed 80 track dnvesi 

provides over 1 4 M Bytes storage 1 ,399.95 



COIS^PUTEX Comprehensive Test Program 

As one of the leading suppliers of disk drives and TRS80 systems, we 
had 10 have a systems test program that we knew worked. Since no 
complete systems test program already existed, we wrote our own. The 
COMPUTEX COMPREHENSIVE TEST (CCT) program was written 
exctusiveiy for COMPUTEX and is now available to everyone. 

Features 

DISK DRIVE SPEED TEST • DtSK DRIVE ALIGNMENT PROGRAM* 

EXPANSION INTERFACE RAM TEST • KEYBOARD RAM TEST • VIDEO RAM TEST 

KEYBOARD BOUNCE TEST • ROM CHECKSUM PROGRAM 

FULL SCREEN RAM DISPLAY PROGRAM 

'The Drive Alignment Program requires an AUgnmenl Disk. 

The CCT program Ib ■ must for disk drive users and should tw a part 

of everyonei library. 

CCT Program $21.95 

Dysan Alignment Dlik S39.95 
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LNW COLOR COMPUTER KIT 

S499.95 

(less PCS I 

Includes all components to assemble the LNW color computer: high 

resolution video RAM and 16K user RAM. keyboard, and Level 11 compalible 
ROMS Printed c rcuit tXMrfl not included 

LNW EXPANSION INTERFACE KIT 
S219.9S 

(lessP C B ) 
Includes all components to assemble the LNW Expansion Interface plus 32K 
ot RAM It cJoes not include the prmted crrcuil board, dual cassette relay or 
cabinet 



A beautiful cuslam 
Expansion Interface. 



all wood 
$99.95 



cabinet is available for housmg the LNW 



ONE YEAR GUARANTEE 

onour200N.S 16K Memory Kits 

16K - $23.95 32K - J45 95 48K - $74 95 

Th«H are top quality, rww ineinory chips at unbstlevably low prIcM. 



Zi 



(713) 488-8022 



UAAA/zrrx 



^m 



ELECTBOTJICS CCHTIPUTfcBS 

321 El Dorado Blvd. • Wobalor. Tx. 77896 

vm and MHtMBMd MMpMl 
PartoMl ami ewnpany ctMCka r«|utf« two WMtuioclMtf 

P/ea» W9/r our mw $nowroom iust off tho Quif Froowtiy. 
W« hava axptttdod, ^angad ourjtama back to COMPUTEX, 
addad mora p9nonn9l in order to of for you comploto amrvfca 



r-Sec Lis! ot Advertisers on cage 386 



80 Microcomputing. October 1981 • 305 



UTILITY 



You sometimes must use them 

to get the most out of your disparate program library. 



Building Bridges 



Wayne L Mueller 
130 Sunset Court 
Roswell, QA 30075 



At one time or another, 
almost all of us have 
bought software that did every- 
thing that it claimed, but still 
didn't do exactly what we had 
In mind. When this happens, we 
usually either change our mind 
about what needs to be done, 
or change the software to do 
what we originally had in mind. 
In this case, I did neither. 
Rather, I found two pieces of 
software and built a bridge t>e- 
tween them. Taken together, 
they do exactly what I want. 

Special D«lfvery 

On one side of the bridge we 
have Special Delivery by Soft- 
ware Concepts. This is a very 
nice mall-list processor that 
merges a letter text file with a 
name and address file to pro- 
duce highly personalized form 
letters. 

If your letter starts with 
"Dear Mr. <L:", the Matlrlte pro- 
gram will substitute a last 



name for the <L, so that it 
prints as Dear Mr. Adams, Dear 
Mr. Baker, or whatever last 
names may appear In your 
name and address file. In all, 
there are eight fields In the 
name and address file that may 
be substituted anywhere In the 
body of your letter. Other "<" 
flags allow you to toggle under- 
scores and boldface on and off, 
change margins dynamically, 
and provide other slick features 
too numerous to mention here. 
(See the July, 1980, 80 Micro- 
computing for a review.) The 
problem Is that six of the eight 
fields have to do with the name 
and address, leaving only two 
fields to store ilata about that 
person or company. For my pur- 
poses, two is not enough. 

AIDS3 

Enter AIDS3, by Meta Tech- 
nologies. AIDS has no text In- 
sertion capability, but is a 
superior data manager. The 
user may define up to 20 fields 
of either character or numeric 
type. In addition, there Is a 
more comprehensive search 
and select capability. There are 
no exaggerations In MTC's ads. 
if anything, the claims are 



understated. If all you need is a 
data manager and report gen- 
erator, AIDS3 and its com- 
panion programs are top notch. 

TheBrMgs 

As you might expect, the file 
structures differ between AIDS 
and Special Delivery, so that a 
file written by one cannot be 
read directly by the other. 
That's where the bridge comes 
in. The conversion Program 
Listing moves any of AIDS' 20 
fields to or from any of Special 
Delivery's eight fields, and does 
it in a format that is readable by 
the destination program. 

What this means to me is that 
even after using six of the 20 
AIDS fields for name and ad- 
dress information, I still have 
u p to 1 4 fields to store data for In- 
sertion Into form letters. Normal- 
ly I do my data entry, editing 
and selection with AIDS, and 
then move the selected data to 
the Special Delivery format for 
form letter generation. 

The conversion program op- 
erates very simply. The pro- 
gram asks for and accepts the 
names of the files involved, and 
which way to convert. The re- 
spective file formats are then 



displayed, (Fig. 1) and you 
select which field is to be 
moved where. As each selec- 
tion is made, the arrows to the 
left of the screen (Fig. 2) depict 
the source and destination 
fields. In the example shown, 
an AIDS file is being converted 
to Special Delivery. AIDS fields 
A through F are being moved to 
the corresponding Special De- 
livery fields one through six, 
while AIDS fields M and L are be- 
ing moved to Special Delivery 
fields six and eight re- 
spectively. Entering the slash (/) 
character ends the selection, 
and causes the conversion to 
take place. 

All Special Delivery fields are 
stored as left-justified char- 
acters, and padded on the right 
with underline characters to fill 
out the field. AIDS' character 
fields are padded on the right 
with blanks, while numeric 
fields are right justified and 
padded on the left with blanks. 
The conversion process ac- 
comodates these conventions, 
so that the converted file ap- 
pears identical to what would 
have been produced by the 
destination program. If the 
destination field is smaller than 



M9mber/lsl:i 


MamtMr/aat:1 




1Nam»25 


ANama = 2S 


K Pfadga S«6 


2 Company 25 


B Company = 25 


LSlo Daiane 


3 AMnss 25 


CAdtlnasm25 


M CommittaattW 
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DCItylB 
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EStat9-2 
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Membef'dat:l 




A " =>1 Name 25 


A Name-25 


K Pledge $-6 


B = => 2 Company 25 


B Company-25 


L $to Date-6 


C = = > 3 Address 25 


C Address-25 


U Commlttee-18 


D = =>4Clty 18 


D City-ie 


N0tHcer?-1 


E = = > 5 state 2 


E State-2 




F = = > 6 Zip 5 


F Zlp-5 




M = =>7Datal 14 


G WlfeName-t2 




L = =>8Dala2 14 


H»Childran-3 
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J Birthday- 18 
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Nexl?-. 

Fig. 2 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



FOR PERSONAL BUSINESS 
OR ENTERTAINMENT 

Color Computer 

4K Level I $319 
16K Level I $439 
16K Extended Basic $489 

With TCS Memory: 

16K Level I $369 

16K Extended Basic $449 




Expansion Interfaces 

Zero K Interface $254 With TCS Memory: 

16K Interface $359 16K Interface $318 

32K Interface $469 32K Interface $388 



Epson Printers $Call 

Letler Qjahly malni D'lfler has Ijii soMwift COil'O' Ot 40 80 66 or 132 columns BO COS DiOirecliOnal 

Iricio' 'eeO flisMMtjie o'lfhe^d 1300 less liar, rsarfs' cotim! 'i«e p^'inier lisIs I6(ij CaiMo' our 
low o"".t 

MX-80 Tractor Feed MX-100 Graphtrax, Friction 

MX-80 FT Friction and and Tractor up to 15 " 

Tractor wide. 

Graphtrax for MX-80. MX-80 FT, graphics option. 



SOFTWARE 

EPSON MX-SO 
PRINTER DISKETTE 

A ;o'it ele Oiihetit mti i.oi"0iele '>ies ick use 
will yOiC ( Dson MI 80 Pimlei 
'i:m>i 10 use 

M/CMD Send jiioItnefosonPtiniei tom.tyrKii 

(0 I he D'lnier oi'ecliy liom [)0S Or siQit'i oi ar aulo 
l-'OOdrq ivslem Sel uO tie pnnlei Irom DOS 10 Itit 
lyUSily'e yOu WJ"' IWn 'jn llie c'DQ'ai^ 

BIGLETT/BkS P'oaiice (arge qraomc letters on 

your Dfifiifrdnd screen Dumnioe leite'Stoc'itie' 01 
to (lis' Allows J (tilieie'ii si/e leKe's ro me curiieF 
Pioqrdnii>meni)a'iuen voumdyiiiiOcoiisl'uclidiqe 
temi riHes to MtRGhnq .ntoyou' wsic c'oqi^m 

EPSOM/SUB Utiqt Ih.s small muauie >nio ^nv 
Basir [)ioq'HmjnOineni<,Sitedny oUrieoiinleuom 
manO'. iirin a / lellei coi'imami «iin letlei i, iet)ieM;ii 
Tinq The Dili DOse 01 iw [oo'nMia 'ou Tieni no' 'e'ri 
D,Kli ana Iwtn lo OOCunienlaliOn titieowiy easy 10 
us* aiO nykes us'iij It* cunie' mucn easifi ina'' 



JKl PATCH fill-, wn.ln^^ NtrtLlUS ^ I a-io 
Nf WDOS 80 so rhai Ihe JKL tiinclioi' *'M fffitit ine 
1 RSSO QiapfiK s wrtrle The oimtei remains m trie slan 
OaiO rtwoe raihf inanihe [RSSOmoOe Ttii^aiiows 
aiiol Ihf learijreiolinepi inlet lofeusea tmt you l tr 
dump in^ sci^ri ID 1^ [>iEnlei iiT finy ^^'^^ *im .if 
graoliKS 

DEMD/BAS A supei luloi lal pioqi jm wlh ^l. < 
orecs ot R(M^ aiM tiDnfliefliol iCifeno'OmolS IKi' 
leatd you to* easy ii is lotiealerinracies witi yiu' 
IpsOnMxaOurmlPi 

lABEL/BAS-Cusiom laOei maiung program ir 
ciuOing grao'iics Makes custom mailirq labels jn 
easy [OD 

DEFSTATE/SUB A senes ui oi>v woia Drmif 
comniarOb "w' tan oe meiqeo mio any Basic P-:.' 
grams inal jiiow va'ious auionatic ikmcitons lo w 
cui Pnni litles «i(n ijiapniL boitleis aiounfl i"ei" 
«r|ti o''e wo'il (emer aitv te'i *•''' one C0"'"ia"ii 
eit 

Special PFice All seven olthe HOove 
mofluies on one Qiskelle ot on tape i less 
JKl 1 lo( yoiii Model I or III lor only 
S29.9S 



(Ir l.ikfdSlOdiscoiinlir,OLiriuvthis iletn wilh purchase ot the tpscn MX 8IJ 




Model III 16K $835 

Model ill 32K$979 
Model III 48K$1089 



TRS-80 



iVf nut 111 SjOio SnacI comoutfri jrx) jtifisoi 
les »nd i numWi ot oHW' bijnO :omoiil»' i(p"i5 
Call us la nwr iptcrlic MtOi iml |M i con o' ""r 
cjlalof 



With TCS Memory: 
Model III 32K$909 
Model III 48K$969 



Model 
Model 
Model 



48K 2 Disk RS232 $2100 
32K 1 Disk $1729 

48K1 Disk $1849 



TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



COMPUTERS 




Model II 64K $3288 

An excellent computer for your business 
needs Easy expandability & compatibility 
No formal operator training needed All ac- 
cessories available — disk expansioris. 
printers, software, at our low discount 
prices. Our fast, fully insured air freight 
service can assure most deliveries witfiin 
seven days after payment is received 



Corvus Hard Disks $Call 

'j 10 0' ?Q rnegaSty'es u( storage 'or ifw Vofle i I oi ii We can :orligi,re i system 'or you «'tr. eiltie' 
'R5XS NfW;xiS81 oiCP'Mlmone oi several compulefs srunngasing'e na'O CrryesrniLttaneous y fo' 
eiampie Iror^ ' io8 yoOel I' s riiay 5^dre a Single lafgeOalaliasewilhlf'eCo'vusConsWtaWri MuitipWie' 
'hiss ISO allows you ri; use diHe'enfmanjIacluters coirpuieisor Itiesame riara Oist system an he same I rme 
Also tils Apoie SupeiDram Alios and rnosi olfiei compuTeis As yow business giows additional slocage and 
'ermina s may M aflceO easily Teipensively Why «ail rnonlfis lor oITier's proriises'' We can Oeii^e' ttiese 
Tuanlp D'over iiarO Ois* systems NOW' Cotvus lias soltl and shipped ten (imes more haiO Or^ves tor 
microcomDuters inai all meir compeiilors comCined Call m tor Hw kmsM prtcsl 



MICROSOFT 

BASIC-IO EiTenitea oiSh Basic long yaiiable 
rumps ch.iinno v.iri.iOleienqthief o:Bs ANSI com 
IXiUOiF inierDreldlivr version $234 m/HWMMI. 
S3D manual only. 

BASIC COMPILER Same Bas<( Language as 
-.;',!■ n'T •i:-';' i-'-ipiles BaSK program inlo a 



uirecTiY eiftulaOie reiocalabie inachme lanqujoe 
(lie Ope'alps 1 to lOtinws lastei Than 'eauiai Basic 
Includes Macro SO AssemDn?' Sowrity '" PV ^r 

TnSDOS S32Sw/maniial. SU manual onry 

rOHTUUI-IO iuSpOtrs ANSI 66 Bius ni.;.r>y ?. 
lensions including MACPO 80 Has library with 
manager rpiocalaWe ooieci cwnpiiei and imfcinc 
oarte' S*Mw/inaniiBl S30 manual onlf 



Word Processor Package $2679 

inclufles 2 Oist' Model Hi with 48K. Epson MX-80 Tractor Feed wiin cable, and 
word crocessing software ready to operate Lists at $3300 Our low price 
special this mcnih SZG79. For MX-80 FT Tractor and Fnction. add $99 



Special-With TCS Memory 
if Model III 48K 2 Disks 

jses ijifven MPi Onves moOitieO toi thppy opeialion and 
Percom conlioMei limilM 90 day ■rairsnty Can loi 
details 



$1895 



Printers 



Daisy Wheel II 
$1695 



Laitjon iiDOO'i typewriter gualriy loi moid B'OCFsSinq 43 
cps Standard Centronics oa'atiei interlace fji' 'fi" 
*i0tri mdii/idijai sneeis or Iricijon teeo IrattO' 'eec 
S?M e«!ra fastest Oaisi Wneei jvj'ijBie jr Tit p'.r^; 



Line Printer IV $825 
Line Printer V $1599 
Line Printer VI $995 
Line Printer VII $350 



Pocket Computer 
& Ace. scan 

Pociel Comouter Printer 
nlertace it slock 



iPuyii.ciit W;i'e,U;oe' Las-^fr iCneck CfMiei 
Chech Personal ChecKs take 3 "ks VISA MC 
add 3S 



•P- ;>■- juCiect to ktiaiiyc a'ly un^e 

• No ia> out ot Slate leiansaodb- 
> Delivery subrect lo avaiUDitiiy 

• Snifpii '^c f 'Ira Ouoteo Dy onoie i^ 25 



TCXAS COMPVTf ft SSISTCMS 

60x951, Brady Texas 76825 

For last, elftcienl service we can air (reigri irom Da^as 
to ma|or a/p near yi^u Call for intorniatmn 

Toll Free Number 800-433-5184 

Texas Residents 817-274-5625 



^See i.isr ol dcfver'/se's on page 386 
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the source field, the source is 

truncated on the right or left as 

appropriate to the destination. 

No changes to Special 



Delivery and only minor 
changes to AIDS are required. 
Speciai Delivery handles lower- 
case characters while AIDS 



does not. Simpiy go through 
AIDS and locate the occur- 
rences of CH = 90. Change 
them to CH = 122 and you have 



lowercase AIDS. This naturally 
assumes that your TRS-80 has 
a lowercase conversion in- 
stalled. ■ 



IBI OEFIWT A-Z:CLEAB lte» 

lie 'DEFINE MACHINE CODE IN NLS 

128 HLS-STBIMGS(26,32) !X-V«tPTR(MLS) :X1-PEEK(X*I) :X2-PEEK (X+2) 

139 IF X2>127 THEN X2— X2:X1»X1-1 ELSE X2-256»X2 

140 X-Xl+X2:DEFUSRe-K!F0H Xl-fl TO 25!READ XZiPOKE X+X1,X2:NEXT 
158 CLS-CHRS(311 'CLEAR SCREEN 

160 GOSUB ibBII 'GET FILE NAMES 

17B ijosuB zeee 'open i read desc file 

18B GOSUB .ilBB ' DISPLAY AIDS FIELDS 

198 nOSL-B 22BB 'DISP SPEC DEL FIELDS 

2Bfl [,OSLB 23BB 'FIELD SD FILE 

210 GOSL-B 47BB 'DUMMY AIDS FIELDING 

228 GOSUB 2400 'CONVERT WHICH WAV? 

23B GOSUB 270B 'OPEN AIDS FILE FOR I/O 

240 LTS-'ABCOEFGHIJKLMNOPQRST* 'VALID LETTERS 

25B LTS"LEFTS[LTS,NF) 'VALID LETTERS, . .THIS AIDS SYSTEM 

268 HRS-'12345678" 'VALID NUMBERS FOR S-D 

278 GOSOB 3808 'GET t VALIDATE XFER INFO 

268 IF TF-1 THEN GOSUB 4000 ELSE GOSUB 4380 

290 CLOSE: END 

2808 'SUBR TO OPEN (, READ AIDS DESC FILE 

2018 OPEN'I'',3,F3S 

2020 INPUTI3,AS,AS,TL,NF 'DMV,DMV,TOT REC LEN,( FLDS 

203B DIM ANS(NF) ,ALIHF),AS(NF),AZ(NF),AAS(NF) 'NAME,LEN,STHT,BKTS 

204B FOR I-l TO HF : INPUT#3 ,A(4S(I) ,AL(I) 'FLD NAME t LENGTH 

2058 IF ALUXa THEN INPUT 13 , AS ( I ) , AS (I) ELSE INPUT»3 ,AS ( I) 

2860 NEXT:CL05Et3iRETURN 

2100 'SUBR TO DISPLAK AIDS FIELDS 

2!lfl CLS!pRINTe48,F2Sl "DISP AIDS NAME 

2120 HS-eSe 'START PRINT P05 

2138 FOR 1-28 TO 1 STEP -liIF I >NF THEN 2158 

2140 P81»TeNS,CHRS(64*I)," ■ ; ANJ ( I) ; ■ — ', ABS(AL( I) ) i 

2158 NS>NS-64:IF NS<64 THEN NS-666 

2168 NexT:RETURN 

2200 'SUBR TO DISP SPEC DEL FIELDS 

2210 NS-5:PRINTSHS,FlSl 'DISP S-D FILENAME 

2220 FOR I-l TO 8:NS*NS+64tREAD SH$(1),SL<I) 

2230 PRINT8NS,I]SNS(I) )SL(I) ;: HEXTi RETURN 

2380 'SUB TO FIELD RND FILE TO S-D SPECS 

2310 0PEN-BM,FlSiSfi-2iSF=e '2 SUBRECS, B FLDS 

2320 DIM RFSISR.SF) ,SI(NF) :DUMMY.B 

2330 FOR I-l TO SRiPOR J-1 TO SF 

2340 FIELD 1, {DUMMY) AS DUMMY*, SLIJ) AS RFS{I,J) 

2350 DUMMY-DUMMY»SL(J1 iNEXT J.IiBETUBN 

2480 'CONVERT WHICH WAY? 

241B ARSll).' <.."iAFS(2)-* -->■ 

2420 NS-720;PRlNTWS,CLSt"TO OR FROM -jF2St"?" 

2438 AS-INKEYSiIF AS-" THEN 2438 

2448 PRIWTeNS,CLS;)TF-INSTR(-TF-,AS) :1F TF>e THEN 2460 

24SB GOSUB 2680>COTO 2420 -BUZZ i CLEAR 

2468 SYS-AKS(TF) (PRlffTSNE+S ,ARS(3-TF) :RETURN 

2688 'BEEP ROUTINE 

261B FOR 1-1 TO 25iOUT 255,4!OUT 255 .BtNEXTiRETUBN 

2700 'OPEN AIDS FILE FOR I/O 

271B OPEN HIDSCOI'.TF,!) ,2,FZS:RETURN 

3500 ' SUB TO GET FILENAMES 

351B PRINTI8,CLS:PRINTei8,-MAILFORM/AIDS FILE CONVERSIONS" 

3520 PRINT?26B,*MAILFORM FILE? "jtHNEINPUT FS 

3538 NS-2fl3:F-l:GOSUB 3708:F1S-FS 

3540 PRINTgJ36,*AIDS FILE? *;!LINEINPUT FS 

3550 NS-347:F*2:GOSUB 370e:F2S"FS 

3560 PBINTe389,*AIDS DESCRIPTOR FILE? ■ ( i LINEINPUT FS 

3570 NS-41l!r-3:IF FS-"" THEN FS-F8S:G0SUB 3758 ELSE GOSUB 3788 

3580 F3S-FS!PRiNTe471,"OK? "; 

3598 LINEINPUTFS:IFLEFTS(FS,1)-*Y" THEN RETURN ELSE GOTO 3510 

3788 'ASSIGN DEFAULT EXT t DRIVE 

3 718 A1-INSTR(FS,"/") ! A2"1NSTR(FS," i ") :FRS-"!l* 

3728 IF A1>0 AND A2>B THEN RETURN 

3738 IF A2>9 THEN FRS-RIGHTS (rS,2) :FS-LEFTS(FS, A2-1) 

3748 FBS-FS 

3758 FS-FS*»IDS("/LST/DAT/DSC",4»F-3,41+FRS:PHINTeNS,FS!BETUBN 



3888 'SUB TO VALIDATE FLD XFEB INFO 

3810 HS-9I8;PBINTeNS,CLS)'NEXT? *) : NS=NS+5: FL-2 :GOSUB 450B 

3820 TX$>AI$;IF AI-42 THEN 3960 ' STD XFER 

363B IF AI-47 THEN RETURN 'END INPUT 

384B LS-LEFTS(TXS,1) iRS-RIGHTS(TXS,l) 

3850 L-INSTBINKS.LS) lIF L>0 THEN Ll-IiGOTO 3870 

386B L-INSTR(LTS,LS) :IF L>8 THEN L1-2!G0T0 3888 ELSE GOTO 3900 

3870 R=INSTH1LTS,RS) !IF R>8 THEN RI-2!G0T0 3918 ELSE GOTO 390B 

3BSB R=:NSTB(NRS,RS) :IF R>0 THEN R1=1:G0T0 3910 

3890 'INVALID INPUT 

3988 NS-852:PRINTeNS,TXS;" INVALID' j iGOSUB 26ieiGOT0 3810 

3910 IF Ll-Rl THEN 3900 

3920 IFLl-lTHEN X-R:Y-L ELSE IF Ll-2 THEN X-L:V-R ELSECOTOJ900 

3930 AZ(X)-Y:SI(Y)-X:HS-64*Y!PRINT»NS,CHR$|6 4*X)«S'(S; 

3940 PRINT#852,CL$|:CO'ro 3810 'CLEAR ERR I. RESUME 

3950 'STD XFER 

3960 FOB I-l TO SF:SZ(I)-I:PBIKTP64«I,CHRS|64-tIl tSYSiiNEXT 

3970 FOR I-l TO NF:AZ(I)-l!NEXT 

3980 GOTO 3940 

4000 ■ SUB TO CONV S-D TO AIDS 

4010 B$-5TRING$iTL,32| :EC$>CHR$(23e] :ULS-CHRS ( 9^1 :RN-0 

4B20 FOR K-1 TQ LOFUI :NR-HR+1 :GET 1,NR 

4838 FOR I-l TO 5R 

4840 IF INSTR(RFS{I,1) ,ECS)>0 THEN 413B 

4858 FOR J-1 TO SF 'FOR ALL FIELDS 

4060 LSET AA$iJ]-B5 

4070 UL-INSTB(BFS(I,AZ(J) ) ,ULS) :IF UL-1 THEN 4110 ELSE IF UL-0 T 

HEN 4098 

408B AS-LEFTS(RFS(I,AI(J)) ,UL-1) :GOTO 4108 

4090 AS-flFS(I,AZ(J)) 

4180 IF AL(J)>0 THEN LSET AAS(J)-AS ELSE BSET AAS(J)-AS 

4110 PBINTI2,AAS(J) j iNEXTJ : PRINTt2 , -• 

412B RN-RN*l:PRINTS714,RN.-'RECOHDS WRITTEN TO ".■F2S!NEXT 1,K 

4I3B CLOSE:eND 

4300 ' SUB TO CONV AIDS TO S-D 

4318 NB-8:RC-0 

4328 FOB I-l TO SR 'FOR ALL SUB BECS 

4338 IF E0F(2) THEN 4448 

4348 LINEINPUTI2,AS:F0fi J-1 TO SF 'FOR ALL FLDS 

4358 TS-STRINGS(LEN[RFS(I,J}) ,32) 

4368 XS-MIDS(AS,AS(SZ(J) ) ,ABS(AL(SZ ( J) ) ) ) 

4378 IF AL(SZ<J))>B THEN 4410 

4380 FOR K-1 TO LEN(XS);IF MIDSIXS ,K ,1) \>" ' THEN 4400 

4390 NEXT K:GOTO 441fl 

4 400 K-R-1:XS=R1GHTS(XS,LEN(XS|-K) 

4418 niDS[TS,l|-XS 

44ZB X-USPfl(VARPTR(TS)) iLSET BFS t I . J) -TSlNEXT J 

443E RC-KC*l!PRIHTe714,BC;"RECORDS WRITTEN TO "iFlSiHEXT I 

444B NR-NR+1:PUT 1,NR;IF E0F(2) THEN 4450 ELSE GOTO 4326 

4458 CLOSE: END 

450B "KEVBOABD INPUT BOUTINE 

4510 FS-8:ANS = "!CBS"CHRS{13) iCFS-CHRS (14) !CNS-CHBS(15) 

4520 PBINTeNS*FS,STRINGS(FL-FS,136) 

4 53 8 PBINTeNS*FS,CFSr:IS-INKEYS:PRINTeNS*FS,CNS;iIFIS-AHSTHEN453 



4540 AI-ASC(IS) 

455B IF AI-42 OR AI-47 THEN PRINTSNS+FS, IS) :FS-FS+l!GOT0 4600 

456B IF AI-8 THEN IF FS>8 THEN FS-FS-liGOTO 453B ELSE 4530 

4578 IF IS-CHS THEN 4600 

4580 PRINTSNS*FS,IS;:IF AI08 THEN FS-FS+1 ELSE FS-FS-1 

4590 IF FS<FL THEN 4520 

4688 AIS-ANS!BP-lS360tNS:FOR 1-BP TO BP*FS-1 t AI S-AIS+CHRS I 

) ) ! NEXT: RETURN 

47BB 'DUMMY FIELDING FOR AIDS FILE 

471B OPEN"R",3,F3SlDUMKY-8iFOB I-l TO HF 

472B FIELD 3, (DUMMY) AS DUMMYS,ABS(AL( I ) ) AS AAS(l) 

4730 DUMMY-DUNMY+ABS(AL(I)) iNEXT: RETURN 

58B0 DATA 205,127,18,06,01,05,78,35,94,35,86,235,9,43,65 

5eiB DATA 62,32,198,192,62,95,119,43,16,246,201 

582B DATA 'NAME" , 25 , "COMPANY" ,25, "ADDRESS" , 25, "CITY* ,18 

5038 DATA "STATE* ,2 , "ZIP'.S, "DATA 1", 14, "DATA 2", 14 



PEEK (I 



Program Listing 








REDUCES OPERATOn FATIGUE THEREBY ALi^WINQ MORE EFFl- 

CtENT USE OF Tt« COMPUTER. 

INSTALiS EAMLV WTTH PflESBURE KMSmVE ADHESIVE. NO 

SCREWS, CURS, OR DRILUNa TO DAMAOE IMONITOn. 

DESIOHBD TO MATCH TRS-BO* STYUMO FROM THE BLACK AND 

SILVER BORDER TO THE LETTERING TYPE FACE. 

MADE OF TOUOH 1/i INCH THICK ACRVUC SHEET FOR DURABIL- 

mr, EASE OF CLEANING, AND A QUALITY APPEARANCE. 

FITS BOTH THE MOOH. I AND THE MODEL II. 

DOCS NOT VOID THE COMPUTER WARRANTY. 

8*tNl Nima k Addmi TypMl h ClMrty Piliftad wHIi 
CnKk or MonaY OrO" <<" I12.BS Each, Including SM|I- 
ping. COD'i irs t3X AiMlttonal Pw Ordw • ira Ac- 
oaptad by Mdl o( by CilNng K>4]TS-I4S4 ft-S M-f. 

FKxKti RMMlanK Add 4% SUM Tii. 



TO ORDER 



rnS-M) IS A TRAEXMARK OF TANDY 



SOUTHERN INtyOVATIVE DESIGN 
1520 NORTHEAST 1ZTH STREET 
GAINESVILLE, FLORIDA 32601 ^372 




306 • 00 Microcomputing, October 1981 




. . . Andmy dad says GRAFTRAXSO 
does better graphics than anybody. 

Epson. 



You might say it's the head of its class. GRAFTRAX 80 
gives you the highest resolution dot matrix in the world 
— up to 120 dots per inch horizontally and 216 dots per 
inch vertically. Which makes our MX-80 and MX-80 
F/T work more like a plotter than a printer. 

And that's just for starters. 

GRAFTRAX 80 more than doubles the features avail- 
able in an Epson MX-80 or MX-80 F/T. For instance, 
we've added nice little touches like an italic character 
set — which doubles the number of font types to 24. 
And with GRAFTRAX 80, you can change style, size 
and density anywhere in the line. And backspace the 
head. And use block graphics with any computer. And 
redefine all escape codes under software control. 

Up to now, you couldn't get some of these features at 
any price. With GRAFTRAX 80, you get 'em all. And 
more. Lots more. 



Best of all, we haven't forgotten all those people who 
already own an MX-80 or MX-80 F/T. You own the 
printer that set the standards all the others are follow- 
ing. And you can install GRAFTRAX 80 PROMs your- 
self, for less than $100. And make the best even better. 

You can see why we 

say GRAFTRAX 80 is 

the head of its class. 

There's nothing else m 

its class. 



^404 




EPSON 

EPSON AMERICA, INC. 



3415 Kashiwa Street • Torrance, California 90505 • (213) 539-9140 



CONSTRUCTION 



Increase your computer's capacity for stability. 



That Annoying Twitch 



Marshall E. Smith 

801 West Long Lake Road, 

Apt. F-1 

Bloomfield Hills. Ml 48013 



Can you remedy the twitch 
in my video display?" 
asked my grandson. He had 
obtained an estimate for a pro- 
fessional repair job which in- 
cluded replacement of any 
doubtful ICs and a check of all 
solder connections. The size of 
the estimate meant a big hole 
in his cash reserves which he 
had planned to use for the pur- 
chase of peripherals. He re- 
membered that I had done 
some do-it-yourself TV repairs 
and wondered if I could help 
him. With scant knowledge of 
computers, I reluctantly con- 
sented to tackle the problem. 

Following the instructions in 
the TRS-ao Microcomputer 
Technical Reference Handbook 
we disassembled the case, try- 
ing not to strain the flexible con- 
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nections and taking pains not to 
bend the logic board. We posi- 
tioned the logic board with the 
devices up and the keyboard 
in an operable location, then 
plugged in the power supplies to 
the logic board and to the video 
display. 

We turned on the power and 
checked the 12 volt, 5 volt and 
-5 volt supplies and found 
them satisfactory. I had 
learned that the computer had 
worked well except for the an- 
noying horizontal twitch which 
appeared periodically at the 
left side of the screen when an 
image was being displayed. 
The problem seemed to be in- 
dependent of duration of opera- 
tion or temperature and would 




come and go without apparent 
cause. I connected my 3-Inch 
oscilloscope and went to work. 

With a display on the video, i 
connected the scope ground to 
the logic board ground, then 
did some careful probing 
among the IC pins, working 
back from the output jack. This 
was done carefully because I 
did not want to short-circuit or 
ground any live pins. All probing 
was done on the side of the logic 
board on which the devices are 
mounted. 

With no twitch on the video I 
found a nice, steady pattern on 
pin 3 of Z49. Waiting for the in- 
evitable twitch, which soon oc- 
curred, I probed the same pin 
and found the scope image was 



27 pF 



vibrating. I then protwd other 
pins in the area and found to my 
pleasant surprise that the 
twitching stopped when the 
probe was on pin 2 or 3 of Z50. It 
was evident that there was a 
slight tendency towards insta- 
bility in that circuit and that a 
small amount of capacitance to 
ground might cure it. 

Sure enough, a 27pF ceramic 
type capacitor from pin 3 of Z50 
to pin 15 (ground) of Z49 solved 
the problem (see Fig. 1). Care 
was exercised not to overheat 
the pins of the iCs during solder- 
ing. After several operational 
tests indicated success, we re- 
assembled the computer. It has 
been working faithfully for 
several weeks now.B 




V GROUND 



Fig. 1 



i 



COMPETENCY EXAM PREPARATION SERIES 

This comprehensive set of progrdms consists of simulated exam modules, a thorough diagnostic package, and a 
complete set of instructional programs. It is designed to teach concepts and operations, provide drill and practice and 
assess achievement levels through pre and post testing. The Competency Exam Preparation Series provides a structured, 
sequential, curriculum encompassing mathematical, reading and writing instruction. 

The C.E.P.S. program is designed for individual student use or use in a classroom setting. Programs provide optional 
printer capability, worksheet generation and performance monitoring, C,E,P.S. are available in two software formats. 

National Proficiency Series $1,299,00 

N,Y,S, Regents Competency Test, Preparation Series $1,299,00 

If desired separate Mathematics and Verbal packages are available for $799.00ea. A Spanish language version of the 
Mathematics Instruction Package is available at no extra charge. 

COLLEGE BOARD PREPARATION SERIES 81/82 ;?;™pf.^°"Sr" 

Each program confronts the user with a virtually limitless series of questions and answers. Each is based on past exams 
and presents material of the same level of difficulty and in the same form used in the S.AT. Scoring is provided in 
accordance with the formula used by College Boards. 

S.A.T,, P.S.A.T., NM.S.Q.T., set includes 25 programs covering Vocabulary, Word Relationships. Reading 
Comprehension, Sentence Completion, and Mathematics. Price $149.95 

EDUCATOR EDITION - includes all of the above programs plus detailed solutions and explanations. Price $229.95 
Independent Tests oi S.A.T. series performance show a mean total increase of 70 points in students' scores. 
Update Pack to 81/82 specs. Available to previous owners, Pf'ce $69.95 



ODYSSEY IN TIME 






■'^1^- 






v.- 



This spectacular adventure game adds a new dimension of 
excitement and complexity to Time Traveler. Players must now 
compete with the powerful and treacherous adversary in their 
exacting quest for victory. 

To succeed they must vanquish this adversary in combat that 
rages across 24 time periods. 

Odyssey In Time includes all the challenges of Time Traveler 

plus 10 additional eras, including those of Alexander the Great, 

Emperor Asoka of India, Atttia the Hun, Genghis Khan, Each 

game is unique, and may be interupted and saved for later play. 

available for APPLE & TR-80 PET, 32K - $39.95 




ISAAC NEWTON 

Perhaps the most fascinating and valuable ed- 
ucaiiona! game ever devised — ISAAC NEWTON 
(hallenges the players to assemble evidence and 
discern the underlying "Laws of Nature" thai have 
produced this eviden<e. ISAAC NEWTON is an 
inductive game thai allows players to intervene 
at ti\/ely by proposing experiments to determine if 
new data conform to the "Laws of Nature" in 
queslion. Players may set the level ot difficulty 
from simple lo fiendishly complex. 

In d classroom setting the instructor may elect to 
< hoose "Laws ot Nature" m accordance with the 
(omplete instfuclion nianual provided. 
For insight into some of ihe basii pnnciplps underlying 
iSAACNEWTONsff CODEL.ESCHER.BACHby Douglds 
R hoKldJIer.thdpipr XfyjndMdriinCardnersMATHE- 
MATICAl (jAMEScolumn in Sckntif it American. Onober. 
1977 and lune. 1959. S24 95. 



^A' 




TIME TRAVELER 

Confronts players with complei decision situations and 
the demand for real lime action. Using the Time Machine, 
players must face a challenging series of environments that 
include; The Athens of Pericles, Imperial Rome, 
Nebuchadnezzar's Babylon, Iklinaton's Egypt, Jerusalem at 
the lime of the crucifixion. The Crusades, Marhiavelli's 
Italy, The French Revolution, The American Revolution, 
and The English Civil War. Deal with Hitler's Third Reich, 
Vikings, eic. At the start of each game players may choose a 
level of difficulty ... the more difficult, the greater the time 
pressure. To succeed you must build alliances and struggle 
with the ruling powers. Each game is unique. 

$24.95 



l^ell Software Corp. 



Send S2.(K) lor complete Catalogue. 

SS.00 Discount Coupon included in Catalogue. 
PROGRAMS AVAILABLE FOR ^^ 

TRS-80 APPLE II & PET ^^^K ^^3^5 Send check or money order lo 

(unless otherwise indic.tedl ^^ 21 Milbiook Drive. Stony Brook, NY 11790 

Ddiik or ncdsselie {please specify) l^''^) ^51-5139 

AH D,ogfams regu-re )6K rRSM orog-ams f^qu^re tf VEL II BASIC APPLE ptogiami raQWB APPiESQi^T BASIC W^ S'a'e «es-De'>fs Aaa S./es r». 



.'See Lisl ol AOve'l'sers on page 386 



J 
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UTILITY 



An initial program loader for TRSDOS. 



Through-Boot 



Alan D. Smith 
P,0. Box 1 19 
Mortdale, N.S.W. 2223 
Australia 



One shortcoming of the 
TRS-80 disk system 
(TRSDOS) is the failure to pro- 
vide an initial Program Load 
(IPL) faciiity to take the user 
from power-up through to the 
desired Basic program without 
the need for numerous key- 
board entries. The Auto Func- 
tion with its one command 
timitalion fails to solve the 
problem. Uniess you happen to 
own, for example, Apparat's 
NEWDOS, you're stuck with a 
somewhat iengthy initialization 
sequence, particularly if load- 
ing I/O drivers. Out of such 
frustrations was born IPUBAS. 

IPUBAS 

IPUBAS is a Basic program 
suitable for TRSDOS systems 
of 16K RAM and upwards. It 
allows the user to create a com- 
mand tile tailored to suit a par- 
ticular IPL requirement. Each 
such file consists of a small 
machine language program 
plus the specified set of com- 
mands. For example, we might 
build a file called TAXIPUCMD. 
Entering TAXIPL after power-up 



(or setting Auto TAXIPL) might: 
might: 

•set Verify (ON); 

• load an I/O driver PRINT/ 
DVR; 

• load and execute Basic; 

• reply <ENTER> to How 
Many Files?; 

• reply 49000 to Memory 
Size? 

• and run program TAXySAS. 
TAXPASSil. 

All this without any further 
entries from the keyboard! 

Program Operation 

To use IPUBAS, key in the 
program and save to disk as 
IPUBAS; be especially careful 
copying the data statements, 
lines 50 through 80. Whenever 
you want to set up an IPL com- 
mand file, there are several 
steps to follow. 

Execute Basic and reply 
32511 to the Memory Size? 
query. (The command file is 
built in RAM starting at 32512 
(7F00 hex), so that area needs 
to be protected. In fact, IPU 
BAS will refuse to run if you 
haven't set the memory size 
correctly.) 

Run IPUBAS and when re- 
quested, key in the command 
set you require. Note that Enter 
should be typed as " + " ; for ex- 
ample, to build the TAXIPL file 
outlined in the previous section, 
you would type: 



VERIFY + LOAD PRINT/DVH + BASIC + + 
49000 + RUN'TAX/BAS. TAXPASS:r* + 

and then press Enter. 

The program will return to 
TRSDOS, and you then write 
the command file to disk using 
the DOS Dump command. In 



the case in question we would 
enter: 

DUMP TAXIPUCMD (START = X7F00', 
END = X7FBF',TRA = X7F00 ) 

The command file is now 
ready for use. 









Program Listing 1. 


7F0a 


K 




P'JSH 


HI 


Save KL 


TFiJl 


2A 1b 


40 


L3 


HL,(4016) 


iJet original 'riS irlver idilr 


7Fal4 


22 2E 


7F 


LD 


(7T2B),HL 


Sfli* it 


7707 


21 11 


7? 


LH 


KL,7?11 


Get Intercept adiresa 


7F((A 


22 lb 


40 


LL 


( 4!J 1 b ) , KL 


^tore in keyboard DCc 


7?0D 


El 




PCP 


Hi 


Restore HL 


7?0E 


CJ 2D 


40 


J? 


40^1:' 


Return to Tf.SlX)5 


7F11 


DD K 




PU^H 


II 


-a»B II 


fF15 


E5 




ilSK 


KL 


Save to. 


VFU 


2A 4t) 


7? 


LD 


!!L,l7?*o] 


j»t delnj count 


:f^■| 


YC 




LD 


A,H 




7P18 


BS 




CR 


L 


Count zero? 


/F19 


;;S a 




JR 


'i,■|?^■F 


Eranch if jes 


(FIB 


dii 




DEC 


KL 


Decrement delay count 


YFie 


kY 




XOR 


A 


Return .i'0?' to renuestor 


VFlO 


18 dlf 




JR 


/i-3F 




(F1F 


D3 21 


SH 1? 


LD 


IX, l?A8 


lolnt IX to co.inar.d aet 


7F21 


DD lY. 


00 


LD 


A, 1 11+00) 


Set next character 


7F26 


CB 7P 




BIT 


7, A 


la It the laBt7 


7F28 


2B 0A 




JR 


Z,7F31 


I) ranch If no 


7?2A 


21 m 


n 


LD 


.-1,00(30 


Restore KB driver aildreuB 


7F2P 


22 IS 


40 


LD 


{ 40 1 fa ) , HL 




7F50 


CB BF 




PJ.S 


7, A 


hcaet hi-or^er tit of last 


7P32 


ie 0^ 




:r 


7F42 




7FJ4 


21 25 


7F 


LD 


HL,7y25 


l;pd;ite oharac-.er pcmter 


7F37 


54 




ISC 


(HL) 




7F;g 


FE 0iJ 




CI 


0D 


<E?>r-r.:i)7 


7FiA 


2i 06 




.'R 


::.; , 7t 42 


fcranrh if no 


7P3C 


21 00 0^ 


Li: 


HL.0500 


heset delay count to iiiluun 


7F)r 


22 46 


7F 


LD 


[7F46),KL 


Store upCEtad count 


71-42 


£1 




FCi 


;-iL 


Re.itc-e HL 


7F4; 


DC El 




PCP 


i>: 


.■'.-.sior* ;y. 


7F45 


eg 




'nSl 




heturn to re-upstor 


7f4£ 


M n 








Ol-4y count; 


7F48 










(:o-aand a..t starts h'.re; 
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Expensive 




EXPENSIVE- The LNW 

Systi'm Expansion II cumes with a 
full 32K ui" 200ns KAM, and buiK m " •' 
RS232c 20 MA curreni loup serial interface. 
That's for starters- Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-4 glass epoxy circuit fK^ard with 
itolder mask and silk scrieen legends. Then there is 
the {iaraliel printer tK)rt, screen printer port, reiil 
time tktck, and extra heavy duly onboard power 
supply with over curreni protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MH7. CPt) speed and 
our 6 month warranty. Every one of these features 
^ STANDARD. This is true system expansion. 
You get every •expensive" feature without 
spending more. 

CHEAP - Our price is 53^^95- Any way you 
compare, features or price, LNW's Syxtem 
Exponsion U is the clear winner. The LNW 
System has been field tested lor over two years 
with thousands of users. It works with any DOS. is 
100' , THS-80 Model \ compatible and it works 
'right out of the >>os'. If there is any doubi in your 
mind as to whether ytni .should b-uy ours or the 
■otht-r guys', just ask an LNW owner! 

WE ARE #/ - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive" features and quahty at 
reasonable prices. LNW is committed to support. 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tust in, CA. 92680 
[714) &41-8850 1714) 544-5744 



made us the number one 
manufaciurer :^ of system expansion units 
and act-essories for the MtKiell coniputer. 

EXPANSION OPTION - S-mch drivt- capability 
is as easy as plugging in the LNlh/uhler 5/8 
option*. Now you can have any combination of 
single- or double di^nsify. single- or d'njhle-stded, 
8"* and/or 5" disks on-line! H-inch disk storage 
increaicd to .S9! .360 bytes -- 77-track Hin^te-sided, 
double-density or 1,182,720 bytes - 77-irafk 
double -density, double-sided. 

The LNDouhler'a unique 5/8 switch allows you 
to tKKit from 5- or H inch sy.'-tem disks and it's 
acuessibk from outside the inlerface. The $219^ 
LNIhmbter 5/8 ctjmes with a double-density disk 
operating sys^lem (DOS+ 3.3.9). campSetf with 
BASIC and utility pntgranis .. ready to run your 
software. 

Each of your present 40-irack. single -.sided o-inch 
drives will store up to 184,320 bytes (formatted 
storage! - that's an Hf)% increase in storai^e 
capacity tor only half the co>t of just one disk. 
drive. With three 8-inch double density, 
double-sided drives your Model 1 will have 3.7.'t 
Megabytes of online storage - that's more sturrtt^e 
thanaM(-di-nior M.KleiUl' 



■«" dint- opvialiun rrnui 







RAM $18.99 



OWE VEAR GUARANTEE. INCLUDES RAM TEST AND INSTRUCTIONS 

Prtmium 16K nigh speed ram fo' TBS-BO MODEL MM. and COLOR COMPUTER 
MODEL 1 owners add 2 00 lor 2 dip shuils 

COLOR COMPUTER SOFTWARE 

SUPER "COLOR" WRITER 
At last" Fast, 'jII fealgreO. chafacier □nenieO *ora processing (or the TRS-SOTM 
COLOR COMPUTER anO any printer FEATURES • 32K compatible • choice of 
display color ■ key beep • help command • words typed S words left • laD key • 
repeal key • word wrap aroynd • Clock move * duplicate A delete • global search « 
replace • quick paging • paragraph scrollinQ • line scrolling 

SPECIAL FEATURES automatic linking of cassette text tiles (or hands-otf 
continuous printlnfl • unique movable window (or viewing any part ol the tent 

PRINT FEATURES send printer control codes, along with text, to printer • lull use 
ot printers special features during normal pnnling • set margins, line length, line 
spacing, page length, and page spacing within the text lof contmuous printing • 
automatic cenlefing • right lustitrcation ■ page numbers & titles 
TAPE- S29-95 ROMPAK- $39 95 DISK «9.95 

'Tapa I/O only, nol disk compatible. 

SUPER "COLOR" TERMINAL all the (ealuies ot VIDEOTE^TM and rrvore' Altows 
COLOR COMPUTER to communicate with computers like TRS-80 MODEL IIUI S 
APPLE II etc services like COMPUSERVE via MODEM or RS232 DIRECT' Features 

• upload A download basic programs • punt oi save data to tape • half A lull Ouplei 
DOCUMENTATION t TAPE $24.95 ROM PAK $34.95 

SUPER "COLOR" BUG examine & change memory contents m the color computer 

• step video display to any location including ROM • look at contents of 
HOMPACKS! • access high res graphics 5 create & debug machine language 
programs. TAPE AND DOCUMENTATION $16-95 
SUPER "COLOR" SKETCHER turns the color computer into a drawing board. 
Supports 32K ram • save and load graphics lo tape • create basic graphics 
programs ■ print graphics lo R S LPVIi. EPSON WX 30 

TAPEANO DOCUMENTATION $19.95 

GAMES 

KtODEL III 1 1 16K AND COLOR COMPUTER EXT/BAS. 
FEATURE OUALITr GRAPHICS AND SOUND* 
ADVEMTURE3-PAK TAPE$24.95 

This TRILOGV OF 3D FANTASY GAMES takes you to the WORLD UNDER THE 
CIMEEON MOON. Engage in ritual combat with tooarroath. narinokt monsters 
and skilled warriors Advance in rank with play experience Ther, adventure throjgh 
DAZMAR'S UNDERWORLD OF DOOM to Ihe forbidden rums o( castle argaan 
Search tor the eye o( dammar while avoiding the so:ceror s intricate traps Survivors 
musi then negotiate Ireacherous trails among the perilous peaks o( Ihe ugreh 
moulams lo the FORSAKEN GULTCH where the wicked idol awaits restoration 

VEGAS SPAK TAPE $19.95 

The THRILLS OF A VEGAS CASINO al home Five action packed Vega^ games for 
up to (our players. CASINO CRAPS '21 • ONE ARMED BANDIT • UP & DOWN THE 
RIVER • KENO Bank tracks players' winnings Irom game to game * realistic cards 
• regulation laDles • boards • aulhenlrc sounds • lively graphics • odicial rules in 
each game 

COMBAT 3-PAK TAPE $24,95 

Three action packed two player garnes featuring lifelike graphics and sound ol 
LASER FIRE, CANNONS and PHOTON TORPEDOES 

2.H) TANK COMBAT five terrains • the experienced arcade player can design 
corrbal scenario STELLAR BATTLE pilot a (le« wing hghter al incredible speeds in 
enemy space taking ou; dorian tye iighiers defending the imperial star fortress 
GALACTIC BLOCKADE maneuver your crad in a course thai boxes your opponent 
but avoid cosmic debns and hosiiie space probes' 

MODEL III /I SOFTWARE 

REQUIRES 16K (MODEL III OR LEVEL II BASIC 
READ THIS! Add graphics to your programs in minutes or draw schematics, 
graphs, logos, pictures, etc with graphics and lettering & save them as 
subfoulines or programs^ SUPER SKETCHER does more and works lust like a text 
editor with graphics • image frames can be eOited and animated on screen • 
generate, load & save graphics basic subroutines & programs ■ includes EPSON 
MX-30 S R S LPVII graphics screen p-mt driver and rnore 

TAPE (TAPE l/0)$14.95 DISK (DISK AND TAPE l/0| $19 95 

SUPER WRITER word processing that combines the best 'eatL-es of other gooo 
word processois and those ot ine SUPER COLOR WRITER including automatic 
tape ol disk file linking and tne ma. able window feature except BVV display See 
SUPER -COLOR ■ WHITER (or oeia.is' MODEL I LH -^eeds iower Lase mod 
MODEL Ill/I TAPE 4 DOCUMENTATION $49.95 DISK $59.95 

AUTOMATIC MENU SYSTEM power up and automenu lakes over Execute 
programs and command dies, or LIST. LOAD, enter DEBUG, BASIC or IRSDOS 
with single keystrokei Features options menu with library of commands 
MODEL III DISK & DOCUMENTATION $12.95 

CODES for THE ELECTRIC PENCIL enter printer control codes wilhin lext file to 

send lo smart printers Includes drivers (or EPSON MX 80. CENTRONICS 737. MPI 

SERIES, and file to cusloniiie for other printers TAPE $14.95 

DISK INVENTORY for Ihe MODEL III manage your disk prog-ams A menu Oiiven 
utility featuring sod & print by name disk, program type extension etc 
MODEL III DISK $19.95 

TRS-ao IS a ReQislered Tratlemark of Tandy Corp 

Master Charge VtSA and COD 

accepted 

Allow additional 2 weeks for 

personal checks 

When srdering specify computer t,pe 

Ado 13 00 Shipping & handling 

MN Re& add 5% sales tax 




nELsan 

P.O. Box 19096 612/927-0511 
Minneapolis, Minn. 55419 



IB CLS rCLEABJBB iDEFINT C.X.Y 

2i QUS-CHRS134) :MXS'"MAXIf(UH 12B" : DES'"BASIC*->-«RUN' tOUS 

}0 IF PE£KttH4eBl) • PELK(kH4BB2)*256 < (4H7EfEl THEM 90 : REM CI! 

ECK HEHStZE 

<9 PHINTg 458, ■•■ MEMORY SIZE tKIT SET • 32511 OB LOWER - HUN 

ABORTED •*■ :END 

SB UATR 229,42,22,64,34,43,127,33,17,127,34,22,64,225,195,45,64, 

221 

bB DATA 2 29, 229, 42, 7B, 127, 124, 1 81, 4B, 4, 41, 17 5, 24. 32, 2 2 1,33, 7 2,1 2 

7,221 

7B PATA 126, a, 2)3, 127, 4B, 10, 33, e,B, 34, 22, 64, 2B3, 191, 24, 14, 33, 37 

BB PATA 127,52,254,13,32,6,33,0,5,34,78,127 ,225, 221, 225,281, B,B 

9B FOR X-(iH7t'eB) TO (4ii7t-471 :RKAU ¥ :POK£ A,Y : NEXTX :REH POKE 

MflCH LANG PHOt. 
IBB Y^l iCQSUll JBB 

IIB PRINT "THIS PKOUHAH CREATES AN AUTOMATIC DOS IPL ROUTINE , B 
y BUILPINC" 

128 PRINT -IT IN RAN BETWEEN 7fBfl k 7FBF THE DOS 'DUM 

P ' COMMAND" 

13a PRINT "IS THEN USED TO OUTPUT IT TO DISK AS A i.:CM!'.AND ( '/CM 

D' 1 FILE." 

148 Y-13 :OOSUB 380 

15B PRINT "USER MUST SUPPLY THE COMMAND SET TO BE USED AFTER BOO 

TING DOS ;■ 

168 PRIST -ANY EMBEDDED <ENTER''£ SHOULD BL CODED AS '♦' - FOB 

EXAMPLE ,■ 
17e PRINT "THE DEfAULT OPTION i SUPPLIED If YOU SIMPLY HIT <ENTE 
R> 1 IS :-" 
laa PRINT TAB(221 DES 
198 Y=2B :GOSUB 3BB 

2BB PRINT 'SOW TYPE COMMAND SET ( ■ ; «XS; " CHARACTERS - AS MAR 
KED ) :-■ 

21B PRINT? 768, CHRS(31) ;STHINGSI12a,"."l ; ■t--LIMIT-; ;PRINTS 76 
B,; 

22B LINEINPUT CSS :IF CS$-"' THEN CSS-DES 

230 CS=LEN(CSS) -IF CS<121 THEN CLS iPHINTg 384,: ; GOTO 29B 
24B FOR X=l TO U :REM REMIND USER OF MAX 120 
250 PRINT? 664, STRINGSIll," '); :GOSUB 280 

260 PRINT? 664, MXS; :COKL'B 2flB 

270 NEXTX iGOTO 21B 

2B0 FOB Y-1 TO 153 :NEXTY :RETURN : REM DELAY LOOP 
290 FOR X-1 TO CH 

3BB CH'ASC[HIDS(CSS,X,11) ;1F CH.43 THEN CH=11 iREM •*"-<CN> 

31B IF X«CS THEN CH-CH OR (kHBBJ :REM SET HI-ORD BIT ON LAST 

320 POKE *H7F47*X,CH :REH POKE SUPPLIED COMMAND SET 

33B NEXTX 

J4B PRINT "•*• SOU TYPE THE FOLLOWING DOS COMMAND , EXACTLY AS S 
HOWN :- ""; 

350 PRINT •••• i THE FII.ESPEC 'IPL/CKD' KAY BE VARIED AND/OR EKP 
ANDED ) •*•" 
3 6B PRINT "DUMP IPL/CMD 1 START 'X '7FBe' ,END^X'7FBF- ,TRA-X"7Ffli' ) " 

37B CKD'S" :R!:m RETURN TO THSDOS 

3S0 PRINT : FOR X-B TO 127 :SET (X.YI : NEXTX :RtTUHN 



Program Listing 2 



Points to Note 

There are several points to 
remember about this program. 

The maximum length of a 
command set is 120 char- 
acters—usually more than 
enough, but you can, if neces- 
sary, chain command files 
under DOS, i.e., have one invoke 
another. 

You cannot use a command 
file to reply to Input. Line input, 
or INKEYS statements con- 
tained within a Basic program- 
When running IPL/BAS, 
simply pressing Enter without 
typing a command set provides 
a default of Basic+ + +run" 
(i.e. load and execute Basic, 
reply Enter to the How Many 
Files? and Memory Size? 
queries, and then type Run. 
This allows the user to manual- 
ly key in the name of the pro- 
gram to be run) 

For Assembler/Machine 
Language Buffs 

Command files each contain 
a 72-byte program in Listing 1, 
which is POKEd into RAM be- 



tween X7F00' and X'7F47 . The 
specified command set is 
POKEd into the next 120 bytes 
(X7F48' to X7FBF'). The area 
above X 7FBF' is not used, be- 
cause it is overwritten on entry 
to Basic on a 16K machine. 

On initial entry, the keyboard 
driver address al X'40167 
X'4017' in Ihe device control 
block is replaced by an inter- 
cept which effectively reroutes 
all subsequent keyboard re- 
quests to X7F1 1 '. The intercept 
routine at that address then 
passes the command set. one 
byte at a time, to the requestor 
(DOS or Basic). Before passing 
the last byte (identified by hav- 
ing bit seven set), the keyboard 
driver address is restored to its 
original value, thereby dis- 
abling the intercept and restor- 
ing the keyboard to normal 
operation The delay loop 
prevents potential problems 
with functions that scan for 
Break during execution, as well 
as providing a little more time 
for you TO observe what is 
happeninglH 
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A MAJOR 

BREAKTHRV FOR 

Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 
of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphir display 

• Modify any element in circuit for desired 
results 



A complete opcrslicmal 

manual supplied 
comparable to IBM '$ 

EC A P ' Program 
•A C Analysis Program 

J/49 95 
•D C Analysis Program 



Tc.Onlrr Wrilr 

G ft L Software Enterp. 
2304 N. lat. Street 
Upland. CA 917S6 




Do Not Send Cash in the Mail 



TRSVO i*jir4a*mjtfc..tltirTjinl*l "fp f « A »• ■•.dU^ilcni^rliol lnirm«tiiinalj 




■■•''"%r<5 



21^^ 



VOS' • 



*<5 



w 



Att 



Tv^^^ 



iJ.^ 



s^^: 



'^,^'.^''*'r.>^. 



,vrt«* ,v»'=%>l>« 



tt.vC«'^""* 



WHATS THE BEST WOHO??? 

How many times have you racked your bfain (or just the right worti 
whfln *filmg an i:nporlan! letter, report, or article'' How many times have 
vou' ideas Oeen misunderstood because the words you used didn't express 
you' Ihouflhis clearly and accurately'' How many times have your turned in 
a lepon Oi mailed an imDorlanl letter and then hours later kicked vof'self 
to* r^ot fiaving Ihougrii or the Desr and moSI accurate words to use at the 
lime you wrote il 

Now Qy using 1)>e remarkaOie new REFWARE THESAURUS programs. 
your computer can speedily tind tnose words thai are on the lip o1 your 
tongue but that you can't quite remember at the moment. And it tells you 
how to spell them' 

Just slip a REFWARE THESAURUS disk inio your disk drive Then type 
to your sentences or paragfaphs The computer wHI quickly otter a variety 
ol alternatives, retyping your sentences or paragraphs with substitute 
possiDilities chosen trom its multi-thousand woid vocabulary II displays 
the revised senter>ces on your monitor oi types them on your printer as you 
Choose, so that you can mull them over and choose the one that most ac 
curately expfesses what you REALLY mean to say. 

Having helped thousands of writers learn to express themselves with 
clarity as editor ol such ;)ublicalions as the World Book Encyclopedia, the 
Encyclopedia Americana, and the Header's Digest Almanac and Yearbook, 
Oavid C Whitney has drawn on decades ol editorial experience to prepare 
the 'evolutionary REFWARE THESAURUS programs, bringing the speed 
and power ot the computer to itie atd oi anyone who wishes to impfove hts 
W(ilir)g or speaking 

In addition to the specific programs capable ol substituting suggested 
alternate words tor noijns and adieclives, REFWARE THESAURUS Builder 
enables engineers, physicians, lawyers, educators, business, physicists. 
Chemists, and other professionals and specialists to develop their own in- 
dividually tailored computer vocabularies ot hard-Io remember technical 
words 

REFWARE THESAURUS Builder 1.0 Order No 5001 RT S148.iS 

Senes o* eight utility programs enables the user to develop specialized 
computer thesaurus disk programs ot hard to rememt>er technical words 
and their alternates 'or personal use Functions independently o' Adjec- 
tives and Nouns programs 

REFWARE THESAURUS Nourts 1.0 OrdsfNo 2001RT t39.H 

Draws on a vocabulary o' 6.?00 nouns to suggest aiternales lor the names 
ol persons, places, things, and ideas thai you use in your witting ar>d 
speaKing 

REFWARE THESAURUS Adjecttve* 1 .0 O'Oer No. lOOlRT S3fl.95 

Utilizes 6,200 adjectives to assist you in choosing the most accurate 
modifiers to describe nouns and pronouns In youf letters, reports, and 
speeches 

REFWARE THESAURUS Uteri Manuel OrderNo 6001RT tS.M 

Complete descripiion ol use of each of the above programs. Included at no 
additional charge with each ol program disks listed above tl ordered 
separately, price ol documentation is refundable upon receipt ol order and 
payment for program disk. 

MINIMUM System Raqulrwl TRS W Mod I Oi Mod III 48K with two disk dfives. 
' A Trademark of Tandy Corporation 



REFWARE* Reference soliwara division DavidC Whiinoy Associates. Inc 

PC BoxMi.Chappaqua.N.Y lOSW .^374 

' A fademartc ol Oavid C Whitney Associates, fnc 



O'dei No. 



Title 



Unit Price 



Total 



Sales tai IN Y state leside.ils only) 
Postage and handling 

EfKlosedS I (Check i iMoievO'der TOTAL 

8<il ( I Visa I I Masie'Ciiaige 



S 200 



Card » 

Exp Date interDank « , 

Signature ■■ - 

tJame -. RwiWt l- 

Address 



City State Zip 

Mailed First Class tiul atlow 3 to * weeks tc delivery no C O D orders 




'Sm Lfsl et Aa<f0rtis»rt on ptg* 396 
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APPLICATION 



Will you have enough water when you need it most? 



Firestream 



George L. Gille 
220 Clayton 
Maryville. MO 64468 



To operate effectively, fire 
hose must be supplied with 
the right amount of water under 
the correct pressure. The 
TRS-80 Level II Basic program 
descrrbed here -A/as created to 
calculate the tire engine pump 
mg pressure needed to effec- 
tively supply water to a wide 
variety of firestreams {The fire- 
stream is the entire water sup 
ply system, including the water 
source, the tire engine pump, 
the fire hose and the nozzle ) t 
constructed the program as a 
training tool tor volunteer 
firemen. 

The FIrestraam 

Firestreams are defined in 
terms of their volume of water 
flow in gallons per minute 
(GPM), and the operational 
pressure of the nozzle in 
pounds per square inch (PSI). 
Operational pressure is the 
velocity of the water flowing 
through the fire hose. The 



volume of water used Is a func- 
tion of the size of the fire hose 
and the pressure at which it is 
operating. 

The type of fire hose nozzle 
used dictates the volume of 
water flow and the pressure 
which the firestream must sup- 
ply. Pump operators must be 
able to adjust the outoing pres- 
sure of their pump to meet the 
requirements of the nozzles 
they are supplying with water. 
They are able to determine the 
correct pressure by knowing 
the characteristics of the fire- 
stream they are operating. 

Nozzle Characteristics 

Fog nozzles and solid stream 
nozzles are used in fire fighting. 
Fog nozzles produce fast mov- 
ing jets of water that divide into 
drops with a definite cloud 
shape. They must be supplied 
with water pressure between 80 
and 100 PSI. The volume of 
water put out by fog nozzles is 
determined by the design of the 
nozzle and the size of the fire 
hose to which it is attached. 

The volume put out by solid 
stream nozzles may be cal- 
culated by the equation: 

Nozzl6 0utpiJl(GPM) = 297.0^- v' P 

is the nozzle tip diameter In 

inches and P is the water 
pressure (PSI) at the nozzle. 



Solid stream nozzles usually 
operate at pressures between 
40 and 60 PSI 

Pressure Losses 

Pressure at the nozzle end of 

the firestream is always less 
than that measured at the 
pump, due primarily to these 
three factors: 

•The difference in height be- 
tween the pump and the nozzle, 
•The water flow resistance pro 
duced by valves and stream 
splitters (wyes), 

•The friction between the water 
flowing through the hose and 
the walls of the fire hose. The 
tire engme pump operator must 
be able to calculate these pres- 
sure losses to correctly set the 
output pressure of the pump. 

Pressure loss due to a dif- 
ference in height between the 
pump and the nozzle usually 
happens when a fire occurs in 
the upper floors of a building. 
The pressure loss is one PSI for 
each 2,3 feet the water is moved 
atjove the pump. When pump- 
ing the firestream downhill, 
there will be a one PSI increase 
in pressure for each 2.3 feet dif- 
ference in height. 

If the firestream Is split into 
two or more smaller streams 
with the use ot a wye connec- 
tion a pressure loss of 5 PSI is 
assigned for each wye in the 
firestream. 



To determine pressure losses 
due to friction the fire service 
uses 2Vi inch diameter fire hose 
which is 100 feet long as the 
standard for calculation. To cal- 
culate the friction pressure 
losses in hoses with other di- 
ameters, determine the volume 
of water flow (Q) in hundreds of 
gallons per minute: 



Q = 



Nozzig Outpul In GPM 

100 



The friction pressure loss per 
100 feet of hose is then 
calculated by the equation: 

FL = (2Q'«Ql . HF 

HF is the fire hose diameter 
adjustment factor and FL is the 
friction pressure loss in PSI. 
The HF would have a value of 
1.0 when the friction loss for 
2V2 inch diameter tire hose is 
being calculated. The above 
equation is used when flow 
rates are greater than or equal 
to 100 GPM- If the flow rate In 
the firestream is less than 100 
GPNfl. the equation for the 
calculation of the friction loss 
becomes: 

FL = (2Q2 + WQ) . HF 

This change In the equation is 
another adjustment for hose 
sizes less than 2Vt inches in 
diameter. 

Once the friction pressure 
loss for 1 00 feet of fire hose has 
been calculated, the total fric- 
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tion pressure loss may be 
determined by multiplying the 
calculated friction loss by the 
total length of fire hose in the 
fireslream and dividing by 100. 
Note that the friction loss of 
each different diameter fire 
hose must be calculated 
separately. 

The total pressure loss in the 
fireslream is the sum of the 
pressure losses for friction, 
height differences, and wye 
connections. After making the 
above calculations, the pump 
operator sets the pump output 
pressure for a value equal to 
the nozzle operational pressure 
plus the total pressure loss in 
the firestream. 

Sample Problem 

A fire is located about 20 feet 



above the street on the third 
floor of a building. The fire 
engine is located at a fire 
hydrant 500 feet down the 
street. The firemen have used 
600 feet of hose to reach the 
third floor. At the third floor the 
hose is spilt into two 150 foot 
long, IVj-inch diameter hoses, 
with a 1 Vi inch fog nozzle at the 
end of each of the hoses. The in- 
put into the computer program 
and the solution can be seen in 
Fig. 2. 

This firestream would re- 
quire a pumping pressure of 
190 PSl to supply the two IVi 
inch fog nozzles with a pres- 
sure of 100 PSl. You can see 
how this program simplifies the 
calculation of a proper pump- 
ing pressure in various situa- 
tions. ■ 



Firestream Program Listing. 



le CLEAR 10BII:CLS:PRINT STBINGSie4 ,1911 

Zfl DIM HS171 ,HF(7) ,NS(S) ,HV[5,2) ,BT(3,2) ,CT{3,!) 

10 PRINT TAB(311 ; "VOLUNTEEB FIRE FIGHTER" ! PRINT ! PRI KT TABdSlp"* 

• FIRE STREAM HYDRAULICS **■ 

40 FOR I-l TO 7: READ HSIH -HFIII : SEXT I 

5B FOR 1 = 1 TO ^:READ NS ( I) , tJVfl > D ,NV U . 2) : NEXT I 

6B PRINTiPRlNT STRINGS(6<, 191) :PRINT TAB[31) I'BVsPRINT TAB(24I; 

■GEORGE L. GILLE":PRINT TAB! 23 ) j "VOLUNTEER FIREMAN' i PRINT T*B[22 

) i'MARYVILLE, MISSOURI " :PHI NT: PRINT STRING; (64 ,191 ) 

IB FOR I-l TO 70BiAS'INKEYS:NEXr 1 

BE CLSiPRiNT'THE METHODS OF FIRE STREAK HYDRAULICS CALCULATIONS 

AND DATA IN" : PRINT'THIS PRtXiRAM WAS TfrKEN FROMi'sPRINT 

90 PBINT"ItJTERNATIONAL FIRE SERVICE TRAINING ASSOCI ATION ' 1 PRI NT" 

MANUAL NUMBER 201' 

IHfl PRINT-FIRE SERVICE PRACTICES FOR VOLUNTEER FIRE DEPARTMENTS' 

IIB PRINT-FIFTH EDITION: 1971 ' i PRINT:GOSUB 73B 

129 CLSiPRINT-PROGRAM DISCRIPTION; " : PRINT'THIS PROGRAM CALCULATE 
S THE ENGIN PRESSURE NECESSARY TO ALLOW" 

130 PBIKT"A FIRE STREAM TO OPERATE PROPERTLY. THE PROGRAM ASSUME 
S THAT':FRINT-TH£ FIRE STREAM IS SET UP AS A REVERSE LAY, WITH T 
HE ENGIN AT" 

He PBINT'THE ENGIN AT THE HYDRANT PUMPING WATER TO THE FIRE SCE 

EN OR':PRINT"PUMPING FROM A RESERVE TANR.":PRINT 

l^e PRINT"YOU ENTER THE TYPE OF FIRE STREAM, STARTING AT THE PUM 

PrNG"iPRINT"ENG!N AND ENDING AT THE NOZZLE. THE FIRE STREAM KAY 

BE SPLIT" 

168 PRINT'WITH THE USE OF A WY£.":PRINT 

17B PR1NT"ALL WYED FIRE STREAMS ARE ASSUMED TO END IN THE SAME T 

¥PE OF ":PRINT"NOZZLE" tGOSUB 73a 

IBB CLS-.PRINT"ENTER THE DIFFERENCE IN ELEVATION BETWEEN THE ENGI 

N AND THE":PRiNT*H0Z2LE OH NOZZLES IN FEET,' 

190 PHINT:PRINT*NOTE: YOU CAN ASSUME EACH STORY OF A BUILDING IS 

19 FEET.":PBINT 
!flB INPL'T'DIFFEBENCE IN ELEVATION <FEET> i^"; EL;EL»EL/2.3 
;ia K-1:CLS:PBINT"N0W WE BEGIN TO ENTER THE NATURE OF THE FIRE S 
TREAM. " [PRINT 

32a PRINT'NOTE: THE FIRE STREAM IE RESTRICTED TO TWD WYE CONECTI 
ONS WITH':PR1NT"A MAXIMUM OF THREE PROGRESSIVE HOSE SIZES.' 
23B PRINT:PRINT*LET'S BEGIN M 1 "; PRINT:GOSUB 73a 

24B CLS:PR1NT'ENTER THE TYPE OF HOSE :': PRINT: PRINT'NUMBEB TYPE 
F HOSE"!PRINT STBINGS:64,HB| 
25B IF K-1 THEN 2Sa 

26B FDR I-l TO (K-ljiPRINT ( fiT( I > 2) *ieB) ; " FEET OP " iHS(HTl I . D ) 
l' HOSE ALREADY ENTERED" : NEXT I 
27a PRINT STRINGS(63,14B) 
IBB FOP I-l TO 7;1F K-1 THEM 321 
29B FOR J-J TO 3 
3Be IF HT(J,11-I THEN 338 
310 NEXT J 

32B PRINT' "ill* - 'jHSdli* HOSE' 
330 NEXT I 

340 PRINT STBIHGS(63,14B1 :IHPUT"ENTER THE NUMBER HOSE TYPEi ' , HT 
(K,l) .PPINTilF HTiR,l)>7 OR HT|K,il<l THEN PRINT"**** ERROR **'* 
'iGOSUB TBBiGOTO 24B 
350 IF K-1 THEN 390 

360 FOR L-1 TO K-1:IF HT ( L, 1 ) >HT[K , 1 ) THEN 380 

37fl PRINT'YOU ARE INCREASING HOSE SI ZE 1 I N 1 ' :PRINT: PRINT'PLEASE 
ENTER AGAIN. VGOSUB 73B:GOTO 240 
3 80 NEXT L 

39B PRINT'ENTEH THE FEET OF " i HS [HT iK , 1 11 j * HOSE" i PHI NT'IN THE F 
IRE STREAM. "iPHINT 

tB0 INPUT-FEET OF HOSE = " ; HT( K , 2) : HT |R , 2) -HT(K, 2)/iaB 
410 CLStPRINT-ENTER type of CONNECTOR AT END OF THE 'jHS(HT(K,l) 
) ; " HOSE: - : PRINT 

420 PRINT-NUMBER TYPE OF HOSE CONNECTOR' : PRINT STRINGS (64 , 140) 
439 FOR 1=1 TO SiPRINT- -;I;- = -iNS|I):NEXT I 

44a PRINT BTPINGS(64,140) :INPUT"ENTEB THE NUMBER OF THE CONNECTO 
H TYPE 'iCTIK.DiIF CT(K,n>5 OR CT(K,))<1 THEN PRINT"*** ERROR 

Program continues 




BASIC is '' not nearly as slow- 
as most programmers ihink. 

BASIC Faster and Becter shows you how to 
supercharge your BASIC with 300 pages of 
fast, functions and 
subroutines. 

You won't find any trivial poorly designed 
'check-book balancing' programs in this 
book- it's packed with useful programs 

Tutorial for the beginner, instructive for 
the advanced, and invaluable for the pro- 
fessional, this book doesn't just talk, . . it 
shows how! All routines are also available on 
disk, so that you can save hours of 
keyboardmg and debuggmg. 

The # I disk BFBDEM contains <ill the 
demonstration programs, and #2 BFBLIB has 
all the library functions. 

BASIC Fosters Better is S29 95, and the two 
program disks are 319.95 each. 
Get the book and/or disks from your local 
IJG dealer and B. Dalton bookstores. 



ira 



•See i<si ol AdvefUr,efs on page 386 



1260 W. Foothill Blvd. 

Upland, California 91786 

{714} 946-5805 
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Make 
waues 
in the 
German 

computer 

market! 



o 



Advertise in 

CHIP 



The German-language computer market has an excep- 
tional sales potential. CHIP, the leading German 
magazine for desktop computers will help you to make 
this market your own. Over 65% of the CHIP readership 
deals with computers in their business or profession. In 
addition, the CHIP audience has made computing a hob- 
by for which it is willing to spend money. The German 
market for personal computing has grown by leaps and 
bounds since CHIP first appeared in 1978— proven by its 
paid circulation of 62,913". Get yourself into the Euro- 
pean market today by advertising in CHIP. 

■|VW Auditing (ABC equivalent), 2nd quarler 1981. 



^^ 



TAKE ADVANTAGE OF THE BEST 
EXCHANGE RATES IN YEARS! 



For further information on advertis- 
ing, mechanicai requirements and ciosing 
dates cali: 

Piergiorgio Saluti 

International Advertising Representative 

603-924-7138 




Q 



WAYNE GREEN INC 
Peterborough, N.H, 03458 



Program continued 

•••*'!GOStlB MBiGOTO 418 
458 IF K=3 AND CT(K,1)=5 PRINT'HUST END IN ft NOZZLE" : PRINT'PLEAS 
E ENTER AGAIN'jGOSUB VSBiGOTO 41B 
460 If K-3 THEN 488 

478 IF CTIKjll-^S THEN K»K+1;CLS-. PRINT'ENTEB NEXT HOSE'iGOSUB 738 
.GOTO 248 

480 IF CT(K,1)<>4 THEN 55B 

490 CLSlPBINT'PLEASE ENTER THE REQUESTED CHARACTERISTICS OF THE 
SOLID STREAM":PBINT"NOZZLE ON THE " , HS |HT(K ,1) ] ! " HOSE.":PRINT 
508 INPUT"ENTER THE OPERATION PRESSURE OF NOZZLE IN P.S.1,";P 
510 IF P>B8 OH P<5e THEN PRINT*'** ERROR *** PRESSURE OUT OF USU 
AL OPERATION RANGE *••* ;PBINT"PLEASE RECONSIDER' iGOSUB 738!GOTO 
498 

520 INPUT'ENTER TIP DIAMETER IN INCHES AS A DECIflAL'jD 
530 Pl-SQRIP) !GP=29,7*D*D'Pl!PHINT"NOZZLE FLOW RATE - '|GP;" G.P 
.M.":GOSUB 738 
540 GOTO 568 

550 P-NV(CT(K>1) ,1) :GP«NV(CT1K,1] .2) 
560 WP-5'(K-1) :O-GP/10e 

570 G1-GP:GP=GP*( 1K-1)'2) :IF GP<-8 THEN GP-Gl 
580 FF-lilF GP<1B0 THEN FF=0.5 
598 FOR I-l TO K 

600 CT1I,21=.HF[HT(I,1) )•( ( 2'0'0) +FF*Q1 •HT(I,2) 
618 TL-TL*CT(I,21 
628 NEXT I 
638 EP-P«TL+WP*EL 

640 CLS:PRINT"FOR OPERATION OF A " i NS [CT (K, 1) ) f " NOZZLE "iPRINT" 
AT "iPi" P.S.I." :PBINT"NOZZLE FLOW = "iGlj* GPH' : PRINT'FIRE STRE 
AH FLOW - ")GP;' GPM" 

650 PRINT'ENGIN PREESlli^ HFQUIRED = "(EP)" P. S. I , * t PRINT: PRIKT'F 
RICTION LOSSES: ":PRINT STRING? (63 , 140) 
668 PRINT* ELEVATION LOSS = "jEL;" P.S.I." 
670 PRINT" WYE LOSS - ";HP;" P.S.I." 
680 FOR 1=1 TO K 

690 PRINT- ■; (HT(I,2)*1B0) ;■ FT. OF " jHS (HT(I , 1) ) I " = "iCT(I,2) 
;" P.S.I." 
700 NEXT I 
710 GOSUB 7 38 
720 GOTO 83B 

730 INPUT"<PRESS ENTER>";QS:RETURN 

740 DATA *! INCH RUBBER* , 91 , '1-1/2 INCH RUBBER LINED", 13 
750 DATA '2-1/2 INCH RUBBER LINED", I, "J INCH RUBBER LINED" , B . 3B5 

768 DATA '4 INCH RUBBER LINED" , 8 .09 , "4-1/2 INCH RUBBER LINED", B. 

851 

770 DATA "5 INCH RUBBER LINED", B. 031 

780 DATA "1 IN. HOSE FOG NOZZLE' ,50 , 38 

790 DATA "1-1/2 IN. HOSE FOG NOZZLE" , 1 80 , I0B 

8B0 DATA "2-1/2 IN. HOSE FOG NOZZLE' ,108 , 250 

818 DATA "SOLID STREAK NOZZLE', 0,8 

828 DATA 'WYE-, 5, 8 

838 CLS!PHINT*MEMORY = "(MEH:END 



HOW ACCEL2 WORKS 

TRS-80 Model I/Ill BASIC Compiler 

ACCEL2 uses a novel Iranslalion technique Ihal keeps code growth down and insures 
highest compalibiiily wiin BASIC source programs while giving huge speertups Only a 
carefully chosen subset of BASIC mslruciions is translaled The non-conipilahle state- 
ments are left in the compiled program in their original souice form and at run-time are ar, 
lually given to the BASIC interpretef to execute Program How may flip into ditecl enenulion 
of the compiled machine instructions and then flop Pack to mterprelahon many times dur- 
ing execution 

Why Compilation improves performance 

•name Resalulion Term (jiven to the Drocess ol itlerfitymg itie value at a wnatrte given it's 
name As a program runs the mie'preter DuilOs a dictionary consisting ot a chain ot item'; 
each cnntaining a uariable name oata lypp ana current value f veiy iinw a yariaOie is lo Oe 
resoluefl the mtercelet must seouenliaHy scared itiis niclio:M^y By cnnlrasl ACCH 2 Binlds 
Itie vatiahie nicimnary once at compile Irme ana therealter can leler to the vanaiiie names Dy 
Oirecl aOdress *ith no run-time search 

■lihR Resolution Ttie mieicietei tias lotaKe tne line number lollowing a GOTO or riOSUB 
convert it to binar/ anO then search the oroqram sequentially lo tind Itie tartjel Ime Al 
comDHe-time ACf:tL? generates smqle machine msttiictions lo' GOTO O' GOSUB us'nq the 
actual address ol Itie tar^el line For the mieroreter Doth name resolulion anO line resolution 
get slower as the proqiam gel-, more complei whereas 'of compiled code these two noeralions 
are inOepentleni ot program size or numoer ol uariaoies 

■Compuialional Operations Itie inierpreie' must parse each statemenl every time lino the 
one Dyle codes lhai coiresponp to Ihe operahons look alieao to the neit operator to e'^lapiish 
the preceOenr.e rules and check lor data type misnialch and oonversion Constants must Oe 
tonveiiedl'omcliaraLteislrmqs to internal Binary ButunOeiACCf I 2 constants are convened 
ana em Redded nghi in the /SO msUuttion sfeam ano operations are translated once and lor 
all at compile lime mlo sequences Ot calls lo ROM or Itie 'on time componrtoi ifjTFGER opera- 
tions are actually tjrneo into Oirectly eiecutinq straight-Nne Z80 cone' 

The result is a mixture of BASIC statements and machine language instructions usually 
not more than Vh-2'h times ihe sue of the ongmai hut running much fiister (can be 
60- 100 times as fast with some programs) 

ACCEL2 32K TRS-80 Model I / III Compiles selected suhset in all variable types, local and 
global compilation options output save to ES/F wafer, disk under TRSOOS NEWDOS 
NEWDOS/80 

S88.95 + $2 00 Shipping 



Developeo iti Britain 
tiy Souihern SoUware 



TRS 80 TRSOOS 'm Radio Shack 



Maslercharqe/Visa 
CA aOd 6% 



ALIEN GELDERSOFTWAfit 
Boi it7?i Main PostOliice 
San Francisco CA 94101 
)t-^ (415)387-1131 

Sttinqy/Fioppylmeiaiton'nc NtWDOStmAnii.irat Inc 
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MOD-II HARD DISKS 

AVAILABLE NOW 

WHY WAIT FOR RADIO SHACK 

Micro Mainframe now supports the Mtxiel-II' Computer system with our hi^h quahty add on 
Winchester disk systems. I'^ch of the disk systems available offers the same high quality Krror 
Correcting controllers used in our Model-!* and ModeMIl* systems. 

Features 

• 5 Megab\1:e to 120 Mefiabv-te systems suppHjrted (formatted capacity), with total system 
capacities from 10 Mej^abytes to 480 Megabytes. 

• Oasis* operating system available (Model-II* only) 

• TRSLX^S" compatible operating systems available (all models) 

• Model-!* and Model-Ill' unit prices include operating system. 

• Error Correction on all controllers for years of trouble free operation (up to four bit burst). 

• Simple interface to the host computer through one of our host adapters. 

• Mcxlels available soon for Apple* and other computer systems. 

• Support for more Winchester systems than any other manufacturer. 

System Pricing 
Removable Cartridge Winchesters 

MMF-lOORl Model-I or Model-!!! version $5350.00 

MMF-100R2 Model-Il version $5395.00 

MMF-10t)A Apple Version $5350.00 

5 Megabyte Desktop System 
Prices Reduced 

MMF-3H, 48K system w/l-^loppy backup $5995.00 

Other Systems 

10 Megabyte Fixed Hard-disk systems begin at $5295.00 

120 Megabyte Fixed Hard-disk systems begin at $7995.00 

Model-Iir Floppy Controller w /installation kit $279.95 

Why become l(x:ked into a proprietary system from one manufacturer, when Micro Mainh-ame 
supports a total of 15 drive manufaclurers. WTien a new drive becomes available, you need only to 
purchase that drive and contntller to upj^rade your system. The software and Host Adapter works 
with the new drive package, thus allowing minimum upgrade cost. 

Call for the location of your nearest Micro Mainframe Dealer. 
Dealer inquiries invited. 

MICRO MAINFRAME . . 

714 Alhambra Blvd. - Sacramento. Ca 95816 
(916)447-7048 

■ MiJdfl5l.ll,& l[lartTjnJv1iaJi.'inaiks. 

' \i'p1l is n liriJLmarV i>l Appli' L'ntp. 
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GAME 



With sound yet! 



Hang Person 



HRRB-aQ 



m so EASY 



I Of GICSSES mf. 



t Of »tJt1G atSStS LEFT ■» 



i LEiTtRs fteftiiY atsaii i 



t r e 3 h 



Nathan Hilton 
669 West Kitchen 

Port Neches. TX 77651 

Tired of squeaky chalk boards and dusty 
fingers when playing hangman? 
Replace those noisy chalk boards with a 
CRT and farout computer sounds. Now you 
and your computer can enjoy each other's 
company playing Hang-80 on the privacy of 
your own cathode ray tube. 

Hang-80 gets its sound from a utility 
called Super Sound by David G. Morr (May 
1980, 80 Microcomputing). This utility is easy 
to use and, with a little imagination, makes 
great sounds. 



wcwi TO atss -■» 



m m Gflc HIT <9< 



d 



Photo 1. 



Program Listing 



HANG-80 

BY: NATHAN HILTON 
30 ' USES 'SUPER SOUND' BY DAVID HORR 
40 ' SET MEM SIZE TO 32737 -16K RAM 
50 ' SUPER SOUND IS LINES 60-80, THEN ■'HANG-80" 

60 CLS!AD=32738:HI=INT (AD/256) : POKE165 27 , HI : POKEl 6526 , AD-HI •256 
70 FORI=AD TO AD+28: READ DT: POKE I,DT: NEXT 

80 DATA 205,127,10,62,1,14,0,237,91,61,64,69,47,230,3,179,211,25 
5,13,40,4,16,246,24,242,37,32,241,201 
90 CLEAR300 

100 DEFINTA-Z:DEFSTRZ:DIMSK(15} : Q=256 : RANDOM 

110 Q5=CHRS(191) :SS=" " :AS=QS+STRING${2,17 6) +CS+S$+Q$+STRING$(2 , 
179)+Q$+SS+Q$+STRINGS(2,131)+Q$+S$+Q$+CHRS(131)+STRING$(2,179)4S 
S+STRING$(4,176)+S5+CHRS(186)+CHRS(17 9)+CHRS(187)+CHR$(144)+CHRS 
(170}+STRINGS(2,131)+CHR$(171)+STRINGS(31,32) 

120 A$=AS+QS+" "+05+55+05+" "+OS+SS+OS+" ■+Q$+SS+Q$+STRINGS ( 2 
,176)+Q$+STRINGS{6,32)+CHRS(181)+CHR$(176)+CHRS(184)+CHRS(149)+C 
HR${170)+STRINGS(2,176)+OS 
130 BS="Welcome to :" 

140 PRINT@460,"";:FORI=1TO12:L"L+5:PRINTHIDS(B$,I,1);:U-USR(Q+L) 
:FORJ-1TO20:NEXTJ,1 

150 FORI=1TO2:U=USR{O*70+RND(30)+10) : PRINT@460 , STRINGS ( 12 , 32) :F0 
RJ=lTO20aSTEP5:T=USR((U/70)+J) :NEXTJ:PRINT0460 ,B$;NEXTI 

Program eonlirtues 



Sound 

You need a small audio amplifier to hear 
the sound which comes out of the cassette 
output plug of your TRS-80 microcomputer. 

Before you do any programming, answer 
your computer's memory size question with 
32737 (16K machines). This allows Super 
Sound to be loaded into the top of RAM un- 
disturbed. 

Super Sound is found in lines 60-80. Line 
60 sets the USR address. Line 70 reads and 
POKES the data in line 80 into the top ot 
RAM. Line 80 is the data for the Super Sound 
utility. Every time you see a USR(), a sound 
will be produced. 

The Program 

With the exception of a gap here and 
there, you can Auto all the way through the 
program, making program typing a tittle eas- 
ier. Furthermore, after you type Run and hit 
Enter, you can forget the Enter key because 
you won't need it during the game. 

Here is how Hang-80 works; In line 100, 
variables A through Z are defined as in- 
tegers. Lines 110 and 120 create the opening 
block letters that are assigned to A$. Lines 
130-200 create letters and sounds. 

Lines 3110-3140 are data lines containing 
the instructions. The loop in line 240 reads 
the data so lines 260 and 270 can convenient- 
ly read and print the instructions with flying 
sounds. 

From 610 we GOSUB 2000. This is where 
the computer picks the word for you to 
guess at. Then we return and GOSUB 5000. 



320 • 80 Microcomputing, October 1981 



"You can count the words you enter 
yourself or let the computer count them for you." 



Lines 5000-5070 simply set up the playing 

screen. 

Lines 630 and 640 put the spaces on the 
screen. Lines 660 through 780 process the en- 
tries and put the letters in the mystery word. 

The first 29 data elements are the machine 
code numbers for Super Sound. The next 514 
data elements are the words the computer 
picks from for ttie player to guess. Finally, 
there are the 14 lines of instruction. There is 
a total of 557 elements of data. 

There is an alternative to typing 557 
chunks of data. Leave the first 29 data ele- 
ments alone. However, you can do what you 
want with the next 514. 

You can use a different number of words 
as long as you make some number changes 
in lines 240 and 2050. 

The number 543 in line 240 must be 
changed to account for the number of words 
you enter into the data lines. Simply add 
your number of words to 29 and enter that 
number in place of 543. 

In line 2050 change the RND (514) to read 
RND (your number of words) after the 
change. 

Counting 

You can count the words you enter your- 
self or let the computer count them for you. I 
found it easier to let the computer do the 
counting. 

After entering the program, execute the 
following line: REST0RE:FOR A = 1 TO 
29:READ D$: NEXT A (enter). This gets you 
past the Super Sound so the next Read 
statement will read the first vocabulary 
word. Now execute the following line and re- 
member to use Shift @ to freeze the display 
when necessary; FOR A = 1 TO 100O:READ 
DSiPRINT A;D$: NEXT A. 

Whenever you see "Welcome to Hang-80" 
pop up. hit the Break Key to get out of the 
loop. Now look at the last word printed; it 
has a number to its left. That number is the 
number of words you now have in the com- 
puter's vocabulary. 

How to Play 

When Hang-80 is run, you must answer a 
few questions the computer will ask you. The 
playing screen will appear and you will have 
all the information you need to play the 
game. Printed at 797 you will see a row of 
spaces with a flashing arrow to the left of 
them. The spaces are actually a row of cur- 
sors. The number of the CHR$(95)s in the row 
is the number of letters in the word you are 
to guess at. All you do is hit a letter and the 
computer will put it in the row of spaces if 
the letter you hit is contained in the word. 
Otherwise it is counted as a wrong guess. 
You lose when you don't have any wrong 
guesses left.H 



Program cofl f'luetj 

16B FORI=lTO70STEP5:U=USR{Q*I+RND(38)+5) :FORK-1TO50/I : NEXTK , I 

170 PRINTg394,A$ 

180 FORI = 255TO0STEP-5:F=F■^5:U=USR(Q-fI) :U=USR(Q+F) :NEXTI 

190 F=0:FORL=1TO3:FORI=100TO1STEP-2:F=F+L:U=USR(Q+I) !U=USR(Q+F) : 

NEXTI:F=0:NEXTL 

200 FORG=25TO100STEP25:FORI = lTO30:U=USR(Q-t-G) :NEXTI,G 

210 RESTORE:PRINTg76B,"Do you want instructions?" 

220 WS = INKEYS:U=USR[Q-tRND(5)-t-30) : IFW$<> " Y" ANDWS<>"N" ANDW$<>"y"AN 

DW$<>"n"THEN220ELSEIFWS="Y"ORWS='y"THEN23 0ELSE400 

230 CLS:U=USR(Q*100+255) 

240 RESTORE :F0RA=1T0543:READDS: NEXT 

250 FORA=20 TO 33 

260 READDS:F0RB=1T0LEN(DS) : PRINTMIDS (D$ ,B , 1 ) ; : U»USR(Q+35-fRND( 3) ) 

:FORG=lT03:NEXTG,B:U-USR(Q-t-5) 

270 PRINT:NEXTA 

2B0 PRINTg960,"HIT <9> TO CONTINUE"; 

290 PRINTe965," " ; : FORA-1T05: Z«INKEy$!U"USR(Q+3») I IP2<>"9"TREH N 

EXT ELSE 340 

300 PRINT0965,"9";:FORA = 1TO10: IF2<>'9"THEN NEXT EL.SE34B 

310 V=V-fl:IF V>100aTHENV=0:GOTO310: ELSE IF INT(V/4)«V/4 THEN 32 

flELSE 290 

320 IF PEEK(16320)<>32 THENPBINT0960 , " " ) :GOT0298!Et.SE PRINT§9 

60, "HIT"; :GOTO290 

340 CLS 

400 K=640:PRINT:PRINT:PRINT:PRINT"Well you pick a (1)- easy (CC 

lltive) "iPRINTTABd?) "(2)- a little more difficult" ;CHRS(31) 

410 F0RI=1T02:ES=INKEY$:IFES<>'1'ANDES<>'2"THENNEXTELSEIFES-"2"T 

HENDF=0:GOTO50H:ELSEDF=3:GOTO50fl 

420 U=USR{Q-t-40) : PRINT^K ,CHRS { 191) ; : K=K-^1 ; IFK-1022CLS : PRINTCHR$ { 2 

3) "Hurry up!" :GOTO400ELSE410 

500 IFDF=3 THEN G$-"EASY' ELSE G$="NOT SO EASY" 

610 CLS:GOSUB2000 

620 CLS:GOStJB5000:GS="" 

630 PRINTe797,""; :LG=LEN(WS) : FORA=lTOLG: U"USR{Q+A*2) 

640 PRINTCHRS(95) ;:NEXT 

650 N=RND{3)+2-i-INT(LEN{WS)/2)-tDF:H-0 

660 IF LG = THEN7000:FORA=1 TO RND(10) +20 : Z«INKEY$i IFZ"""THE»J NE 

XTELSE700 

670 PRINT§785," " ; : 0=USR(Q+RND ( 5) +30 ) 

680 FORA=1TO30:Z=INKEY$:IFZ=""THENNEXTELSE700 

690 PRINTg785,CHRS(94) ; : U=USR (Q-t-RND ( 5) +30 ) :GOTO660 

700 IF (Z<'a" OR Z>"z") AND Z<>"9" THEN FOR A=100 TO 1 STEP-10:U 

=USR(Q+A) : NEXT: GOTO660:ELSEIFZ = "9"THENCI,S:U-USR (0*7 5 + 44) : CLS: RES 

TORE:GOTO210 

730 FOR A=l TO LEN(G$) STEP 2: IF HIDS (G$ ,A, 1) <>Z THEN NEXT:N-N- 

1: GOTO740:ELSE PRINT@52a , STRINGS ( 27 , 32 );: U-USR (Q-127+255 ): PRINT 

g528,CHR$(92) ;" LETTERS ALREADY GUESSED " ; CHR$ ( 92) j : GOTO660 

740 M=M+1 

750 GOSUB100e:FOR A=l TO LEN ( WS) : PRINT#860+A, Z ; : F0RK=1T03 : NEXTK : 

PRINTe860+A,- -;:IF NOT MIOS (WS , A, 1 ) =Z THEN NEXTA ELSE FORBB=ITO 

5:PRINTe796+A,' ";: PRINT g7 96 +A, Z ; : F0RG-1T05 : U=[JSR (Q+ASC ( Z) ) :NEXT 

G:PRINTe7 96+A," ";: NEXTBB: PRINTS? 96 +A, Z ; : LG=LG-1 : N=N+1 : NEXTA 

760 G$=G$+Z+" ■:PRINTg428,N:IF N=0THENGOSUB4000 : F0RA=1T03 : PRINT 

e385,STRINGS(23,32) j:U=USR{Q*100+50) :PRINTe385,"« OF WRONG GUESS 

ES LEFT"!:U=USR(Q*100+50) : NEXTA : FORY=47TO0STEP-2 : FORX-0TO127STEP 

9:SET(X,Y) : NEXTX : U=USR (Q+Y) : NEXTY :GOTO90fl0 

770 PRINTg576,GS; 

780 PRINTe300,«;:GOTO660 

1000 FOR A=16157T016157+LEN{HS) :IF PEEK ( A) =ASC ( Z) THENGOTO660ELSE 

NEXT : RETURN 
2000 CLS:FORA=1TO60STEP10:FORL=20TO1STEP-5:FORR=1TO8STEP2:U=USR( 

Q+R+L+A) :NEXTR,L,A:PRINT"Would you like the words " : PRINTTAB ( 5) ' ( 
D- five letters and under " :PRINTTAB(5) ' ( 2) - six letters and ove 
r";PRINTTAB(5) ' (3)- both" 
2010 U=USR(Q*10+100) :FORA=1TO40!Z»INKEYS:IF Z<>"1" ANDZ<>"2"AND Z 

<>"3" THENNEXTELSE2030 

2020 U=USR(Q+50); FORA=1TO30 : Z-INKEY$ : IF Z <>" 1 " ANDZ <> " 2" AND Z<>" 

3" THENNEXT:GOTO2010:ELSE2030 

2030 IFZ="1"THEN U=USR ( Q*100+44 ) : L=5 ELSE IFZ-"2"THEN U=USR(Q*10 

0+44) :FORA=lTO20:NEXT:U=USR(Q*100+44) :L=6 ELSE L=0 : F0RA=1T03 : U=U 

SR(Q*lfl0+44) :FORB=1TO20:NEXTB,A 

2040 CLS: RESTORE :F0RA=1T029:READD$: NEXT 

2050 W=RND(514) :PRINTg455,"ONE MOMENT PLEASE" 

2060 F0RA=1T0W:READ W$ : U=USR(Q+A) : NEXT 

Progiam eonUnues 
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P'ogtarn conlintipa 

2079 IP L=5 THEN IF NOT LEN(WS)<: = 5 THEN FORA=10TO1 STEP-1 :U'=USR( 

Q+A) :NEXT:GOTO2040 

20Sfl IP L=6 THEN IF NOT LEN(WS)>=6 THEN FORA=10TO1 STEP-1 :U=USR( 

Q+A) :NEXT:GOTO2040 

2090 RETURN 

2900 DATA actin lum raluminum r ame rici urn, antimony, argon r arsenic ,ast 

atinerbarluin,berkeliuinrberyiliuin,bisinuth ,boron,brominerCadmiuin,c 

alciuin,callf or niuin,cacbon,ce[ iuin,cesi uin,chl or ine,stironiiuin r cobalt 

(Copper rCuriuin,dysproslu(nf einsteinium, erbium, europium 

2910 DATA fermlumrf luoclne, franc ium,gadolinluin,gallium, germanium 

gold, hafnium,helium,holmium, hydrogen, indium, iodine, iridium, iron, 

k typton r lanthanum, lawcencium, lead rlithi urn, lutetium, magnesium, man 

ganese,mendelveiun,meccuryf molybdenum, neodymium, neon 

2920 DATA neptunium, nickle,niobium,nitrogen,nobelium,osmium,oxyg 

en, pa 1 1 ad ium, phosphor us f pi at inum, pi utonl urn, polonium, pot as sium,pr 

aseodymium,promethium, protactinium, radium, radon, rhenium, rhodium, 

rubibium,ruthenium,8amarium,scandium,eeIenium,silicon 

2930 DATA silver , sodium, St rent i urn, sulfur, tantalum, technetium, tel 

lu r ium, terbium, thallium, thorium,thulium,tin,ti tan ium.tungst en, ur 

an ium, vanadium, xenon, ytturbium, yttrium, zinc, zirconium 

2940 DATA inconspicuous, inconstant , individually, indifference, inf 

ocm,inject,insuff icient, insula te, invasion, jam, jail , jeep, jelly ,ju 

nk, knock, knot, knapsack, knowledge, know, known, koala 

3000 DATA amazroent,amandment, amoeba, amplify, amulet, amuse, ad just, 

action, add r ess, acknowledgement, accident, ace, apologize, bronco, bro 

nze, bristle, brook, brood, bump, bee, bunt , cactus, caboose, caddie, cand 

y, cap, capacity, cape, center , cellophane, celebration 

3010 DATA cen tenia l,clank,civilization,circus,clamber,clammy,c la 

ro,circulatory,citi2enship,city,claim,clot,cloth,close,clock,clin 

k, click ,cl imb, clever ,clothes,compound,complete,compl a int,compile 

, compassionate, compete, comprehension, cat, condor , coon 

3020 DATA convent.coOf cook, cooler, cool, cookie, con vert, crunch, ecu 

sh, crust, cuckoo, cue, cultivate, daunt, dead, deadly, dear, death, deal, 

dean, dealt, delve, demand, delete, dice,different,difficult,diq,digg 

er,discord,discolor, dirty, down, draft, drain, drag, eel 

3030 DATA electric,electromagnet,electricity,ell,elk,elves,elf ,e 

lement,entcy,enter, equal, exalt, ex tend, explode, extra, express, fan, 

farewell, farm, fat, fate, fasten, father, fashion, fit, fist, flake, flag 

,fission, fork, fuss ion, geophysical, genie, germ, get, good 

3040 DATA habit, hail stone, hair pin, ha 11 , ha If way, hamst er , hammock ,h 

ammer, handbag, handful, handle, happiness, hardware, harmony, harvest , 

haunted,helicopter,hold,hypocritical,identif icat ion, idle, igloo, i 

gnite, ill, imp, impact, imperial, impossibility, inch, indeed, indent 

3050 DATA lump, lug, low, lurk, lull,l'!ck, ma tch,mop,material , me It, me 
sh,minnow,roirror ,mint,mystery,nag , new, news, never , nickel , open, ope 
rate, ounce, other, our, oven, over .page, pale, palm, patch, patrol, peril 
, perfect, perk, per pi ex, pig, picture, piano, pier ce,ptgoen, piece, pie 
3060 DATA pliers, plow, plum, plug , plod, plot , ply, post , potent , potato 
7probe,pro,proceed,ptofessor,product,public,puff ,pulp,puls,pulle 
y, quick, quilt, quite, quicken, quiz, rabbit, race, ray, reach, realm, tea 
L, read, refract , regular, request, run, rule, ruler , rug 
3070 DATA rung , scan, scheme, scat , sea re, scar , set , sea, setter , sew, sh 
ock, shook, shoe, shot, short, shore, si Ik, signature, significance, simp 
ly, s implify, skid, sketch, size, skate, sky, sole, so ft, soda, softball,s 
pook, splash, spoke, splatter, splinter, spontaneous, spoon 
3080 DATA spoil, sport, stalk, stand, star, stamp, standard, stone, stor 
m, stock, stocking, stockholder , stomach, stop, stork, stun, sub, subject 
, subscribe, submit, submarine, sweat, sweep, sweet, swell, swim, swimmer 
, swift, terror, terrific, terrible, than, thanks, timber 
3090 DATA tomb, ton, to Id, tone, tooth, tonic, top, trailer,tr a in, traff 
ic, tramp, trans late, translation, trans former, transistor, trip, trim, 
t rot, troop, triumphant, trouble, unbend, unbound, uncommon, uncomf or t a 
ble, uncle, under, understand, uphold, upkeep, us 

3100 DATA urban, verb, vein, watt, wave, way, wax, we, wear, weak, water ,w 
idth, wick, wig, will, wild, word, wonderful, wolf, wood, wooden, woodman, 
woodcraf t, wool, woolen, write, wrong, wry, xylophone, yam, yacht, yap, ya 
rd, year, yarn, yellow, yong, zeal, zone, zero, zipper 

3110 DATA -WELCOME TO HANG-80 ! !"," I will think of a word and 
you will guess it one'," letter at a time.","l will display som 
e spaces that will represent the word you are to guess.", "The nu 
mber of spaces is the number of letters in the word." 
3120 DATA "You simply hit a letter, and if it is in the word I", 
■ am thinking of, I will put it in the proper place"," in the ro 
w of spaces," 

3130 DATA "The Spaces will have a flashing arrow pointing to the 
m. ," You will only have a certain number of wrong guesses to ma 
ke,"," ELSE you loose! I I I ! I ! ! " ," You win if you guess th 
e word before all your"," wrong guesses are gone!" 
3140 DATA" ----_. _ QooD LUCK ------- ■ 

4000 FORA«16157T016157+LEN(WS):SK{A-16157)=PEEK(A):NEXT:RETURN 
5000 PRINTTAB(8) ,AS; 
5010 PRINTei55,G$; 
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APPARAT OFFERS 

More bytes per budd 













"comljnu,.. \j. W operating sy 

tem and a *^i' . d 80 track mini 

floppy drive to give you up to 733,440 

bytes of storage in a single volume, 

Mewdos/80 version 2.0 expands the 

capability of double density drives, 

so you'll have greater applications 

for your TRS-80* model I and III. 

Drives plug directly into an cx-^' 
pension interface (requires instal- 
lation of a double density control- 
ler) or the model III dlsK bus with 
our single volume cable so you 
can now have over 2 megabytes of 
storage on-line with standard 
mini-floppy diskettes. Each drive 
has up to 573 free grans, for a 
total of 1,719, on a maximum of 
three 80 track drives, which can be 
added to a TRS-80 model I. Model 
Ill's can have up to 4 dual 80's 
on-line (almost 3 megabytes). 

These drives can "read" standard 
35 or 40 track diskettes using 
f^ewdos/80 version 2.0 which will 
allow skipping every other track. 
Drives come 
complete with 
case, power sup- 
ply and docu- 
mentation. The 
drives are priced 
at only $515 (Cat. 
no. 1-705, specify I or III), how, at 1424 
bytes per buck, it just might be the answer 
to your storage problems. Special — TWo 
dual 80 track drives only $999. 






Apparat,lnc. 

4401 So. Taniaraf faiKv/ay, IJeiner, (.1)80237 (3031 741-1778 



on GOITiG SUFPORT FOR MICROCOMFUTERS" 



LETS MAKE A 
DEAL 



LDOS 



Complete w/manualX lalesi updates 



Mod I or III 



$124.95 



LAZYWRITER 

Mod. I $118.95— Mod III $164.95 



EPSON MX100 

CALL FOR OUR LOW PRICE 



LYNX -Mod I/Ill 

Includes — Autodial/answer 

cables & software $259.95 



MAXI MANAGER 

by Adventure International 

Modell/lll48K Disk $79.95 



Proofrsader Mod 1 49.95 Mod III 59.95 

Proofedtt Mod I or 1 1 1 28.50 

Qrammatik Mod 1 45.95 Mod III 55.95 

by Sod inois 



SENDFORVOUHl-MEfc CATALOG 
NocrfKJilcard.sallhesp tow prices AddSt WonaiiCndoi 
dc. Ged^riert CK/MO/COD Rh.ppi-'d iinmcfli.tteiy PIpasc 
aliii-v ? Dve*M.s for person.il cHechs For enij fasi setiiir p 
phnncii'Voiif CODoider Purl's suti|crt ki change wilhon! 
r«)ln-e NYS 'Psidpnls plfasf cKid iippropridlp sales tax 
MaOHpiGtP.if WahiP'iKPinmpi Qpuvoiv WhyNol 'rvLI^'' 



MICRO-IMAGES 

146-03 25th Rd. Flushing, NY 11354 

MonH,IOAM'tPMf212)445-7124s,,t ioAW^PM 



P'ograrr: continued 

5020 PRINTg257,"» OF GUESSES MADE" ,CHRS (94) ; 

5030 PRINTe385,'# OF WRONG GUESSES LEFT" ,CHR5 ( 94) ; 

5040 PRINTg528,CHR$(92) ;" LETTERS ALREADY GUESSED "jCHRS(92); 

5050 PRINTe768,"WORD TO GUESS — ■;CHRS(94); 

5060 PRINTe96fl,"FOR NEW GAME HIT <9<"; 

5070 RETURN 

7000 PRINT@797,STRING$(LEN{WS) ,32 ) ; : FORA=1TO20 : U=USR (Q+RND { 10) +2 
5) :NEXT 

7010 PRINT@797,"";!F0RA=1T0LEN{WS) : PRINTHID? (WS,A,1) ; : FORL=1TO10 
STEP5 : FORT=20TOlSTEP-5 : U=USR (Q+T+L) : NEXTT: U=USR (Q+L) :NEXTL : U=USR 
(Q+10+A) :NEXTA 

7020 IF V=l THEN 7030 ELSE V=l : F0RA=1T02 : PRINTe797 , STRINGS (LEN {W 
?) ,32);:FORT=1TO20:U=USR{Q+T) : NEXTT: PRINT@797 ,WS! : FORT=1TO20 :S-U 
SR{Q) :NEXTT,A:GOTO7000 

7030 CLS:Q$='You guessed the word, so ■:F0RA=1T0L 

EN(Q$) :PRINTH1DS(Q$,A,1) ; : U=USR( Q+A+220) : NEXT 

7040 PRINT"! guess you win, ":GO'P028fl 

9000 CLS:FORA=1TO2:PRINT@390,AS;:FORT=4TO1STEP-1:FORG-1TO8STEP2: 

FDRY=20TO0STEP-10:U=USR(Q+Y+G+T) : NEXTY : U=USR{Q+G+T+A) :NEXTG:U«US 

R(Q+T) :NEXTT:PRINTe390,STRING$(LEN{A$) ,32) ; : F0RS=lTO5 :U=USR (Q+S+ 

A) :NEXTS,A 

9010 Q$="THE WORD WAS "+W$: PRINT@450 , " " ; 

9020 F0RA=1T0LEN(QS) : PRINTHID? (QS,A, 1) ; : U=USR (Q+20) : F0RS=1T04 : NE 
XTS,A 

9030 Q$="YOU LOSE AND "+CHR$ { 162) +CHRS ( 183) + 

- "+CHR$(181)+CHRS(180)+CHRS(149)+CHRS{149)+CHR$(151)+CHR?(171) 

9040 FORA=128+LEN(Q$)T0128STEP-l:PRINTeA,MIDS(QS,A-127,l);:U=USR 

(Q+A-50) :NEXT 

9050 PRINTg704,""; 

9060 Q$=-WHEN YOU MADE TOO MANY WRONG GUESSES ," j FORA-ITOLEN(QS) • 

PRINTHIDS(Q$,A,1);:U=USR(Q+60):NEXT 

9070 QS="YOUR "+CHR$(34)+"PART WORD'+CHRS (34) +" LOOKED LIKE'+CHR 

5(94) 

9080 PRINT: F0RA=1T0LEN(Q$) :U-USR(Q+A) : PRINTMIDS (QS ,A, 1) ; : NEXT 

9090 F0RA=16157TO16157+LEN(WS) 

9100 POKEA,SK(A-16157) :U=USR(Q+A) : U=USR(Q+RND ( 20) ) :NEXT 

9110 GOTO280 
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COOSOL DISCOUNTS 



^7B 



PRINTERS 



CPU— TERMINALS— SOFTWARE 



"COOSOL DATA LOGGER 




' Epson MX80 8M 1 0001 S^WCALL 

' Ep5on Wx;0 H341 0005 S*»CALL 

' Epson MX80 GRAFTRAA a^41 «915 *56»CAlL 

> Epson MX80 F T 8641-0001 »9*CALL 

> Epson MXSOF TGRAI TRAX 8&J 1-0075 SftSftCALL 
' Epson MXlOn 96240024 W^iCALL 

' Epson cables and cards CALL 

' NEC Spiniivnler 5510 1 S2495 

NEC SpinwrKe. S615 1 S2495 

NEC Sprnwiitei 55?01 S2880 

NEC Spjnwritc. 552!)-l S2950 

NECSpinwnler 5530 1 S?495 

NEC Accessofres . CALL 

ANACOM Parallel ANC'SOP Sn95 

ANACOM SERIAL ANCISOS 51195 

■Regisfeieil Tradpma'fc ot landv Corpoialion 
■f ACTORV DIRECT 



ADOS COMPUTER SYSTEMS 

• MULTIVISION3 SIPp 3 516-019000 

• MULTIVISION3 Slep 2 516 018000 

• MULTIVISION3 Step I 516-017000 

• MULTIVISION? 516 020000 

• WULTIVISION 1 516-006000 

• ADDS ACCESSORIES 8 SOFTWARE 

ALTOS MTU/FLOPPY/HAHODISK 

• 8000-rMTLJ IMh) FL 17 2MT 

HARD FLOPPY DISK 

208K RAM S&P-IO tOMb H HAFID DISK 

• 1Mb FL 17 ;> Mr 8000-lOMTU 

• 1Mb Floppy 8000-10D 

• 1 2Mb Floppy 8000 10 

• Al TOS Acci'SSOrres 8 Software . . . 



Sn 275 
S10 172 
S 9 070 
S 7 520 
S 3.312 
CALL 




TELEVIDEO TERMINALS 

• 91 OC SS95 

• 920C S750 

• TELEVIDEO Al c'SSOries 



912C 
950C 



NEC COMPUTER SYSTEMS 

• NEC Compiile. PC-80()1A 

• NEC I O Un.l PC 8012A 

• NEC I O Po'l PC-8033A 

• NEC DISK DRIVE PC fl03lA 

• NEC DISK DRIVE PC 8032 A 

• NEC Gr Monikx JB1?01 
■ NEC Col Momior JC 1202 

• NEC Accessories 8 Sollwatr' 



S 9616 
S 7 876 
S 7 438 
. CALL 



S?06 
S959 

CALL 



S1 056 
S 626 
S 162 

S 1.056 
S 931 

S 220 

S 99S 

CALL 



TRACTOR FEED. 88 COLUMN 

• HLAVV DUTV CONTINUOUS USE 

• 5 X 7 UP TO 10 X 14 CHARACTER DOT MATRIX 

• UPPER LOWER CASE 

• BIT PLOT GRAPHICS 

• SERIAL AND PARALLEL INTERFACES 



Pari No. 

101B 80K6 



Price 

495 



Assi'mbled 

8 Tested 



COOSOL 48 COLUMN PRINTERS 
ARE AVAILABLE AT S3SS 



COOSOL CABLES 

Parallel , , $29 00 

Se"ai S?9 00 

TRS 80 Model r S69 00 



COOSOL, INC. P-O, BOX 743. ANAHEIM. CALIFORNIA 92805-0743 (714) 545-2216 
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SAVE/ 



on Software and Hardware for 

TRS-80 



SOFTWARE 

NEWDOS/80 version 2,0(spectty Model I or III) $1 49.00 

Flextext I $29.95 

Utilize the additional features of the 737/739 under 

Model I or III Scripsit* 

Flextext M $29.95 

Utilize the additional features of the NEC spinwriter 

under Model II Scripsit" 

Flextext BO (available soon) 

Utilize the additional features of the MX-80 

under Model I or 111 Scripsit* 

Chextext $79.95 

Spelling checker for Model I and III word processing 
Microclinic $24.95 

The ultimate in memory and drsk diagnostics 
Meal Master $24.95 

Meal planning and grocery shoppjng aid 

Sprint 80 $14.95 

Creates your own custom serial printer driver 

Professional Football Predictor $29.95 

Let your TRS-80 pick the winners 
BJonJc Basic $7495 

Expand your Model I disk basic features 
Interactive Business System $500.00 

An inventory control system for manufacturing 
Micro Accounting System $489.00 

The finest general business package we've seen 
HELP/CMD $14 95 

Adds "HELP" feature to NEWDOS/80 version 1 .0 



MISCELLANEOUS 

Apparat's Data Separator $29.95 

16KTRS 80 or APPLE memory i<its $19.95 

9Vi" X 1 1" blank white.tractor feed paper.full box $24.95 
gVi" X 1 1" blank white.tractor feed paper.half box $14.95 
1 4V2" X 1 1 " green bar.tractar feed paper.full box $34.95 
3'/i" X 15/1 6" 'tractor feed mailing labels $19.95 

Model II add on drives {call for prices) 

Model II business software (call for prices) 

SERVICE CENTER SPECIAL 

Disk drive tune-up $29,95 

Complete-cleaning, alignment, and speed adjustment 
With any tune-up you may purchase your choice 
1 box Verbatim diskettes $19.95 
BASF head cleaner $9,95 




APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips TRS-80* 
MOD I & III or APPLE $149.00 

Bus Extender with power source, enclosure and 
5 card slots $149.95 

Mini version with 2 card slots and no enclosure $69.95 



Apparatjnc. 



NEW LOWER PRICES ON 
TANDON DISK DRIVES 

Complete with power supply, chassis & configured 
forTRS-aC Model I or III 
iSingle sided 40 track $295 00 

I Dual 40 or Single 80 track $425.00 

' Dual sided 80 track $51 5.00 

' Special - 2 Dual sided 80's $999.00 



Model I DOS and drive 
package add $54.00 
Includes above drives and 
NEWDOS/80 version 1.0-the 
established DOS. 



MODEL HI SUPER SYSTEM 

Approximately 2.1 megabates of disk storage using 2 dual 
headed 40 track drives internally and 2 dual headed 80 track 
drives externally. 

with NEWDOS/80 version 2.0 

same as above with only 2 single 

sided 40 track drives(no DOS) 

NOTE: These Model III computers contain Apparat installed 

disk drives and memory. They are warranted by Apparat, Inc. 

for 90 days 

Attention Dealers: Call or write for information on our new 

dealer discount package. 




$3299.00 
$1895.00 



PRINTERS 

Call tor our incredibly low prices on printers. 
All printers come with tree cable. We carry: 
ANADEX CENTRONICS NEC 
EPSON OKIDATA DAISY WHEEL 





CABLES 




Printer cables 






$29.95 


(specify printer 


and TRS-80 Model) 


Disk Drive Cables 








2 Drive 






$29.95 


3 Drive 






$34.95 


4 Drive 






$3995 


Extender Cable 






$12.95 


Special Cables 






(call tor prices) 



More Savings 



MODEL I DOUBLE DENSITY PACKAGE 

Converts a standard TRS-80 Model I to Double Density. 
LN Doubfer-NEWDOS/QO V.2.0 & box of 10 Verbatim Diskettes. 
$330 00 value for only S269.00 ■ LN Doubter alone $1 49.00 

DISKETTES 

Double density-sofl sectored-replacement guaranteed-Hard 
Hole protected. (5V*" only) 
Verbatim Datalife 5''«" 40 track 
Apparat's No Name 5'/*" 40 track 
Verbatim Datatife 8" Model II 

FLIP SORT SPECIAL 

The ultimate file bo* filled with 

50 diskettes 5v*" 

Flip sort alone 



$24 95 
$21.95 
$39.95 



$119.95 
529.95 



"^fc^ 



"On-going Support for Microcomputers* 



440^ S Tamatac Pkwv • Denver. CO 80237 • (303) 741-1778 • (800) 525-7674 

Stnpsd 8. TRS 80 .ire .1 tcgisleied ttddemark of Tandy Coipootion 
Freight FOB Donvet call lof shipping charges Foreign Orders shipped Air Freight 



■ See Lisl ol Adveriisms on page 386 
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UTILITY 



Patches Plus for Level II Basic. 



A Tale of Two Drivers 



John T. Blair 
122 Dumont Ave. 
Norfolk, VA 23505 



I have developed two printer 
driver patches, one for Level II 
Basic, operating under either 
TRSDOS or Basic, the other for 
NEWDOS's EDTASM. The patch- 
es have the following features: 
They output a line feed after a 
carriage return (to enable print- 
ers requiring this feature), pro- 
vide for an automatic form feed 
after a given number of lines and 
enable the user to output a top- 
of-form from the keylward. An 
additional feature, to be used 
with EDTASM, is a page header 
printed with the date and page 
number. 

Hardware or software may be 
used to cause a line feed on a 
carriage return. Either solution 
wilt work equally well, but soft- 
ware is simpler and less expen- 
sive. 

Program Listing 1 is a pre- 
drWer (executed before ROM 
printer driver) for Level li Basic 
and TRSDOS or NEWDOS. This 



program is loaded into the upper 
end of memory and must be pro- 
tected. To capture the printer 
driver, which is called from ROM 
by the various Level II and DOS 
print commands, change the ad- 
dress of the printer driver by 



modifying the printer Device 
Control Block (DCB). The DCB is 
located at 4025M-402CH, and 
the printer driver's Least Signifi- 
cant Byte (LSB) is at 4026H, the 
Most Significant Byte (MSB) is 
at 4027H. 



By altering the printer driver 
address in the DCB, program 
control is diverted to the pre- 
driver, lines 27-61. The address 
in the DCB is changed by the ini- 
tialization section of the pro- 
gram. (Note: Readers not using 











Program Listing 1 






00001 




•••«•• 


************t*t****t********************t**** 






00002 












00003 






PATCH/TXT • 






00004 












00005 






PRINTER PATCH FOR <LF> AFTER <CR> 






00006 






VERSION 1.0 






00007 


;* BY 


JOHN BLAIR VfA40HZ k TOH THOMPSON • | 






00008 






• 






00009 


. it-tACAA************************************************** 1 






B0010 












00011 


J 




INITIALIZATION 






00012 


J 


THIS 


SECTION LINKS THE ROH PRINTER DRIVER ROUTINE 






00013 


; WITH 


THIS 


PROGRAM. ALSO THIS SECTION WILL GENERATE A 






00014 


J PRITECTIOM 


OF THIS PROGRAH TO DOS AND BASIC. THEN 






00015 


I RETURN TO 


DOS. 






00016 








PE00 




00017 
00018 
00019 




ORG 


0FE00H ;SOHE DOS'S REQUIRE THE 
jTOP 128 BYTES OF MEMORY 


PESO 




00020 


INIT 


EQU 


S 


FE00 


210PFE 


00021 




LD 


HL, START 


FE03 


22B240 


00022 




LD 


(40B2H),HL ;SET PROTECTED MEMORY 


FE06 


220640 


00023 




LD 


(40D6H) ,HL ; 


FE09 


22BAeF 


00024 




LD 


(4026) rHL ; LINK PATCH TO PRINT DCB 


FE0C 


C32D40 


00025 
00026 
00027 
00028 




JP 


402DH ; RE-ENTER DOS 






















Program continues 
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disk should change line 22 to: 
LD(40B2)HL This automatically 
sets protected memory for disk 
users. The address of the jump 
instruction in line 38 must be 
changed from 402DH to 1A19H, 
the warm start for Level II 
Basic.) 

Pre-driver operation is quite 
simple: It checks the character 
to be printed. If it Is not a car- 
riage return, control is given 
back to Radio Shack's printer 
driver, located at 058DH. If the 
character Is a carriage return, 
lines 42-45 output the line feed 
directly to the printer and in- 
crement the line counter. When 
the line counter indicates 54 
lines have been printed, the pre- 
driver executes lines 53-58 to 
generate a form feed. 

Willful Form Feeds 

The last feature resets the 
line-per-page counter, and out- 
puts a form feed at will. The shift 
@ sign, a printable character 
with no meaning as a Basic 
command, is used for this pur- 
pose. After a listing has fin- 
ished, the last page Is usually 
almost filled. Enter LPRINT shift 
@ to reset the counters and top- 
of-form and to get the page out 
of the printer. This keeps the 
printer's counters and the soft- 
ware counters in sync. 

If your printer does not accept 
a form feed, OCH, use the op- 
tional form feed routine shown 
in Program Listing 3. Those us- 
ing Level II must protect 
memory on power up, then load 
the object program using the 
System call. After the program 
has loaded, enter a slash to ex- 
ecute the initialization that links 
the pre-driver to Basic. 

Readers using disk should 
put this in the automatic boot 
file on disk. This will cause the 
line teed on the carriage return 
patch to be booted every time 
the DOS is booted. You may now 
use all DOS and Basic com- 
mands that send output to the 
printer. 

Page Headers for EDTASM 

Program Listing 2 is a modifi- 
cation of Apparat's NEWDOS 
Plus EDTASM. The program 
provides: a line feed on carriage 
return; a way of resetting the 
counts and giving a form feed; a 



Program conlrnued 










■ 






00029 


; 


THIS SECTION IS A PKE- 


-DRIVER THAT ALLOWS A 






00030 


; LINE- 


FEED UPON DETECTION OF 


A CARRIAGE RETURN. IT 






00031 


f filSO 


WILL GENERATE A FORM-FEED AFTER THE DETECTION OF | 






00032 


; THE 54TH CARRIAGE RETURN. A 


SPECIAL CHARACTER OF A 






00033 


; SHIFT 


', USING THE LPRINT 


<SHIFT> e" COHMAND FROH 






00034 


; BASIC 


WILL RE 


-SET ALL COUNTERS AND GIVE A TOP-OF-FORM. | 






00035 










FEflF 




00036 


START EQU 


S 




FE0F 


79 


00037 




LD 


A,C 


;GET CHAR TO BE PRINTED 


FE10 


FE60 


00038 




CP 


60U 


;IS IT A SHIFT ' 7 


FE12 


2622 


00039 




JR 


Z, FRHFED 


; OUTPUT <FF> 


FE14 


FE0D 


00040 




CP 


0DH 


fIS IT <CR> ? 


FE16 


C26D05 


00041 




JP 


NZ,058DB 


fNO GOTO PRINTER DRVR 


FE19 


CDD105 


00042 


LF 


CALL 


05D1H 


; PRINTER STATUS CHECK 


PEIC 


C219FE 


00043 




JP 


NZ,LF 




FEIF 


3E0A 


00044 




LD 


A, BAH 


;£ET OUTPUT CHAR = <LF> 


FE21 


32E837 


00045 




LD 


(37E8H) ,A 


;OUTPUT CHAR 


FE24 


DD7E04 


00046 




LD 


A, (1X4-04) 


;GET LINE COUNTER 


FE27 


FE35 


00047 




CP 


53 D 


!54 LINES YET ? 


FE29 


C245FE 


00048 




JP 


NZjEXIT 


7 NO, OUTPUT <CR> 


FE2C 


CDD105 


00049 


CR 


CALL 


05D1H 


;GET PRINTER STATUS 


FE2F 


20FB 


00050 




JR 


NZ,CR 




FE31 


3E0D 


00051 




LD 


A,eDH 


; OUTPUT CHAR = <CR> 


FE33 


32E837 


00052 




LD 


(37E8H) ,A 


; OUTPUT LAST <CR> 


FE36 


CDD105 


00053 


FRHFED 


CALL 


05D1K 


! PRINTER STATUS ? 


FE39 


20FB 


00054 




JR 


NZ, FRHFED 




FE3B 


3EflC 


00055 




LD 


A,0CH 


;SET OUTPUT CHAR = <FF> 


FE3D 


32E837 


00056 




LD 


{37E8H) ,A 


; OUTPUT CHAK 


FE40 


DD360400 00057 




LD 


(1X4-04) ,00 


jRESET LINE COUNTER 


FE44 


C9 


00058 

00059 




RET 






FE45 


C38D05 


00060 


EXIT 


JP 


05 SDH 


;OUTPUT <CR> 


FE00 




00061 




END 


INIT 




00000 TOTAL 


ERRORS 










00100 ;**•****•******************•******•********************** 






00110 


. * 






• 






00120 


. * 




OPTIONAL ■ 


"ORH FEED' ROUTINE * 






00130 


. * 






* 






00140 


. ******************* ******************************* ****** 1 






00150 














00160 














00170 


;$S$$$S$$$$$$$SSSSSSSSSSSS$SSS$SSSSSSS$$$$$SSSSS$SSSS5SSS 1 






00180 


;$ 






$ 






00190 


!$ 


NOTES: 










00200 


;$ 


1) THIS CAN REPLACE THE SECTION OF THE S | 






00210 


!$ 


FORM 


FEED ROUTINE 


THAT OUTPUTS THE 0CH. S 






00220 


;S 


2) THE REFERENCE 


COUNTER (IX-i-03) IS 67 S 






00230 


;5 


LINES 


/ PAGE. THIS 


CAN BE CHANGED BY S 






00240 


;S 


POKING 


THE VALUE DESIRED, OR BX ADDING: S 1 






00250 


;S 


LD 


HL,4028H 


S 






00260 


;S 


LD 


(HL) ,XX 


S 






00270 


;S 


WHERE 


XX = THE * OF 


LINES/PAGE DESIRED S 






00280 


;$ 


INTO THE INITIALIZATION ROUTINE S | 






00290 


;S 






s 






00300 


;SSSSS$S5SSS$S$$$SSSS$$$S$$$SSS$SSSSS$S$SS$?$S?SSSS5SSS$S 1 






00310 














00320 










0000 DDE5 


00330 




PUSH 


IX 




0002 CD9F05 


00340 




CALL 


059FH 




FINE # LINES LEFT ON 






00350 










PAGE, AND OUTPUT AS 






00360 










<LF> 'S. 


0005 DD3405 


00370 




INC 


(IX-f05) 




INC PAGE COUNTER 


0006 DDBl 


00380 




POP 


IX 




INC PAGE COUNTER 






00390 








1 


0005 




00400 




END 


; *** DELETE THIS LINE *** | 


00000 


TOTAL ERRORS 















Program Listing 2 




00100 


.*••**•****-**********•****••**************************««« 1 


00110 








00120 


, * 


ASMPTCH/TXT 


* 


00130 








00140 


. * 


PRINTER PATCH FOR <LF> AFTER <CR> 




00150 


, * 


AND <FF> 




00160 


. • 


FOR NEHDOS'S DISK BASED EDTASH 




00170 


. * 






00180 


• * 


BY JOHN BLAIR & TOM THOMPSON 




00190 


,***********■*******•*•••••••••************•*****■*■***** 1 


00200 








00210 


.***■•******** DEFIKATION OF LABLES ******************* 1 








Program continues 
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melhod to title and number a 
page; and inserts the date in the 
header 

This program will be added to 
the end of EDTASM. All refer- 
ences to the beginning ot the 
text buffer must be changed to 
the new beginning of the buffer, 
the function of lines 350-600. 

Generating a line feed after a 
carnage return is easiest. Since 
NEWDOS makes use of a ROM 
call to access the printer driver, 
we need only change the ad- 
dress of the printer driver by 
modifying Ihe printer Device 
Control Block (DCB). This is 
done in the initialization sec- 
tion. The printer driver's address 
is altered and program control is 
diverted to the pre-driver, lines 
610-1840. This section of the 
program checks the character 
to be printed to determine if it is 
a carriage return. If not, control 
Is given back to ROM's printer 
driver located at 058DH. If the 
character to be printed is a car- 
riage return, the pre-driver out- 
puts the character: lines 
850-910 output the carriage 
return directly to the printer. 
Lines 930-1040 output the line 
feed, increment the line counter 
and check to see if 54 lines have 
been printed. If not, the charac- 
ter to be printed (carriage return 
ODH) is restored, and the pre- 
driver returns control to ED- 
TASM. When 54 lines have been 
printed, the pre-driver executes 
lines 1060-1150 to generate a 
form feed 

There are two methods of 
generating a form feed. The first 
has the printer accept the ASCII 
form feed command, a OCH. The 
pre-driver outputs a OCH directly 
to the printer, then resets the 
line counter, increments the 
page counter and calls the 
routine to print the page head- 
ers. The second method is to 
call the form feed routine from 
ROM, which outputs line feeds 
by replacing lines 1090-1150 
with the alternate form feed 
routine (Program Listing 3). 

Printing the page header in- 
formation is more complex 
(lines 1380-1840) First, the 
header message is printed by 
the OUTSTR subroutine, then 
the page number is printed, The 
OUTSTR routine requires that 
the HL register contain the ad- 



P'og'gm continuea 














00220 








2B0B 




00230 OFFSET 


EQU 


2B00H 




7480 




00240 AFPMSG 


EQU 


9F8BH-OFFSET 


START OF APPARAT SIGN ON 


8000 




0025B A5H5T 


EQU 


55aBH+OFFSET 


START OF RELOC. ASM2 


4029 




00260 LINCbTT 


EQU 


4B29H 


LINE/PAGE COUNTER 


7481 




BB27B M5G1 


EQU 


APPMSG+1 




402A 




002BB PAGCNT 


EQU 


402AH 


PAGE 1 COUNTER 


0BBD 




0B29B PRINT 


EQU 


5BDH 


ROM PRINTER DRIVER 


37E8 




8 300 PRTR 


EQU 


37E8H 


PRINTER ADDRESS 


B5D1 




00319 STATUS 


EQU 


B5D1H 


ROM PRINTER STATUS CK . 


0033 




00320 VIDEO 


EQU 


BB33H 


ROM VIDEO DISPLY 


58DA 




003 3 B WARHST 
00340 


EQU 


5BDAH 


REENTRY TO ASM2 






00350 ;•• REPLACE STABT OF BUFFER IN EDTASM WITH NEW BEG ** | 






00360 












00370 ; 


THIS 


SECTION REPLACES ALL EDTASM REFERENCES TO | 






00380 ; THE BEGINNING OF TEXT BUFFER WITH THE BEGINNING OF THE | 






80390 r NEW BEGINNING OF TEXT BUFFER. 








BB400 








8118 




BB41B 
0042B 


ORG 


8118H 




8118 


21B876 


00430 


I.D 


HL, DONE-OFFSET 




83aA 




00440 


ORG 


83BAH 




B38A 


21B876 


BB45B 


LD 


HL, DONE-OFFSET 




8410 




BB460 


ORG 


841BH 




8410 


11BB76 


00470 


LD 


DE, DONE-OFFSET 




8707 




00480 


ORG 


87fl7H 




8707 


11B876 


00490 


LD 


DE, DONE-OFFSET 




87DB 




00500 


ORG 


87DBH 




87DB 


21B876 


00510 


LD 


HL, DONE-OFFSET 




B8B0 




00520 


ORG 


88S0H 




8850 


21BB76 


00530 


LD 


HL, DONE -OFFSET 




BA39 




00540 


ORG 


8A39H 




8A39 


21B876 


BB55B 


LD 


HL, DONE-OFFSET 




8A80 




BB560 


ORG 


BA60H 




BA88 


Z1B876 


00570 


I.D 


HI,, DONE -OFFSET 




8F27 




005BB 


ORG 


BF27H 




aF27 


21B876 


0059B 
00600 


LD 


HL, DONE-OFFSET 
















0B620 












00630 ; 


THE PRE-DRIVER I.S CALLED 


INSTEAD OF THE ROM 






00640 ; PRINTER DRIVER. IT CHECKS FOR 


A <CH>, AND THEN OUTPUTS 






B065B ; A <LF>. IF 


CHARACTER TO BE PRINTED IS NOT A <CB> THEN 






00660 ; THE ROM PRINTER DRIVER IS USED 








00670 








A13A 




006B0 

00690 


ORG 


BA13AH 


lOVERLAY TO RELOC. ASM2 






0B7B0 ; 


THIS 


ADDITION TO EDTASM 


IS TAIL ENDED TO THE 






BB710 ; PROGRAM. HOWEVER, EDTASM HAS BEEN BLOCKED MOVED TO | 






BB72B I START AT B000H WITH LMDFFSET. 


EXECUTION OF EDTASM 






0B73B ; WILL 


BLOCK 


MOVE IT DOWN TO 1ST 


NORMAT ORIGION OF 55B0H. 






BB74B 












BB75B ; >>>>>>>>>> 


OUTPUT ALL CHAR 


EXCEPT <CR> ■:<<<<<:<<■;< 






0076B 








763A 




00770 START 


EQU 


S-OFFSET 




A13A 


79 


BB7 80 


LD 


A,C 


;GET CHAR TO BE PRINTED 


A13B 


D9 


0B790 


EXX 






A13C 


CD3 3 00 


00800 


CALL 


VIDEO 




A13F 


D9 


00B10 


EXX 






A14fl 


FEBD 


00B20 


CP 


BDH 


J IS IT A <CH> 


A142 


C2BD05 


00830 
00840 


JP 


NZ, PRINT 


;JP TO ROM PRINTER DRIVER 






0B850 i >>>>>>>>>> 


OUTPUT <CH> 


<<<•:<<<<<< 






BB86B 








7645 




BB870 OUTPUT 


EQU 


S-OFFSET 




A14B 


CDD1B5 


BB8B0 


CALL 


STATUS 


;CHECK THE PRINTER STATUS 


A14B 


C24576 


00890 


JP 


NZ, OUTPUT 


;IS IT HEADY? 


A14B 


79 


0B900 


LD 


A,C 


; RESTORE <CR> 


A14C 


32E837 


009X0 
00920 


LD 


(PRTR) ,A 


;OUTPUT <0D> TO PRINTER 






00930 !>>>>>> OUTPUT <Lr> AND CHECK LINE COUNTER <<<<<< | 






00940 








764F 




009S0 LF 


EQU 


S-OPPSET 




A14F 


CDD105 


00960 


CALL 


STATUS 


rIS PRINTER READY 


A152 


C24F76 


BB970 


JP 


NZ.LF 




A155 


3E0A 


BB9B0 


LO 


A, BAH 


[SET OUTPUT CHAR - <LF> 


A157 


32E837 


00990 


LD 


(PRTR) ,A 


jOUTPUT IT TO PRINTER 


A15A 


212940 


BIBBB 


LD 


HL,LINCHT 


(POINT TO LINE/PAGE CNTR. 


A15D 


34 


0101B 


INC 


(HL) 


I INC LINE/PAGE CNTR 


A15E 


7E 


B1020 


LD 


A, (HL) 


I GET MEW VALUE OF CNTR 


A15F 


FE36 


01B3B 


CP 


54D 


;HAVE 54 LINES PRINTED 7 


A161 


C2B176 


B1B40 
01050 


JP 


NZjEXIT 








0106B J >>>>>>>>>> 


OUTPUT <FF> 


<<<<<<<<<< 






0107B 








7fifi4 




01080 Ff 


EQU 


S-OFFSET 




A164 


CDD105 


01090 


CALL 


STATUS 


iCHECK PRINTER STATUS 


A167 


C26476 


B1100 


JP 


NZ.FF 




A16A 


3E0C 


BlllB 


LD 


A,0CH 


;SET OUTPUT CHAR - <:FF> 


A16C 


32EB37 


B1120 


LD 


(PRTR) ,A 


(PRINT IT 


A16F 


3600 


01130 


LD 


(HL) ,BBH 


jRESET LINE/PAGE CNTR 


M71 


23 


0114* 


INC 


HL 


f PCI NT TO PAGE CNTR 

Program conlinues 
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fTiDDEm-aa 

THE TRS-80' DATA COMMUNICATIONS SYSTEM FOR THE EIGHTIES 



Direct connects to your 
home telephone jack 
Installs in a minute 
Program swapping mode 
plus terminal mode 
All software included 




'^^. 



'oX 



V?^ 



'<<i,'V,*' 



^^.^'^.'^< 









• No RS232C interface 
required 

• Lowest price ever 



The MODEM-80 and your TRS-80 Model I Level 2 
disk or tape system make the perfect combination 
to maximize your data communications capabili- 
ties. 

This direct connect, auto dialing/answering 
modem will transmit programs and data between 
MODEM-80 equipped TRS-80 systems. In addition, it 
will transform your computer into a full-function in- 
telligent terminal. And, no RS-232C interface is re- 
quired, so tape-based systems do not need an ex- 
pansion interface. The result is the lowest priced 
data communications system of its type available 
anywhere. 

Program-swapping with your friends is a snap 
with the MODEM-80. Both machine-language and 
BASIC programs can be easily exchanged over the 
telephone line. And, accessing your favorite com- 
puter club bulletin board or any other Bell 103 type 
compatible time-sharing facility is no problem 
either. 

The TRS-80 to TRS-80 software, included with the 
MODEM-80. extends your system's BASIC language 
with 8 new communications-related functions. 
These can be easily incorporated into your own 
BASIC programs allowing, tor example, "computer 
vs. computer" competitions. BASIC programs are 
also provided which support disk, tape and memory 
transfer of programs and data, including automatic 
line error detection and re-transmission. This ap- 
proach combines function with flexibility, reliability 
and ease-of-use. 



When operating in the Intelligent terminal mode, 
you have over 35 functions from which to choose. 
These include 8 user-definable function keys, baud 
rate selection from 25 to 300, forward and backward 
buffer scrolling, parity control, full and half-duplex 
operation, disk and tape file load and save, auto- 
matic dialing, parallel printer support. . .the list 
goes on and on. 

You can install a MODEM-80 on your system in 
one minute. The ribbon connector plugs into the 
back of your keyboard or expansion interface. 
Power is provided by your computer's power module 
so no additional 110 V outlets are needed. An exten- 
sion cable with standard miniature phone plugs Is 
Included tor direct connection to the telephone line 
and there is even a spare jack to plug in a phone, if 
desired. Since the TRS-80 bus is extended through 
the MODEM 80, you can leave the unit permanently 
connected and still plug in other devices as you ex- 
pand your system. 

The MODEM-80 complete with all software and User 
Guides is only U.S. $219.00" plus U,S. $5.00 for 
shipping, handling and insurance. We accept 
money orders, VISA and MasterCard. The 
MODEM-80 hardware has a 90 day manufacturer's 
warranty. 

INTRODUCING TOMORROW'S 
PRODUCTS— TODAY! 

Siibiecl U, Canadian rate 
ill eichangr at hme of piirchasr 



master charge 






TO ORDER CALL 416-923-7961 ANYTIME 

AND ASK FOR ICROMS ORDER DESK 
©'^^ OR WRITE 

Vj|\\a\ ICROM ENTERPRISES LTD. ^4o 

Y^Vx^ ^ 240 BAY ST. -SUITE 505 

*' '' ' TORONTO, CANADA M5R 2A7 




■ See Lisl of Actvemsefs on page 386 
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NO. 5 ^t^^\ 


Program corimued 




^^^^*\^V^ 


A172 34 


81158 INC (HL) lINC PAGE • 


^S^^ 


A173 CD8F76 


B1160 CALL PTPAGE [PRINT PAGE HEADER 


A176 BEBD 


8117B LD C,BDH jSET OUTPUT CHAR = <CR> 


A178 CD3A76 


81180 CALL START rODTPUT 3 <CB>'S TO 


A17B CD3A76 


B1190 CALL START jSEPERATE READER PROM 


A17E CD3A76 


B1280 CALL START jTEXT 


xSaV If You've Written 


76B1 


01218 EXIT EQU S-OFFSET 


(^iJH^ State-of-the-Art Software- 


A181 79 
A182 C9 


B1228 LD A,C jRESTORB CHAR 
B1230 RET 


We'd Like to Publish W 




01240 

01250 ;•*•••• COMKAND <SBIFT> § FOR EJECT ROUTINE •****•• 


We're looking for SYSTEM software: 




01268 


DISK OPERATING SYSTEMS 




01278 ( THIS ROUTINE USES A ' <SHIFT> '" TO REPLACE THE B 
B12B0 ( COHKAHD. THE "<SHIFT> §" COMMAND WILL GIVE A FORM PEED 


MONITORS 




81290 ( AND RESET THE LINE/PAGE AND PAGE * COUNTERS 


PROGRAMMER AIDS/UTILITIES 




013BB 


LANGUAGES 


7683 

A183 212A4B 


01310 EJECT EQU 5-OFFSET 

01320 LD HL.PAGCNT (POINT TO LINE/PAGE CNTR 


DATA BASE SYSTEMS 


A1B6 368 8 


B1338 LD [HD.BBH i '<SHIPT> 9' SENT BO 


Then, sit back and collect your 
royalty checks. Write for oar free 


MSB 2B 


81340 DEC HL ) RESET PAGE COUNTER 


A169 CD6476 
A18C C3DA5B 


B1350 CALL FF 

81360 JP WARKST (EXIT TO WARM RESTART 


Progranuner'B Kit todayl 




B137B 




INSTANT SOrrWARB. INC. *^^ 




01390 


SnbmlsBions Dept. 




0140B ; THIS ROUTINE WILL PRINT THE PAGE » INFO 


Peterboronfh. NH 034B8 


768F 


01418 ; ON THE PAGE. 

01428 

B1438 PTPAGE EQU S-OPPSET 






A18P 218174 
A192 CDAA76 


B1440 LD HL,MSC1 j PT TO BEG OF PAGE HEADER 
B145B CALL OUTSTR jOUTPUT MESSAGE 




YOUR IDEAS IN 




81468 

01470 !»>>>> HEX TO ASCII CONVERSION FOR PAGE 1 <<<<<<<< 


ACTION 




B148B 




01490 1 THIS SECTION HARES USE OP THE HEX TO ASCII 






01500 ; CONVERSION IN ROM. THE 16 BIT HEX VALUE TO BE CONVERTED 


-jC 




B151B ; MUST BE STORED AT 4121H. AFTER THE CONVERSION THE "HL" 


^*vNK>i e 




81528 1 REGISTER CONTAINS THE ADDRESS OP THE MOST SIGINIFICAMT 




81538 t DIGIT OP THE NUMBER. 


aVVWO*^ ^t\x. 




81540 


w^^* ..tt^Lvi 


A195 3A2A4B 


81550 LD A,(PAGCNT) fGET HEX PAGE t 


fOJ* •.imXj^ 


A198 6P 


81568 LD L,A 


In %.\MJV^ 0- 


A199 26iB 


B1578 LD H,B0H (STORE PAGE COUNT INTO 


^^kW^ ^«^v 


A19B 222141 


01588 LD [4121H),HL } CELL TO BE CONVERTED 


M.r2tt.v^^ ..tt^Q^ 


A19E 3EB2 


01590 LD A, 2 (LOAD 1 TYPE PLG FOR INT. 


*^Wa^ ^^XjN'' 


AlAB 32AF48 


01680 LD (40AFH],A ; TO HEX INPUT 


tvQ\j^ «^n^ 


A1A3 CDBDBP 


01610 CALL BFBDH j CONVERT, RESULTS ' HL ' 


T*^ v&W 


A1A6 CDAA76 


81628 CALL OUTSTR ;HL PR TO STRING. OUTPUT 
8163B ; PAGE 1. 


^#* 


MA9 C9 


B1648 RET 

81650 

81668 J******** OUTSTR •*••*••• 

B1678 

B16BB ) THIS SECTION OUTPUTS A STRING PROM MEMORY TO THE 

B169B I PRINTER. THE "BL" REGISTER MUST POINT TO THE FIRST 


ENCYCLOPEDIA 




B17B8 ( CHARACTER TO BE PRINTED. A B8H MUST BE THE LAST 

81718 ( CHARACTER. 

8172B 

81738 OUTSTR EQU 5-OFPSET 


FORTHETRS-80* 


7EAA 




AlAA 4E 


81748 LD C,(HL) (GET CHAR TO BE PRINTED 




AlAB 79 


81750 LD A,C (SET UP TO BE PBIWTED 


Wayne Green Books needs 


AlAC PEBB 
AlAE C8 


01768 CP 8flH (END OP STRING 7 
01778 RET Z I IF YES, RETURN 


your articles in the areas of: 


AlAF E5 


017 80 PUSH HL 


A1B8 CD8DB5 


01790 CALL PRINT fODTPDT CBAS. 


Business, Education, Games, 


A1B3 El 


01808 POP HL 


Graphics, Hardware, Home 


A1B4 23 
A1B5 C3AA76 


B1B18 INC HL ;PT TO NEXT CHAR 
01B2B JP OUTSTR 


Applications, Interface, Lan- 


A1B8 88 


B1B3B 

B1B4B DONE DEFB 00H (THIS IS THE END OF THE 


guage, Tutorial, Utility, and 




01B5B (PRINTER PRE-DRIVEH. 


special interest areas such 
as the Model III and the color 
computer. The Encyclopedia 




81B60 


81880 ;• BLOCK MOVE AND INITIALIZATION • 


81988 


is a living networi< of informa- 




01918 } THIS SECTION IS WHERE THE ACTUAL EXECUTION 




01920 ( BEGINS. THIS SECTION WILL BLOCK HOVE THE EDTASH HTTB 


tion for the TRS-80 user— be 




01938 ( THE PRINTER PRE-DRIVER DOWN TO ITS ACTUAL EXECUTABLE 


a part of it! Send manuscripts 




01940 t LOCATION OP 5500H. 
01950 


to: 




01960 (»>»>»» RELOCATE EDTASH <<<<<<<<<< 




01970 




A1B9 F3 


01980 ENTRY DI 


Attn: Encyclopedia Editor 


AlBA 210080 
AIBD 118855 


01990 LD HL,8888H (BEG. OP RELOC. EDTASH 
82888 LD DE,550OH (MOVE EDTASH TO 


Wayne Green Books 


A1C0 B1B821 


02010 LD BC,DONE-ASMST )t OP BYTES TO BE MOVED 


Peterborough, NH 03458 


A1C3 EDB0 


02020 LDIR (MOVE IT 1 1 

02030 

02040 !»>>>>>>> GET DATE t INSERT IN HEADER HSG <<<<<<<<<< 

02858 




A1C5 21iBA2 


82060 LD HLfDATE (POINT TO SPACE AFTER 


A cassells or disk must accompany any articles 




82870 F "DATEi' IN HSG2 


with pfogram listings. 






"TRS80 IS a tradomarH o' Tanfly Corporation 




Program contirues 
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MODCL III 



FOR $175.00 



Ves, double density is herd Tujo 40 crock drives give you 368K of storoge. Rnd if thots not enough, four 80 
trock drives luill give you 1 .4 megabytes of on line storoge. fill this ujith the added speed of double density 
operation, not to mention 80% more storage per diskette. 

No loss of your softujore library or conversion of your single density diskettes is necessory- DOSPLUS 3.3D 
reacts to the diskette. It ujill reod single or double density uuith equal ease. It is not JUST a double density 
operoting system, it is o double RND single density system. It is the first of it's kind. No one con offer you uuhot 
uje con! To chonge q disk to double density you need only format a double density disk, and then ON€ 
command (TRRNSF6R), ujill bring over oil your files. Very simple to use, but not necessary, because DOSPLUS 
iuill read them as they ore noiu. Just insert single density diskettes ond run (uuith our operating system) . The 
mochine ojill knauj ojhot you ore doing luithout hoving to be told RNSTHINGi 

If you Luont your computer to choin Functions, then you need DOSPLUS 3. 3D (For example, from poujerup you 
could have your machine call another computer, scon a data base for appointments, recording any thot oppear 
on your printer; ond then lood in our neiu BASIC, setting files ond mem/size, ond stort your progrom so your 
secretory con go right ta mark) . UJith our BUILD, DO and RUTO, all of the preceding ujould be child's ploy. By the 
Luay, you could hove also set the time ond dote, looked at the directory of oil your drives os oiell os checked 
the free spoce mop (luhich tells you not only houj much spoce you hove on o diskette, but also ujhere it is and 
LUhot it is used far) DOSPLUS is o truly intellegent. easy to use operating system that gives you oil your 
computer is capable of delivering. 

Vou probably guessed that for $175.00 luhot uje ore doing is turning your Model I into o Model III. Its so 
easy onyone con do it in 10 minutes! UUhy spend S2,B00.00 for o Model III luhen you con get the some 
computing potuer, ujith our kit, and NO SOFTUJRR€ CONVERSION, for only $175.00. Don't throuu aujoy your 
Model I, let us expand it! Move up to the ujorld of double density. 

Vou ujill reap the benefits of our error-free softuiore. No mirodcs, just ploin hord ujork ond a lot of testing by 
experts and novices alike. Test us and judge yourself. UJe guarantee you uuill be 1 00% satisfied. If you ore the 
first to find a legitimate "BUG" in our softujore you uuill bereujorded luith o brand neuu $100 dollar bill. 

Vour systems disk uuill come complete luith on all neuj single/double density disk editor colled DISKZRP, and 
o BASIC program compressor called CRUNCH. RIso included is PURG€, o utility to make the moss removal of 
unujonted files from o diskette eosy, and R€STOR€, o program that makes recovering o deod file as easy as 
typing in o command line. TRANSFER is just as it sounds, a progrom thot moves all files (except systems) from 
one diskette to another. Single density to double or vice verso. CL€ARHL€ is used to zero data files on o 
diskette for o "cleon slate ". DISKDUMP is o neuu machine longuoge sector disploy/modify program thot luorks 
UJith filespecs instead of tracks ond sectors. Used in conjunction uJith DISKZRP, you ujill hove more disk editing 
pooier thon ever before, uiith less frustrotion thon uuas ever thought possible. 

Vou oiill noLU be oble to use all your DOS commends from our neuj BRStC Luith the CMD feoture. Rnd houj 
obout vorioble length records that really ujork. first time, €V€RV time! Thisiuill allouj you to use the ISAM 
pfogromming technique for vastly improved handling of large doto txises ond lightning speed unheord of in 
BASIC. (ISAM stands for Indexed Sequential Access Method). 

Vou con creote programs that luiII run on MOD 111 DOSPLUS, yes, 100% compatobility. 

If infloted computing pouier without on tnHoted price tog is luhot you're ofter, contoct us ot the oddress 
belouu. 




'mMMi cMiytl 



specializing in Ihe Tandy Line 



fmc^ 




(305) 983-3390 



5846 Funston Street 
Hollywood. FL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(800) 824-7888. OPERATOR 193 

FOR VISA/MASTEHCMARGE/C O D OHDEHS 

Calilorniadial (800) 852-7777 Ope'alor I93 
Alaska ana Hawaii dial (8001 824 7919 OperaiOT 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY' 

Fot Applications and Technical intcnaiion can 
i305) 983-3390 or drop us a card 



H 



Dealers inqujnes inuiied 



■S»e Li&t ol AOvertisers on page 386 
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Program continues 



A1C8 CD7044 



AlCB 218074 
AlCB 3EA0 
A1D0 77 
AlDl 23 
A1D2 1100A2 
AIDS EB 
AID6 015000 
A1D9 EDB0 



AIDB 212F5B 
AIDE 3E60 
A1E0 77 
AlEl 23 
A1E2 118376 
A1E5 73 
A1E6 23 
A1E7 72 



A1E8 213A7e 
AlEB 222640 



AIBB 0E16 
A1F0 CD4576 
A1F3 eE75 
A1P5 CD4576 
AlPB 0E18 
AlFA CD4576 



AlFD C3006F 



A200 20 
A20& 20 
A213 20 
A223 20 
A238 20 
A24B 00 
A1B9 
00000 TOTAL 



02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02552 
02554 
02560 
02570 
02580 
92590 
ERRORS 



4470U 



;CONVERT DATE i STORE IN 
MSG2 



!>>>>>> MOVE HEADER MSG OVER APPAJIATE SIGN ON MSG <<<<< 



LD 

LD 

LD 

INC 

LD 

EX 

LD 

LDIR 

!»>»> REPLACE 

LD 

LD 

LD 

INC 

LD 

LD 

INC 

LD 



HL.APPMSG 

A,0A0H 

(HL) ,A 

UL 

DE,H5G2 

DE.HL 

BC,e0D 



POINT TO APPARAT SIGN ON 
SET 1ST CHAR IN SIGN ON 

MSG TO MST TERMINATOR 
POINT TO NEXT CELL 



;BYTE COUNTER 

J MOVE MSG2 OVER APP. MSG 



" WITH • <SHIFT> § " <<<<<<<< 
HL,B62FH-OFFSET jASM'S " B ' COMMAND 



A,60H 

(HL) ,A 

HL 

DE, EJECT 

(HL) ,E 
HL 

(HL) ,D 



■ <SHIFT> e ' 
' B ■ — > ' <SHIFT> @ ■ 

PT LSB OF ROUTINE ADD 
iLSB OF "<SHIFT> §" ADD 
;CHANGE LSB OF CMD ADD 
;PT TO MSB 
; CHANGE MSB 



!>>>>>>> LINK PRE-DRIVER TO ROM PRINTER DRIVER <<<<<<<< 

LD HL,763AH !"HL" = ADD OF PRE-DRIVER 

LD (4026H],HL ; PATCH IN PRINTER DCB 
,5S5SSSS?SSSSSSSSSSSSSS5SSSS5SSSSSSSSSSS$S$SSSSSSSSSSSSS$ 

(S NOTE : THIS SETS HEATH H-14 TO 96 CHAR / LINE 

jS DELETE OR CHANGE TO FIT YOUR PRINTER. $ 

t OUTPUT CHAR = <ESC> 

;OUTPUT IT 

; OUTPUT CHAR ■= <LC U> 

; OUTPUT CHAR <= <CTL X> 

,SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5SSSSSSS 

JP 6F00H ; START EXECUTION OF ASM2 

!»>>>>>>» HEADER MESSAGE <<<<<<<<< 
DATE : ' 



LD 


C,16H 


CALL 


OUTPUT 


LD 


C,75H 


CALL 


OUTPUT 


LD 


C,18H 


CALL 


OUTPUT 



MSG2 DEFM 
DATE DEFM 
DEFH 
DEFM 
DEFM 
DEFB 
END 



;DATE INSERTED HERE 

NEWDOS PLUS' 

Z-80 ASSEMBLER' 
***** PAGE ' 



00K 
ENTRY 











Program Listing 3 






00100 


I******************************************************** 1 






B01I0 


J* 


* 






00120 


)• 


OPTIONAL 'FORM FEED' ROUTINE * 






00130 


)' 


* 






00140 


J******************************************************** 1 






00150 










00160 










00170 


($SS5SSSSSSSS55S55S$$$$S55S5S5S5SSSSS5SSS5555SSSSSSSSSSS$ 1 






00180 


fS 


5 






00190 


iS 


NOTES: 






00200 


iS 


1) THIS CAN REPLACE THE SECTION OF THE S 






00210 


1$ 


FORM FEED ROUTINE THAT OUTPUTS THE 0CH. S 






00220 


jS 


2) THE REFERENCE COUNTER ( IX+03 ) IS 67 S 






00230 


(S 


LINES / PAGE. THIS CAN BE CHANGED BY S 






00240 


;S 


POKING THE VALUE DESIRED, OR BY ADDINGi S 






00250 


)$ 


LD HL,4028H $ 






00260 


jS 


LD (HL) ,XX S 






B027« 


;$ 


WHERE XX - THE « OF LINES/PAGE DESIRED S 






00280 


iS 


INTO THE INITIALIZATION ROUTINE S 






00290 


iS 


s 






00300 


)SSSS$SSSS5SSSSSSSS$SSSSSSSSSSSSSSSSSSSSSSSS5$$SSS555$$$$ 1 






00310 










00320 






0000 


DDES 


00330 




PUSH IX 


0002 


CD9F05 


00340 
00350 
00360 




CALL 059FH ;FINE t LINES LEFT ON 
;PAGE, AND OUTPUT AS 
) <LF>'S. 


0005 


DD3405 


00370 




INC (IX+05) rINC PAGE COUNTER 


0008 


DDEl 


00380 
00390 




POP IX J INC PAGE COUNTER 


0005 




00400 




END ( •*• DELETE THIS LINE '*• 


00000 TOTAL 


ERRORS 







dress of the first character to be 
printed, and that the last charac- 
ler be a OOH. OUTSTR gets the 
character pointed to by the HL 
register and compares it to OOH. 
If it Is not aOOH, the ROM printer 
driver Is called to output the 
character- When a OOH charac- 
ter Is encountered, a return from 
the subroutine Is executed 
without printing that character. 
The page nunnber is stored as 
a hexadecimal value at address 
402AH, which is an unused cell 
In the printer DCB. The ROM hex 
to ASCII conversion routine Is 
used to convert the page num- 
ber to a printable value. It Is as- 
sumed a program listing is less 
than 255 pages, so only one byte 
Is needed for the counter. The 
HL register Is loaded with the 
hex value to be converted which 
Is then stored at 4121 H. The hex 
to ASCII routine converts the 
value stored at 4121H and 
stores the results somewhere in 
memory. However, the HL regis- 
ter contains the address of the 
most significant digit converted. 
After the conversion, OUTSTR is 
again called to output the page 
number. 

Another feature included with 
the page headers Is Incorpora- 
tion of the date. When the DOS 
is booted, enter the date Into the 
system by using the Date com- 
mand. Then when EDTASM is 
loaded, it will convert the date to 
ASCII and store It In the header 
message. This Is done in the ini- 
tialization section. 

Finally, we need some way to 
reset the page counter and pos- 
sibly produce a top-of-form. To 
accomplish this, the B com- 
mand (return to Basic) is re- 
placed In the command looitup 
table by an @ . Then the reset ad- 
dress of OOOOH Ischangedtothe 
start of the form feed routine. 
Again, this Is accomplished dur- 
ing initialization. 

Initialization 

The initialization section has 

many functions. One Important 
one is its ability to move ED- 
TASM down to 5500H where Ap- 
parat Intended it to run. This Is 
accomplished by lines 1960- 
2020. Next, the date is 
calculated and stored in the 
page header message area of 
memory by lines 2060 and 2080. 
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Replacing Apparat's sign-on 
message is handled by lines 
2110-2200. Apparal uses AOH 
as their end of string terminator, 
so the HL register is loaded with 
the starting address of their 
message. The accumulator is 
loaded with AOH and then 
stored at the address pointed to 
by the HL register. This pointer 
is then bumped, and the DE reg- 
ister is loaded with the starting 
address of the page header mes- 
sage. HL and DE are exchanged, 
to conform to the requirements 
of the LDIR instruction, and BC 
is loaded with the number of 
bytes to be moved. The LDIR in- 
struction actually moves the 
message into the old sign-on ar- 
ea. Finally, the B command and 
its associated jump address are 
replaced with the @ sign and 
the formfeed routine's address, 
and the printer driver's address 
in the DCB is replaced. 

Labels 

Many labels in the program 
have an offset of 2B00H 
because EDTASM was moved 



from 5500 to 8000H to enable us 
to work on it, save EDTASM and 
the patches. If it were left at 
5500H, any return to DOS would 
have overlaid another program. 
The program must be moved up 
to 8000H by using the LMOFF- 
SET program in NEWDOS. It will 
attach a short routine to the end, 
like the one in lines 1810-1850, 
followed by the jump in line 
2210. The coding tietween lines 
1850 and 2210 is not required for 
the printer pre-driver and will 
then be written over by EDTASM 
after it Is executed. 

Once the program has been 
written and saved to disk, you 
must merge the two programs. 
Use LMOFFSET to move ED- 
TASM to 8000H, and resave it to 
disk. Then return to DOS. Use 
Load to put program into memo- 
ry {do not execute either pro- 
gram). Next load Tapedisk into 
memory, and save the programs 
from 8000H to A260H, with the 
entry point at Entry or A1B9H. I 
named the modified version of 
EDTASM ASM2 to avoid confu- 
sion as to which EDTASM is 
loaded.! 



Radio Shack Dealer #R491 
MODEL III 

LEVEL III BASIC 
26-1062 




$825,00 



WE ACCEPT CHECK, MONEY OHDER, OR PHONE ORDERS WITH VISA OR MASTER 
CHARGE, SHIPPING COSTS WILL BE ADDED TO CHARGE ORDERS DISK DRIVES 
PRINTERS PERIPHERALS, AND SOFTWARE-YOU NAME IT WE'VE GOT It' 
WHITE OR CALL FOR OUR COMPLETE PRICE LIST 

C 4 S ELECTRONICS. LTD 32 EAST MAIN ST MILAN. MICH 48160 
»^145 (313) 4 39 1508 (31 3| 439 1 4O0 



C 4 S ELECTRONtCS MART IS AN AUTHORIZED RADIO SHACK DEALER #491 



Do your own taxes like an expert 
with TAX/SAVER. 



tax/saver:" The tax help program 
for the lavtnan and the professional. 

• Privacy. 

• Built in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type 111 your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Optional text: fielp for novices ■ speed for professionals, 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER'" I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging and 
maximum tax, tax calculation (all filing statuses m one run). 

• TAX/SAVER'" U: all features of TAX/SAVER- I pius 
business income and capital gains 

• Discount on yearly updates. 



Reviews: 



►^355 



"Well designed and easy lo use" D Lubdi, Ctediwe Compunny Magdzme i'8I 

"TAX/'SAVER'" may very well live up to its name" 

M Tannenbaum, CPA. 80 Mictotompuling Magazine 2/81 

•K 1^)1=1 .?iiJd iiadeiiidik ui Kddw Shiitk ^Copyiighl 1981 



^^ 



,>S' 



\ TAX/FORECASTER ■ onvtitb TAX/SAVER ' 
In .1 Ijx pliiiiru'r l.s'ts yiiu sfc Ikwai linarx i<iI dttisions 
will jifeil yout Idxes l.t'ts you ttvts<' .iii .liiciidy 
compleied f el urn. 



Orders w\l\ be lillfd in Itiie.liiruiorw lii .iltiiy.' tiuliiaiciii cil tn'W i.ix l.iws 
TO ORDER: 



Cdii colleci 203-324-3009 .r 203-544-8777 or mdil this 
coujXKi lo Micromatic. Programminq Co. 

P.O. Box ISS. Georsetown. CT 06829 

Pledse enroll me in meiTibei s seivn e .ind ^end 

□ TAX SAVER'" 1 Ctt' $79% Mjnudl irkluded 

a FAX SAVKH" 11 iw $119 95 M.,riu<jl intkided 

D I AX FOKhCASTEH'" ■" $29 4. S 

U Mdiiu>il Only •>■ $19% 

D i dK Form Overlays A $39 96 

D Pledse send me more infotmalmn 

Please theck one 

n TRS 80- M«xlel I. 32K wilh 2 disk drives 
U i KS 8U* Mi>dfl III. 32K wilh 2 disk drives 

Add id ill liir [iir^ijijf jrid hdiidliny C I n-iidi'iUi fidd / , ^lii'^ ux 



Name 
Address 



City _ . _. _ _ Slale _ Zrp , 

a Check D Master Charge D Visj 

Card No. . - tup. dale 



-See UsI ol Advertisers on page 386 
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GAME 



An empire in search of lost greatness. 



Star Colony 




John Beringer 

2729 West Sahara it2 

Las Vegas. NV 89102 



The morning is bright and 
clear. A few clouds dot the 
sky at the higher altitudes. It is 
a perfect day for a launch. 

To commemorate this great 
occasion, the Corps band has 
been borrowed from the World 



Air Force. The band's music, 
harsh and tinny in your ears, 
blares across the allo-concrete. 
Your chiefs and aides stand 
stiffly erect, impatient with all 
this pomp and circumstance. 

At last the music ends. There 
is the usual round of 
hand-shaking and well-wish- 
ing. When the farewells are 
done, you and your men board 
the shuttle. The craft launches 
and swiftly climbs to space 
where it mates with your enor- 
mous starship, the first to be 



built in a long time since the 
Great War, Interstellar War I, 
the war against the D'nim (see 
Star Guard in an earlier issue). 
It is only reasonable that 
humanity should make the long 
crawl back into space, you 
reflect during docking proce- 
dures. What is tragic is that 
it took so long for the Earth to 
recover from the ravages of IWI, 
Triumphant, yet with all her col- 
onies lost. Earth has had a hard 
time pulling herself up to her 
former level. Your ship (you 
have the privilege of naming it) 
is a gigantic vessel, built solely 
for exploration and recoloniza- 
tion. You are to guide her in 
reopening the space lanes and 
reestablishing the footholds 
Earth once had. 

Object of the Game 

The object of this game is to 
colonize and explore as many 
star systems as the player can 
in the time alloted to him. (The 
time is randomly determined at 
the start of the game.) Upon de- 
parture, you have 100 per cent 
operation power and a full 
stock of supplies, along with 
5000 prospective colonists in 
stasis. As power and supplies 
diminish, it will become neces- 
sary to replenish them. There 
are two methods of doing this. 
You can mine explored sys- 
tems for radioactive fuel ele- 



ments and raw materials for 
supplies, which takes away 
from mission time (with the 
poorer systems yielding less 
and requiring more mining time 
than the richer systems). A de- 
cision may be made as to 
whether or not the player 
should resupply completely. 
Also, fuel and supplies will be 
used up during the years that 
mining and refining are taking 
place. 

Another way to restock the 
ship is to revisit an established 
colony. If the colony is doing 
well, the members will gladly 
give you the supplies you need. 
A word of warning — if you take 
too much from the colony, you 
could tax the colony severely 
and cause it to fail. Obviously, 
the colonies to revisit are those 
which have high-yield concen- 
trations of raw materials. 

To establish a colony in a 
newly explored star system, the 
proper number of colonists 
(decided upon by the Captain) 
are brought out of stasis and 
sent down to the most hospit- 
able planet available. They are 
given supplies, and then left on 
their own. A return visit will 
show how the colony is faring. 
Any colony that has a popula- 
tion of 500 or more members is 
considered thriving and able to 
aid in resupplying the ship. 
Some star systems are so poor 
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in materials that they should be 
bypassed and not even con- 
sidered for colonization. Set- 
ting down colonists on these 
systems will be useless since 
they have almost no chance to 
survive and grow. 

If you run out of time, the 
game ends. If you run out of 
fuel or supplies, your crew may 
toss you out the air lock, as 
there is no rescue available 
from Earth. If you last to the 
end of your mission, your per- 
formance will be evaluated and 



your superiors on Earth will 
decide how to reward you (or 
punish you!). 

How To Play 

There are four general com- 
mands available to you: Map, 
Scan, Jump, and Status. Dif- 
ferent options are available 
within each command. 

Map displays all the star sys- 
tems within the range of your 
starship. Any attempt to ex- 
plore outside the designated 
area will result in the starship 



becoming lost or even des- 
troyed in some cases, An op- 
tion of this command is the 
History subcommand. If se- 
lected, all explored stars will be 
shown as an E and all colonized 
systems will be shown as a C. 
The starship is shown as an up 
arrow (t). This display allows 
you to see which stars you have 
visited and colonized. 

A second option of the Map 
command is called the 
Rangefinder. With this option, 
you can pinpoint a particular 



star on the map. By using the 
keyboard arrows, you move the 
rangefinder, " + ", onto a 
selected star. Then the spatial 
co-ordinates (x, y, and z) may be 
displayed, as well as the star's 
distance from your starship. 

Scan enables you to explore 
a star system, discovering such 
information as the number of 
planets in the system, the 
number of habitable (Terra- 
type) planets, the grade of raw 
materials available and floral/ 
fauna! evolutionary levels rang- 



Program Listing. Star Colony 



SCAN, OS STATUS'jRSsIF 
■STATUS* G0T05BBBELSEG0 



2 CLEAR 200 

IBB DATA B, B, B, 48B, -1,-1, -4, 541, -4, a, -B, 46 8,-4,-1,16, 532,-5,8,-1 
3,465,-5,2,5,337,-6,2,1,334 

182 DATA -6, -1,-19, 526, -1,-6, 14, B61,B, -6, 8,864,1,-6,18, 867, 2, -5, 

17,886,4,-3, -IB, 684 

1B4 DATA 5,-3,11,687,6,-1,7,562,3,8,-21,489,7,1,8,437,9,2,15,379 

,6,3,-2,386,-3,5,-18,151 

186 DATA -7, 4, 11, 2B3, -9, 1,8, 389, 3, -7, -18, 937, 5, -6, 7, 87 9, 6, -7, -8, 

946,7,-7,-12,949,9,-4,-3,763 

IBS DATA 7, -2, -7, 629, 7, 5, -3, 181, 6, 7, -2, SB, -2, 7, -2,26,8,5,8,184 

118 DATA SOL, ALPHA CENTURI , INNES STAK, AC 79, CC 658, LALAHDE 

21185, HOLF 359, LUYTEH 68-28, BD *68, BARNARD'S STAR, BD +59, E 

IGMA DRACOHIS, EPSILON INDI , RRUEGER 68, ROSS 248, BETA HYDRI , G 

ROOHBRIDGE 34, ETA CASSIOPEIAE, LUYTEH 726-8 

112 DATA LUYTEN 97-12, BD +5B , ROSS 128, DELTA PAVONIS, 61 CYGNI 

, CD -39, CD -49, LUYTEN 789-6, CD -36, TAU CETl , EPSILON ERIDAN 

1, SIRIUS, RHO ERIDANt 

918 DIMST(32,E1 :DIKSTS ! 32 , 2) !D1MPL(32,3) 

915 SPS-' 

IBBB REM 

IBIH CLS 

1B2B INPUT'LAST NAHE*; HAS: IFNAS-'"TaEHPRINT-NEeD A NAME, * ■GOTOIB 

2BELSEIFLEN!NAS1>15THENPRINT"15 CHARACTERS OR LESS, PLEASE. •:COT 

01B2B 

1830 PRINT: IHPUT'YOUR SHIP'S NAME'iSHS: IFSHS-"*THENPRINT"NEED A 

NAME FOB YOUR SHIP. ' jGOTOlBSBELSEIFLEN (SHS) >1STHEHPRIHT"15 CHARA 

CTEHS OB LESS, PLEASE .' ;G0T01B3B 

im PRINTiPRINT'KELCOME ABOARD THE "iSHSl"* CAPTAIN ■;MA5l"l' 

1858 YE-RND{25)-»3S:PRlNTjPRI»rr'YOU HAVE" j YEARS) "YEARS BEFORE YOU 

MUST RETURN TO EARTH. ': PBIKTtPRIST'GOOD LUCK 1 ' 
1878 HESTORE:FORA-1T032!FOBB-1T04:READET1A,B) iNEXTB:ST(A,5J -fliNE 
XTA 

187 5 F0RA''lTO3 2:READSTS(A,l) :STS (A,2) -* . " iNEXT 
1B88 PW-lflB:CL"588BiSU-lflB:CR-4!SCS-"Y':ENS-"Y*!LAS-"Y'tSR-fl:X-B 

:V.e:Z.B:AD-48B!OV-2!iN-l!VI-H:ED-BiSD-e:LD-B:CD-23ie:YR-B!M3S-' 
■:H4S-":M5S-"*:«6S-""!M7S""":C9S-CHRS(28) 
1085 PRINT'PRESS ANY KEY TO BEGIN.' 
1B9B IFINKEYS-""G0T01B9B 
1188 CLS 

1128 PRINTg96B,CHBS(3B) IlINPUT*HAP, JUMP, 
RS«*NAP* G0T02BBBELSETFRS-*JUMP" G0TO3BBB 
ELSEIFBS-'SCAN* G0TO488BELSEIFRS- 
TOliaB 

2BBe IFHA-1THENMA.B;GOTO2180 

2010 CL5:FORN-lT032!PRINTgST(N,4} , ■ . ■ r iNEXTN: PRINTBAD, " I " f ! PRINT 

e96B,'WANT STATUS OF VISITED STAR SYSTEMS? Y/H" ; : GOSUB9B5B : IFR-B 

GOT0218e 

2B15 PBItJTe415,*SOL'! :PRINTe768,"l - SHIP" ; ! PBfNTSe32 , "E - EXPLO 

RED 0NLY*;:PRINTiB96,'C - COLONIZED*! 

2B2B FOBN=lT032!lFSTS(N,2)-*." NEXTELSEPRINTPST [N, 4) ,STS iN, 2) ( :N 

EXT 

2825 PRIMTiAD,*C) 

21BB IFPEEKll4338)-64GOT02:8BELSEPRINTg968,CKRS(3B)|!PRINTS96B," 

WANT RANGEFINDER? Y/N' ( :GOSUB9B5B ! IFR-8GOTOaB8flELSEPRINTe96B ,CaR 

S(3e) i;PRINT§96B,*KEYB0ARE ARROWS MOVE RAHGEFIKDER -t. KEY I FO 

R INFORMATION. ■[ 

21B5 NA=AD 

211B LA-NA:LS-PEEK(NA+1536B) : PRINTSNA, *+■ j 

2128 IFPEEK ( 14338) ■64THENGOT08BBBELSEIFPEEK 114338) -2GOT026BflELSE 

H«PEEK1144BB) t IFW.8G0TO22BBELSEIFH-16GOT023BBELSEIFW-32G0TO24BBE 

LSEIFW-6 4GOT0258BELSEGOT0212B 

228B IFNA-64<8PRIST*96B,CHRS(3B} ; !GOSUB9BB8 :GOTO2120 

2218 NA-NA-64 

2228 POKELA*1E36B,LS:GOT0211B 

2388 IFNAt64>959GOSUB9eBe:GOT0212eELSENA-NA+64:GOT0222e 

24BB lFHA-l<BGOSUB9B8e!GOT0212BELSENA-HA-l:GOT0222B 

25BB lFNA+l>959G0SUB9BBB:GOT02128ELSENA-NAtl:GOTO222a 

2688 F0RN-lT032!lFST(N,4).NAGOTO265BELSENEXT .. 

261B GOSDB9Ble:PRINTS76e,"NO STAR THIS LOCATION, i :M5S- :M6S- 

265b"gOSUB9B18;M5S-STSIN,1) * " SYSTEH* :XX.ST(N, 1) : VY-ST(N, 2) : ZZ 
-ST(N,3) !GOSUB2653!COT0267B 

2653 IFSGN(X)-SGH(XX)THE»IDX-X-XXELSEDX-ABS1X)+ABS(XX) 

2654 IFSGN[Y)-SGN(YY)THENDY-Y-YYELSEDY-ABS!Y)tABSiyYl 

2655 IFSGN[I)-SGH[:Z)THENDZ-Z-ZZELSEDZ-ABS(Z)+ABS(ZZ) 

2668 DI-S0R|DX12*DY(2+DZ12)iRETURH „„,,„,„ ,,, . . 

2678 M6S-"X, Y, li " + STRS (ST[N,1) ) + ", ' ♦ ^TKS (ST (N, 2) ) ♦ - 
■ . STRS(ST(N,3)).H7S-"DISTAHCE- " -* STRS(DI) » LY. " .PRINT§76 
8,rt5SliPRlNTIB32,M6Sl!PRINTe896,K7SliPRINTe96fl,CHRS(3B);:PBINTS9 
6B -KEY 'N' IF DONE ELSE MOVE BAHGEFINDER. 'i iGOTO 2128 
3BBB IFPW<8TBENPRIHT"H0T ENOUGH POWER LEFT TO JUMP AGAIN, CAPTAI 
N.*iGOTOB8BBELSEIFC9S-CHRS(lB)THENGOTOJ81BELSECLS 
3881 IFMSSX" PRIN™5S:PRINTM6SiPRINTM7S 
3BB5 GOSUB3B18iGOT03fl25 
3018 PRINT-CURRENT LOCATION OF THE 'iSHS!" - ■ i : F0BN-1TO32: IFAD- 



CO-ORDIMATE*|YD;IM)-YD!GOSUB95BB:IPR«BGO 
CO-ORDINATE" I ZO !DD-ZD I GOSUB95»B:IPR-BCO 



ST(N,4)ANDZ-ST(N,3)rHENPRINTSTS(N,l) t" SYSTEM"ELSEHEXTN:PRINT"IH 

DEEP SPACE" 
382fl PRINT" X"," Y"," Z';PRIKTX,Y,Z!lFE»S-"Y" THENMX-7.5 
3821 RETURN 

3825 PRINT'WANT TO JUMP? Y/N" sGOSUB 9B5B : IFR-BGOT03999 
3838 INPUT" DESTINATION X CO-ORDINATE" ;XD:DD-XD!GOSUB95BB : IFH-BGO 
T0383B 

3833 INPUT"DESTINATIOK 
T03B33 

3836 INPUT'DESTINATIOH 
T03B36 

3838 XX-XD:YY-YD:ZZ'ZD:GOSUB2653 

3S4B I PDI<-MXGOT03B6flELSEPRI NT "DISTANCE TO JUMP IS* iDI ; "LIGaTYEA 
RS."lIFMX<7.5THEHPBIHT"OUR ENGINES ARE DAMAGED, CAPTAIN, AND WE 
CAN ONLY JUIIP*(MX:PRINT"LIGHTYEARS. ENTER EXACT CO-ORDINATES TO 

J0KP."iGOTO3»25 

3841 PBINT'THIS IE" ,DI-MX; "LY GTR THAN THE MAXIMUM SAFE DISTAMCE 
■iPRIHT'SHALL WE RISK OVERJUMP, CAPTAIN? Y/N" :GOSUB985fl: IFR-IGO 
T03fl5B 

3842 PRINT"SHALL WE SET COURSE AND JUMP AS FAR AS WE CAS SAFELY? 
Y/N" tGOSUB9B5fl : IFR-BGOT03B25ELSEDX-B tDY-B :01-fliGOSUB93Bfl 

3B43 IFX-XD<BTHENDX»DX+IN!X-X+IHELSEIFX-XD>BTaENDX-DX-I«!X-X-IN 

3844 GOSUB925B:IFR-1GOT03B48 

3845 IFY-YD<BTHENDY-DY+IN:Y-Y+INELSEIFY-YD>BTHENDY-DY-IN!Y-Y-IN 

3846 GOSUB925B:IFR-1GOT03848 

3847 IFZ-ZD<BTHENDi-DZ+IN:Z-Z+INELSEIFZ-ZD>BTHENDZ-DZ-IH!Z-Z-IN 

3848 COSUB925B:IFR-BGOT03843ELSEGOT0387a 

38 58 GOSUB93B8!OV-DI-7.5!lFOV>lflTHENRI-2ELSEIFOV>5THENRI-3ELSEIF 

OV>2TKENRI-4ELSEIFOV>8THEKRI-5 

3052 OV=RND(RI) :IF0V>1THENPR1NT:PRINT"WE MADE ITI " iPRINTiX-XD: Y- 

YD:Z"ZD:GOTO387BELSEF0RN-lT02BB:NEXTN:PRINT"CAPTAINl WB HAVE OV 

ER^UHPED I * 

3853 X-RND(22) iY-RND[181 -1: Z-RND{41) -21 : IFX<24AKDY>llTHENGOT03fl5 

3B54 IFX<22A[JDY<15THENGOT03B56ELSEPRINTiPRINTiPRI»T"SCANNERS IND 

ICATE SPATIAL TIDAL FORCES INCREASING BEYOND OOR HULL'S EHDUR 

ANCE. WE ARE BEING RIPPED APARTl ' :F0RN-lTO15BB t NEXTH:GOSUB92BB ! 

CLS!FORN-1T0388;NEXTH 

3055 PBINT"S0 MUCH FOR THE " jSHIPNAS: PRINT-AND HER CAPTAINI * iPRI 

NT: END . 

3B56 PRINTiPBIHT-WE'RE LOST, CAPTAINI " !PRINTjX-X-lliY-Y-7!GOT03B 

7B 

3060 IFX-XDANDY-YDANDI-ZDTHENPBIKT'NO JUMP WAS MADE - ZERO OISTA 

NCE.'!GOT03825 

3fl63 PRINT "DISTANCE IS-,DI;"LY - A SAFE JUMP. SHALL WE JUMP? Y/N 

■:GOSUB9B58:IFR-BGOT03B25ELSEX-XD:Y-YDrZ-ID:GOSUB93BB 

3fl7B IFABSIX)>1B0RABS(Y)>70RABS[Z) >21THENPRINTiPRlNT"CAPTAINl WE 

'VE STUMBLED INTO A BLACK HOLEl ' iPRINT"THE HOLE'S GRAVITY TIDES 

ABE RIPPING US APARTl * :FORN-lT015BBiNEXTN:GOSUB9225 :CLS:FORH-lTO 

3fl8:NEXTN!GOT03B55 

3B75 IF0V>1THENPRINT-JUKP WAS SUCCESSFUL. ''ELSEOV-2 

3880 AD-(-Yt71*64+(X+lB)'3 + 2:VI-fl!YR-YR-t.6!PW-PW-8!C9S-CHRS(18l! 

I FOV> 1 THENGOSUB3 B 1 e 

3090 IFENS-"N' G0TO3999ELSEIFRND(15)-lTBENENS-'N":EF-RND(9fl)/lBt 
1 2-MX-RND(4) sPRIHT'CAPTAINl THAT LAST JUMP DAMAGED OUR ENGINES 
WE'LL ONLY BE ABLE TO JUMP" iBXl "LYI THE ENGINEERS SAY IT' 

LL TAKE-|EF;"YEARS":PRINT"TO FIX THE ENGINES. " :ED-CD+EF 
3999 M5S-*":GOT08BBB 
4BBB TFPW<2THENPBINT"N0T ENOUGH POWER FOR LONG RANGE SCANNERS, C 

APTAIN.*:GOT049BBELSEPW-PW-2 

4BB1 YR-YR+,2iIFVI-lTHENPRINT'YOU'VE ALREADY SCANNED THIS SYSTDl 
CAPTAIN. •■GOT049BBELSEVI-l.CLSiPBIBT"SCANNING...-:FORH-lT032: I 
FAD.STlN,4)ANDZ.ST(N,3)THEHGOTO410BELSENEXTNiPRINT-NO SYSTEMS WI 
THIN SCANNING RANGE. * !GOTO49fl0 

4ieB IF N>1 GOTO 42BB ELSE PRINT'THE SOL SYSTEM" :PRINT X , Y , 

■ Z"!PRINTSTAR{N,l),STARtS,2),STAB[N,3) iPBIMT"PLASETS! 9':PRINT" 
TERRA-TYPES: 1"!PRINT"MED GRADE METALS" : PRINT*HIGH LEVEL FADNAL/ 

FLORAL TYPES-:PRINT:PRINT"WHAT ARE YOU DOING HERE, "iHASl"?" 

4185 PRINT'GET OUT THERE AND COLONIZEI I I " !GOT049BB 

42BB IFST(N,5) >BGOT043BB 

4285 PRINT"TBE ",STSIH,1),- SYSTEM" : PRINT" X",' Y"," Z*:PRINTSTl 

N,l) ,ST(N,2) ,ST(N,3):P1-RND(15) : PUN.l) -PI > PRINT'PLANETS: iPL(N, 

1) ;P2»RHD(3)-1:IFP2>P1THENP2-B 

4218 TY-RKD(10) : IFTY-10TaENTY-99!P2-0ELSElFP2<lTHENTY-98 

4 215 PL(N,2)-P2:P8INT*TERRA-TYPES:'tP2i 

4228 ST{N,5)-TY!GOSUB94B5:PRINTM3S:PRINTM4SjSTS{N,2)--E : PRINT 

4221 IFTY-60RTY.9TBENNB-RND(4) ELSEGOT04229 

4222 IFNB>lG0T0*229ELSEST(N,5)-TY+18:PRINT:PBlNT"AMBUSHEn BY ALI 

EN aOSTILESl"jGOSUB928B ^,^ „„™„ 

4224 PW-FW-RND(PWl/2;PRINT'POWER DRAINED TO" jPW: PRINT'HE'D BETTE 
R GET ODTTA HERE 1 ' iVl-B jPRINT!GOT049fl8 

4229 IFCL<lGOT0425flELSEPRIHT"SaALL WE COLONIZE THIS SYSTEM, CAPT 
AIN "iNASi"? Y/N"!G0SUB9B5B!lFR-BG0TO4BBB 

423B I FTY-10RTY.20H'ry-99ORT¥- 9 STHENPRI NT "COLONISTS DON'T WANT TO 
GO, CAPTAINI SHALL WE FORCE TBEM7 Y/N" iGOSnB9fl5BELSEGOTO4250 

Program conhnues 
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Prog' am continued 

*2t» IFB-«GOT04 8BeELSETy-TY*lB:ST(N,S)-TY 

4251 IFCL<1PRINT"CAN'T COLONIZE - HE HAVE NO COLONISTS, CAPTAINl 

■iGOT04BflBELSEI»PUT'H0W HAKY COLONISTS SHALL WE SET DOWN, CAPTAI 

(l'lNB:IFKB>CLTHENPRINT"WE DON'T HAVE THAT MANY COLONISTS, SIR,"i 

COT0425e 

4251 IFNB><1NT(NB)PRINT*CANT SEND PART OF A COLONIST, SIRl'iGOT 

0425IELSEIFNB<1PHINT'CAN'T COLONIZE WITHOUT COLONISTS, SIHl'sGOT 

04229 

(261 CL-CL-NB:PHN,3)-NB!NBi-INT(NB/5BB) : IFTY>BANDTY<5THENMI-HD-5 

lKB-2ELSEIFTY>4ASDTY<BTHENMI-NB*2!NB«3ELSEIFTY-80RTY-9THENHI-NBl 

NB-4ELSEIFTY-990RTY-9BTHENMI-5B:NB-2 

4265 PRINT'WHAT PERCENT OF OUR SUPPLIES SHALL WE GIVE TBE COLONI 

STS,"!lSPUT'SIR',PE:IFPE<flPfiINT"CAH"T GIVE AHAY NEGATIVE SUPPLIE 

S, SIRI" :GOTO4;65ELSEIFPE>SUTHENPRIMT'HE DON'T HAVE THAT HUCB, C 

APTAINl':GOT04:6 5ELSESU-SU-PE:IFPE>-BI/5BTHENNB-NB'l 

4366 H-RND[NB) iIFR-lTHENPL(N,3)-8 

42Bfl STARS[N,2).'C':GOT0 4aBB 

4388 PRINT-I RECOGNIZE THIS SYSTQ1 , CAPTAINi" 

4382 PfllNT-THIS IS THE "lETStN,!),' SYSTEM .■; PRINT- X" , ■ Y*," Z" 

iPRINTX.Y.Zi PRINT-PLANETS; '(PUN,!) ! PRINT'TERRA-TYPEE : " ;PL(K,2( : 

TY-STIN,5) :G05UB 9405:PRINTM3S! PRINTM4S 

4384 IFSrS(N,2)-*C* GOT044Be 

4318 IFST|N,5|-160RST(N,5)-19THENGOSUB92Ba:PBINT:PFINT"AJiBUSHED 

BY ALIEN HOSTILES AGAIN 1 *: PRINT'DON ' t YOU EVER LEARN7" iGOT04224 

4358 PRINT'WE EXPLORED THIS SYSTIM YEARS AGO" ; : IFCL<1G0T04BBBELS 

EPHINT", BUT DIDN'T COLONIZE, DO YOU WANT TO COLONIZE NOW? Y/N" 

436fl GOSUB9eSB:IFR'lGOTO42 30ELSEGOTO4Sea 

44B0 PRINT'WE COLONIZED THIS SYSTEM YEARS AGO. ' : IFPL(N,3) >flC0T04 

4 2B 

44B5 PRINT'BUT OUR COLONY DIDN'T SURVIVE! ": IFCL<lGOT048BflELSEPBI 
NT-SHALL WE TRY AGAIN? Y/N' :GOT0436e 

442B IFST|N,5)<lBORST(N,51 >19THENG0T0443BELSE1FRND[ 4) >1THENPRIHT 
■ATTACKED BY ANGRY COLONISTS [' :COSUB92eB ! PRINT-THEY REMEMBER BEI 
NG FORCED ASHORE AGAINST THEIR WILLI ' :COT04224 

4425 ST(N,S)-STIN,5)-1B:PRINT*THE COLONISTS FINALLY FORGIVE US F 
OR FORCING THEM ASHOREl* 

4420 PRINT'POPULATIOH STANDS AT" j PL1N,3) ! IFPL[N,3) >499GOT044SBEL 
SEPfilNT'THE COLONY SEEHS TO BE SURVIVING, CAPTAIN, BUT CAN'T SPA 
RE ANY SUPPLIES. WE'LL HAVE TO MINE rHOEE OURSELVES IF WE WAHT 
TEEM,"!NB-3!GOT04 4 55 

4450 PFINT'THE COLONY HERE IE THRIVING, EIR. • ; PE-RND( i00-PW) ■ PRI 
WT'THEY WANT TO GIVE US-;PE,'% FUEL AND SUPPLIES. SHALL WE TAXE 
IT? Y/N-;GOSUB9B50:IFR-8THENNB-4ELSENB-2:SU-SU+PE:PW-PH+PEilFS 
U>1B0THEHSU><1BB 

4455 GR-RND(NB1 ; IFGR»1THENPL( N,3) -INT[PL(N,3) * .91) ELSEPL(N,3) -Id 
T(PLIN,3)'1.21) 
4498 GOTD48BB 
4800 REM 

4810 IFTY>9THENTY-TY-1B 

4815 IFTY>0ANDTY':4THENTI..4ELSEIFTY>3AHDTY<7TBENTI-.2ELSEIFTY>«A 
NDTY<1BTHENTI-.1ELSEIFTY-B80RTY-98THENTI-.6ELSEIFTV-890RTY-99THE 
NTI-5 

4B2B PRINTjPRINT'SIB, SHOULD WE HINE THIS SYSTEM FOR RADIOACTIVE 

5 (FOR FUEL17 OURPOWER LEVEL IS",PW;-». Y/N" iGOSUB9fl5fl ! IFR-BGOT 
04650 

4825 INPUT-HOW MUCH SHOULD WE MINE7 fl-lBB" i PE- IFPE>1B0PRINT'WE C 
AN ONLY CARRY IBfl*. SIR. ■ !GOT04825ELSEIFPE>BGOT04a27ELSEPfiINT'NO 
NE, SIR? Y/N'iGOSUB9fl50!tFR-lGOTO4B50ELSEGOTO4e25 

*827 IPIOTIPW+PEI^IBB THEKPRINT'BUT SIR, WE ONLY NEED'. IBB-PHi '1 
■:GOT04825 ' 

4830 NBR-TI-PEiPRINT'IT WILL TAKE- , NB; 'YRE TO MINE WHAT YOU WANT 
, CAPTAIN. "iPRINT'SHALL 1 BEGIN THE MINING PROCEDURES? Y/N'-GOSU 
B9flSBTlFH-BGOTO4 820 -wiju 

4B35 YR.YB»NBiPW-PW+PE;PRINT;PRIKT-MINIKG OPERATIONS COMPLETE'iP 
RINT-POKER LEVEL NOW STANDS AT', PW-NB; "I ■ i PRINT 

'.^^L^™!'^**^''^'"'''''^'*'^"^"^''*'^^'^!*^"^ RAH MATERIAL OF TEE TYPE HE 
NEED TO CONVERT TO SUPPLIES, SIR. WE'LL HAVE TO TRY ANOTHE 

R SYSTEM. ■iPRINT!GOT049BB 

486B IFTY.10RTY.40RTY.7THENT1..4ELSEIFTY.20RTY-50RTY-8THEHTI- 2E 
LSEIFTY-30RTY-6ORTY-9THENT1-.I 
4 861 IFSU-YR'I<.1THENSP-BELSESP-SU-YR*2 

4862 PRINTiPRINT'SUPPLIES STAND AT-;SP;'», SIR. SHOULD WE MAKUF 
ACTURE SOME":PRINT-BEFOHE WE LEAVE THIS SYSTEM? Y/N' :GOSUB9e5fl' 1 
FR-BGOT049BB 

4865 INPUT'HOW MUCH SHOULD WE MANUFACTURE, CAPTAIN" (NB: IFNB>BGOT 
0487eELSEPRINT"NONE, SIR? V/N" :GOSUB9B58 : IFH.lGOT049flBELSEGOT04e 

487B IFINT(SU-YH"2tNa) >lBBTHENPRiNT"BUT SIR, WE ONLY NEED*ilB0-E 

U+YR«2:GOTO 4865ELSEPE-NB*TI:PRIWT-IT WILL TAKE*; PE j 'YRS TO CONV 

EHT WHAT YOU WANT. SHALL i BEGIN THE CONVERSION, SIR? Y/N'iGOSU 

B9B5B!lFR-BG0TO4 86S 

4875 YR-YB+PE:SU-SU*NB:PRINT-COHVEfiEION PROCESS COMPLETE. SUPPL 

lEE STAND AT";:IPSU-YR»2<.1PRINT'-B %-ELSEPRINTSU-YR«2 1 ■%■ 

4908 REM 

499fl GOTO 8B00 

5800 CLSiPRINTSHIPNASi- STATUS REPORT" : PRINT 

5Bie PRI NT-POWER-*, PWRi'%' J PRI NT- SUPPLIES-*,SUPPLYf"»*:PRIWT'COL 

ONISTS--;CLNSTS,*IN STASIS" i PRINT'ENGINES- ■ . i IF ENS-'Y* COSDB 9 

B2B ELSE GOSUB 9B3B 

5830 PRINT-SCANNERS- " 1 i IFSCS-- Y"GOSUB9B2BELSEGOSUB9B3B 

584B PRINTiGOSUB3B10 

5B58 PRINT:PRINT"CUBRENT DATE: ■ ,CD:PRINT*END OF MISSION: " i 2310.Y 

EjGOTO 888B ' 

7999 REM ACCT FOR TIME SPENT 

S8BB CDATE-CDATE*YBiPEH-YR:YR-B:IFCDATE<231B*YEAJ>STHBNGOTOB010EL 
SEPRINT!PRINT*YOUR MISSION IS OVER, CAPTAIN "| NASiCS-9 jE-B -CF-B 
8081 FORN-lTD32iIFSTS(N,2).-E"THENE-E+lELSEIFSTS(N,2)-"C*ANDPL[N 
,3)>BTHENCS-CStlELSEIFSTS(N,2)."C"ANDPL'N,3)<lTBENCF-CFtl 
8802 NEX-.TJ!PRINTiPRINT*YOU ENLARGED SOL'S SPHERE OF INFLUENCE TO 
■lCF»CS+E, -SYSTEMS* :PBINT"5UCCESSFULLy COLONI ZED*, CSiPRiNT'UNSUC 
CESSFOLLY COLOHIZED' ,CF : PRINT-EXPLORED- | E( 'MORE. * i PRINT 
8B03 IFCF+CS*E>17PR1NT-0UTSTAHDI»G JOB, - iNAS : PRINT-YOU ARE PROM 
OTED IMMEDIATELY TO RANK OF ADMIRALl ■ i END 

8B04 IFCFtCS*E>lflPRIHT-NOT BAD, -(HAS,-, BUT YOU COULD HAVE TRIE 
D HARDER. -iPRINT-RETAIN RANK WITH HOHORABLE DI SCHABGE. *ELSEPRINT 
YOU ARE AN BIBARASSEMENT TO THE FLEET, * , SAS : PRINT'DEMOTED TO B 
ANK OF ENSIGN WITH DISHONORABLE DISCHARGEI* 
8B0» END 

801B PWR-PWR-PER:IF PWRJ5 GOTO 8020 ELSE PRINT-HE'VE RUN OUT OF 
FUEL FOR OUR ENGINES AND GENERATORS. WE'RE DOOMED TO DRIFT F 

SB2B SU-SU-PE'2tIF SU>5 THEN GOTO 8B3B ELSE PRINT-WE'VE RUN OUT 
OF SUPPLIES, CAPTAIN. THEN CREW HAS MUTINIEDI THEY'RE ON THE 

IH 'nkl TO BOOT YOU OUT THE HRLOCK. .."sEHD 
883fl IF ENS--Y- GOTO 9040 Ei5E IF CDATE>-EDATE THEN PBINT-THE EN 

Program con/inues 



Program coritirjueO 

CINEERS HAVE FIXED THE JUMP ENGINES, SIRl FULL JUMP ABILIT 

Y HAS BEEN BESTOREDl - sENS-- Y- 
BB4B REM 

8988 C9$-CHR$(2B) iGOTO 1120 

9BBB PHINTS96B,CHBS(3e) ;:PRINTS96e, "CAN'T GO OFF THE SCREEN.-, iR 
ETURN 

98B9 REM SPACES TO CORNER 

9B1B PBl NT?76 8, EPS: 1 PRI NT^832,5PS;: PRI tn'0B9e,5P$n RETURN 
9819 REM OP MEGS 

9B28 PRINT-FULLY OPERATIONAL" :RETUBN 
9038 PBINT"REDUCED CAPACITY" sRETURN 
9049 REM GET BEEPOHSE Y OH N 

9858 IF PEEFll<3*4|-2 THEN R-1 ELSE IF PEER 1 14338) -64 THEN B-fl E 
LSE GOTO 90 5 B 

9B55 IF PEEK114344) >< 2 AND PEEK114338) X 64 THEN RETUtlH ELSE 
GOTO 98 5 5 

9199 REM JIGGLE SCREEN 

9208 FOR N-1 TO 15 iOUT255 ,8: FOR 0-1 TO JiNEXT DiOUT255 ,B : FOR D-1 
TO 3:NEXT D:NEXT N;RETURN 

9224 REM FELL INTO A BLACK HOLE 

9225 CLS:FOR N-1 TO IB : PRINT?RND( 959) , - . ' , iNEXT N: PRINT*4e0 , *•-; 
■M-400IFOR N'l TO 2BiPRINT*B,CHRS(23) ,:FOR D-1 TO JsNEXT D:PBINT 
§0,CaRSl2a) ;:FOR D"l TO JiNEXT DsIF M>0 THEN M-M-40:FOR P-1 TO H 
:NEXT P 

9226 NEXT N:RETURN 
9249 HEM FIND DIST 

9258 IF SQRIDX[2 ■- DY [ 2 ■> DZ|21 > KX THEN R-1 ELSE R-B 
9251 RETURN 

9269 REM FIND SYSTEM NAME 

9270 FOR N-1 TO 32:IF ADDR-STAR(N,4) AND Z-STAB(N,3) THEN PRINT* 
- THE ";STAHSIN,1) ," SYSTEM." ELSE NEXT N:PRINT 

9271 RETURN 

9299 REM JUMP SCREEN 

938B CLS::FOfi N-1 TO IB :X1'RHD (621 : Yl -RND (13 1 :PRINTeYl*64*Xl , " . " 

,:NEXT[FOR N-1 TO 200:NEXTirOR N-1 TO 5: PBINT^B ,CHRS ( 23) , :FOB D- 

1 TO 3[NEXT:PRlKTeB,CHR!(28) cFOR D-1 TO 3:NEXT:KEXT N:CLS 

9101 VA-176:GOSUB 9305: VA-32 :GOSUB 93B5:CLS:FOR N-1 TO 2B0:NEXT 

N I RETURN 

9105 XI.15838iX2-1584B!X3-XliX4-X2:FOB N-1 TO 6 : X3-Xl*6e :Xl»Xl-6 

B:X4"X4*68:X2-X2-68:POKE Xl.VAjPOKE X2,VA;P0KE X3,VA:P0KE X4,VA: 

NEXT Ni RETURN 

9399 REM SYSTEM VALUE 

9400 TYPE-STAR(SHIPLG(N,2) ,5) 

9485 IF TYPE-98 THEN M3S-"L0H GRADE METALS* iM4S-*MO FAUNAL/FLORA 
L TYPES" :RETURN ELSE IF TyPE-99 THEN B3S-"N0 VALUE WHATEVER" :M4S 
-""l RETURN ELSE IF TyPE>lB THEN TYPE-TYPE-IB 
9418 IF TYPE-1 OR TYPE-2 OR TYPE-3 THEN MIS-'LOH* ELSE IF TYPE-4 

OR TYPE-5 OR TYPE-6 THEN M1S-"MED- ELSE IF TYPE-7 OR TYPE-8 OR 
TlfPE-9 THEN M1S-"HIGH" 
9428 IF TYPE-1 OH TYPE-4 OR TYPE-7 THEN M2S--L0W* ELSE IF TYpe-2 

OR TYPE-5 OR TYPE-8 THEN MJS-'MED* ELSE IF TVPE-3 OB rYPE-6 OR 
rYPE-9 THEN M2S-'HIGH" 

9438 n3S-MlS * " GRADE METALS" iM4S-M2S + " LEVEL FAUSAL/FLORAL T 
YPES" 

945B RETURN 

9588 IFDD><INT(DD1PRINT:PR1NT*HUST BE INTEGER" : PRINT;R-BELSER-1 
9581 RETURN 



ing from primitive to highly 
evolved. You may colonize any 
system that has been explored 
except hostile, inhabited sys- 
tems. The only option in such a 
case is to leave quickly or to 
eventually be shot down. 

If you choose to colonize a 
particular system, take note of 
the system's resources. If the 
system is poor, initially more 
supplies will be needed to start 
the colony. If you choose to 
force the colonists to land 
against their will, you may find 
them unreceptive to a return 
visit. 

After the decision of col- 
onization has been settled, you 
have the option of mining and 
refining the system's resources 
for future supplies. 

The command Jump allows 
your ship to travel instan- 
taneously from one point in 
space to another without cross- 
ing the intervening distance. 
This is the same method of 
travel that was used in "Star 
Guard." (Seven and a half 
lightyears is the maximum safe 



distance for jumping.) Jumping 
beyond this there is the danger 
of becoming lost by jumping to 
a random point in space along 
with blowing your ship's 
engines. In these situations, 
you will have to limp along as 
best you can until your engi- 
neers can repair the damage. 

Status indicates in percen- 
tiles your reserve of supplies 
and fuel remaining, colonists 
left in stasis, and years left in 
the mission. 

The Mission Begins 

You feel a low rumble 
through the soles of your feel. 
Your shuttle has docked. As 
you wait for the air to cycle into 
the docking bay, you almost 
feel the weight of the entire 
world settling onto your 
shoulders. So much depends 
on your success! Grimly, you 
vow not to waste supplies or 
colonists. You are determined 
to explore and colonize as 
many of the best star systems 
as you can. The mission has 
begun. ■ 
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HE NEW LAREDO 
WHEN YOU'RE R 
GET DOWN TO B 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disk memory 
system for TRS80 Models I and III 
Laredo's LS525 rounds up a Seagate 
ST506 Drive. LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 

controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read'wrlte/seek access time 
through full block buffering and variably 
tuned interleave. 



• On-board data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

■ Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October 1 . 1981 buy the 
LS525 for the OEM/dealer price of 
$2990. a savings of $760 off the usual 
suggested retail price of $3750. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 
Memory System and the LSI 500 Series 
Controller, contact: 
Laredo Systems, Inc. >^26 

2264 Oille dc Lun«. SjuiIa CUr«. CA 95050 
408-9ftS-03 1 5 




kirodo >9^m^ Inc 



'See Liil ol Aavflisers on p'g* 3S6 
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APPLICATIONS 



Interest-generating programs for the Pocket Computer. 



Loan Sharp 



Walter J. Atkins. Jr. Ph.D. 

Qtrs 4410 A 

USAF Academy, CO 80840 



Have you ever wondered 
what the monthly payment 
on a nev^ car would be, or 
doubted that a salesman was 
quoting you the true interest 
rate? The Pocket Computer can 
help you. 

I selected three programs 
ideally suited for the TRS-80 
Pocket Computer from my col- 
lection of financial programs 
for my Model I, The first pro- 
gram finds the term of a loan. 
The second finds the loan pay- 
ment amount. The third finds 
the true annual interest rate, I 
have combined these into one 
Pocket Computer program. 



Each of the program modules 
can also be used alone. 

The Pocket Computer has a 
defined program mode that 
allows any of several programs 
in memory to be run by pressing 
two keys. If the computer is put 
into the defined program (DEF) 
mode, pressing Shift A runs the 
module that finds the term of a 
loan. Pressing Shift B runs the 
payment amount module, and 
Shift C runs the interest rate 
module, 

The Program 

The program takes about 800 
steps and uses half the Pocket 
Computer's memory. The pro- 
gram Is 40 lines long; it should 
be obvious to those of you who 
do not yet have a Pocket Com- 
puter that it can easily handle 
some very serious computing 
tasks. 



I — Annual interest rate in percent 

J— Last interest rate guess 

K— Interasl rate incremenl 

N — Loan term in months 

P— Amounl ot loan 

Q — Monthly paymanl 

R— Computed payment in irtlerest rale module 

y — Loan term in yaara 

2— Minimum monthly payment 

Table 1. Variables 



The loan program is divided 
into three parts. Lines 10-70 
find the time required to pay off 
a loan of a certain amount 
when the interest rate and 
amount of monthly payments 
are known. There is a minimum 



payment that must be made to 
pay off a loan. If a monthly pay- 
ment of less than that minimum 
is made, the interest will ex- 
ceed the payment and the loan 
will never be paid off. If a 
monthly payment less than the 



la : 
15 ; 
20 ; 
2.'5 

:,o ; 

35 

40 : 
47 : 
5u 

■iz . 

67 
70 

loa 

110 
115 
120 
130 
140 
150 
160 

iro 

180 
200 
110 
215 
220 
230 
14 
250 
260 
27 
280 
290 
300 
510 
320 
330 
34 
350 



REM •LulTinEfn-bHFTfi 

Fl=|IJ:lE"FIHC> LDRt TEFI1" 
UffUTXOtiM nt-IOUtlT= ■" F 
IHFUT"ftMlt, lHT,Fr^TE> ■- ■ ^ ■ " 
Z-F ' 1 llni-.Z'liil-Z'l'.'^." 5 
FFiUSE"TG FFii L'JnH mT " I 
F FiUiE " M I Ml ni,HI FFi. NEMT-J" Z 
!MFlJT"MOMTHLi PFiVJ'>EtlT= "" O 
■,=-■ LGij* l-'F*' I 1 00 ■ ' ■ li*r 
N-iM2:N-IMT' N*.5 ■ 
FFIHT'LOAII TEFM MOrlTHi ■ = ■' II 
EMt- 
REM 'LuiiUFFi.rtEMT' 

FFlUSE"FlH[/ FFi'.'ME»iT FiMOUHT" 



1 

16 
FF.IJSE"FEF-:Etn" 



■ LGC' I' I lOi 



; 1HPUT"F«1&IJHT OF LCiWH 

; lHF-UT"ftMN, INT .RFiTE' ". ' = 

; INPUT-MUtlE.ER OF IIONTH'^z. 

:&■=■ 1»P. 11,-- '.I-' ■ I-ll'l 

,C-INT'.C(*100* ,5,' 100 

:Pi;iNT"MONTHLV Pfi'i'MEHT-l ■' ' 

:ENC' 

iCEM *F1HC'RF.TE* 

;"C" 

iPftUSe'TlND IHTEPE^T PHTE" 

; INPUT "MONTHLV Pft'.'MEMT- :- 

; IMPUT'FiMOlJMT OF LOl=iH= " " 

^ INPUT"HUr«EF OF t10HTH^> " 

: I-IO; 3»0 

;I-I- 100;Pf«J^E"i:OMPUTlHG. 

:R-^1•P 12-' '.l-' ' l-I2-'l,' ■ 

;K-ftEE- I'100-3/ 1;J-I''100 

;IF R-Cl T«M 330 

; IF R-'Q THEN 320 

, l-l'iOOfK^COTO 260 

: 1"1'100-K :GCiTO 260 

; 1-1*100: 1-lHT. I'1000'^,5- 

: PRINT "ftHH, INT. RATE' ■.-■-'■ 



P 
~ 1 : 1' 
■■■ M 
-H. : 



,PL1. 



. MR I T " 
R-IHTF' 



Program Listing. 
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minimum is entered in the pro- 
gram, the Pocket Computer in- 
dicates an error when it tries to 
evaluate the LOG (unction in 
lir>e 55 I have included lines 
35-45 80 the computer 
calculates and displays the 
minimum payment before It 
asks you to enter your monthly 
payment. 

Lines 100-1BO calculate the 
monthly payment required to 
pay otf a loan of a certain 
amount in a specified period at 
a given interest rate. 

Lines 200-350 calculate the 
annual interest rate. This sec- 
tion uses an iterative technique 
to determine the rate. First It 
assumes an interest rate of 10 
percent. It then calculates the 
payment necessary to pay off 
the loan at that interest rate. If 
the calculated payment is 
higher than the monthly 
payment you entered, it 
assumes a lower interest rate 
and repeats the process. If the 
calculated payment is lower 
than your monthly payment, It 
assumes a higher interest rate 



and repeats the process. After 
a few iterations, the computer 
zeroes m on the true interest 
rate. The iteration process can 
take several seconds, so in line 
260 I have the computer print 
out the message "COM- 
PUTING.. PLS.. WAIT" after 
each iteration. ■ 



SHFTA 

Find Lo»n Tsfm 
Loan Amount « >"> 10OO0 
ANN INT H«lB(''.| = >'> 15 
To Pay Loan At 16 PBfcenI 
Min-mum PByment = $125 
Monthly Payment = >''1234,56 
Loan Term (Monltis) ^ 9 

SMFTB 

Find PBymeni Amount 
Amount Of Loan - >7 1234.56 
ANN INT. Ral«(%) =>■? 10 
Numtwr 0( Monltis - >7 24 
Monlfily Paymarl - J56 97 

SHFT C 

Find Inleresl Rale 
Montnty Payment ^ ?■> 900 
Amount Of Loan = .;■'' 85000 
Number Of Months = -'' 360 
ANN. 1NT.R«I«1%)' 12-391 



Table 2. Sample Runs 



STOCK MARKET 
SOFTWARE 



i 



Bi. H A H Tnding Company for Mod I. U. A 111 TRS 80«s | 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THU EVIDENCE I 

FOR MOHf INFORMATION OB TO ORDER CONTACT: 

H * T>i W&DING CQMcd^NY 

POST OFFICE BOX a»»«« .,223 

PLEASANT HILL. CALrORMA •4S23 
T»t«phon« 4IS/B37-I030 



VISA & MASTERCARD 



LOAD 
80 

LOADS 
EASY 



(WmS) 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 




In the April, 1981 Issue of 80 Mlcrcrcomputing, we In- 
troduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings In 80 

Microcomputing. 

If you have not yet ordered any LOAD 80 tapes and 
wish you had, don't worry. We are now offering a "back 
issue" cassette program. You can order any LOAD 80 
cassette from April, 1981 to date for $9.95. Back issues 
of 80 Microcomputing are also available with the LOAD 
80 cassettes for $2.50. With the complete documenta- 
tion found in the companion magazine Issue, you 
shouid have no difficulty loading any of 80's major pro- 
grams. 



Please send ma trie tollo^Ning: 



TAPES 

D April, 1981 
[ I May, 1981 
r June, 1981 
U July, 1981 
U August, 1981 



MAGAZINES 

April, 1961 
May, 1981 
June, 1981 
July, 1981 
August, 1981 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes 

overseas add 11 00 


S9 95 






BO WicrocompulinQ 

BOO S1 50 for poslage ar>d 
handling it ordetino magazines 


S3 50 








T 


OTAL 





Check Enclosed Bill my: Q MC D AE 



VISA 



NAME 

ADDRESS 

CITY 

CARD# 

SIGNATURE 



STATE 



ZIP. 

_ _ EXP. DATE. 
INTERBANK*. 



JiJUgd T M o< Radio Stnck 



i JJUgd T P, 



Please allow 44 weeks lor deirvery 

LOAD 60 • BG Pine SIreel • Pet^ftxirtwofi NH OKSfl 
Attn Debra Bou<)r<eau 



-See List ol AOvtrtisBrs an page 3B6 
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UTILITY 



Tired of abbreviations for error messages? Read on. 



Full Error 



Harry and Ken Keairns 
920 La Plante 
Sioux City I A 51109 



While friends with expan- 
sion Interfaces and disk 
drives enjoyed full error mes- 
sages, we struggled with the 
two letter abbreviations charac- 

^terlstic of Level II Basic. After 
almost wearing out the Basic 

''] Reference Manual, we set out to 
find a way to develop longer 
messages on our system, with- 
out spending the money for a 
disk system. 

Our first effort produced the 
Basic program In Program List- 
ing 1. We generally loaded this 
before we started developing a 
program, and after the program 
was debugged, replaced it with 
an error handling routine. While 
it served our initial purpose, it 



was inconvenient to load It for 
every program. 

tt gave us a lietter under- 
standing of the ERL and 
ERR/2 -fl functions, which are 
important when developing an 
error routine. The ERL function 
returns the line number that 
contains an error, and the 
ERR/2 -t-t function returns the 
error number that corresponds 
with the table on page B/1 of the 
manual. 

RAM Link 

Like many TRS-80 users, we 
spend time wandering around 
the ROM area. On one of these 
excursions we discovered that 
memory location 41A6H pro- 
vides a link between the Level II 
error routine and the RAM area 
of memory. This location Is 
called both before the error 
message Is sent to the screen 
and Immediately afterward. 

Program Listing 2 disassem- 
bles this area of ROM {19FEH 
thru 1A1EH), with remarks on 
the portion we will be changing. 
The link location {41A6H) nor- 
mally contains a Return state- 
ment, but provision was made 



for a three-byte Jump command 
to another location in memory. 
We will use this provision to 
replace the ROM routine with 
one of our own design. 

Replace the first 16 bytes of 
the ROM routine, and use the 
balance of the routine to send 
the remainder of the message 
{i.e., "Error in line nn"). 

The first section of Program 
Listing 3 is a short routine that 
replaces the Return statement 
at 41 A6H with a jump to the start 
of our routine. After loading the 
object code tape, entering a 
start point of 32292 initializes 
the new subroutine. This will 
have to be repeated in the event 
of a system crash, but can be 
protected by answering the 
memory size question with 
32291 when you first bring the 
'80 to life. 

The second section defines 
the messages to be sent to the 
screen in place of the two-letter 
abbreviations. Note that the 
messages end with a CHR$<34), 
as the ROM routine used to get 
the message to the screen looks 
for this as a delimiter. When it 
finds a quotation mark (or a zero 



byte), it knows the message is 
complete. 

The next section is a table of 
the addresses for the messages 
previously defined. This ap- 
proach Is similar to the ap- 
proach used by the ROM rou- 
tine, and It solves the problem of 
messages of unequal length. 

The final section selects the 
message, sends it to the screen, 
and then completes the mes- 
sage using the original ROM 
routine. 

The actual selection Is han- 
dled by loading the HL registers 
with the first address in our two- 
byte address table. The ERR 
code is then added, and the HL 
registers are pointed at the 
proper message. Make use of 
the DE registers to retrieve the 
address— save their contents 
with a PUSH Instruction. After 
loading the address bytes, ex- 
change DE and HL, as the rou- 
tine expects to find the address 
there. Restore DE with a POP 
and the message is ready to be 
sent to the screen. 

Now make a CALL to 28A7H, 
the location of a ROM routine 
that displays a string on the 
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MODEL 




26-4002 

64K 1 Drive 

$3297.00 

36-4160 1 OfiveExp 

26-4161 2 Drive Exp 

26-4162 3 Drive Exp 

26-4150 Hord Oriv«-l. , . . 
26-4(51 Hord Drive -2. ... 
26-4530 Scripsit II 


S) 034 .00 
.1574.00 
.2114.00 
.3994.00 + 
.3144.00+ 
. . 265.00 


26-4512 Profile II 

26-45)1 Visicok II 


. . 162.00 
. . 265.00 


36-4501 Gen Ledger 

36-4S06 Mali list 


. . 180.00 
72.00 


PRINTERS 




CERTROniCS 
BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



DISCOUNT 

TRS-80® o»" 

COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 



We carry the full line of TRS-80 Computers. All 
other software, furniture, and accestories at dis- 
count from catalog price. We stock most items 
to assure you fast delivery and save you money. 

26-1140 Expansion Interfoce $249.00 

26-1141 16K Exp. Interface 339.00 

26-1 142 32K Exp. Interfoce 429.00 

26-1 14S RS232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 

..... *Pl|lNTnS* * • • • • 

26-1165 Line Primer V 1710.00 

26-1 167 Line Printer VII 360.00 

261 166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1799.00 

26-1 168 Line Printer VIM 720.00 



Pocket Computer 

26-3501 1.9KP.C SI 88 00 

26-3503 Cassette IF 45.00 

14-812 Recorder 72.00 

26-3505 Mini Printer 134.00 

WRITE US FOR A 
FREE CATALOG 



THOUSANDS OF SATISFIED CUSTOMERS 



MODEL 




26-1061 4KI S609.00 

26 1062 16K III S49.00 

26-1066 48K III 

W 2 Drives. RS232 2077.00 

COLOR 




OX'KfiS^i' 



26-3001 4K S318.00 

26 3002 16K Ext. Basic 4M.00 

26-3003 32K Ext. Basic. . . 638.00 

26-3010 Color Video .353.00 

261206 Recorder 54.00 




ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 ToII Free Order Entry 



WJCRQ iriflMflGEIHEIilT SVSTEMS, JWC" 



No Taxes on Out Of 
State Shipments 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. #4 
115 C. SECOND AVE. S.W. 

CAIRO, GEORGIA 31728 



Immediate Shipment 

^. , .. ^ w (912) 3777120 Gfl. Phone No. & Export 

From Stock on Most Items t»».«o ». » r«i.t.r.j tr.-.m-ri. o* .*.. T«.jr corp. 



A copy of the monufocturer's wor- 
ronty con be obtoined free upon 
specific written request to the 
Electronics Deportment of our 
Cairo, Georgio Retoil Store. 



^See List of Aaveftisers on page 386 
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screen. After sending the string 
revert to the ROM routine to 
send the word "error," and the 
line number, if appropriate. End 



the routine with a Jump to 
1A1FH, the location immediate- 
ly after the second call to 
41A6H. 



This program uses less than 
500 bytes and usually saves 
much more than the eight-sec- 
ond loading time in look-up time 



alone. We also hope it will pro- 
vide the ROM-roamers amongst 
us with new locations to experi- 
ment with.B 



1 on ERROR 


GOTO 24 : GOTO 25 


1 FRIHT?64, 


•NEXT WITHOUT FOB ERROR IN LINE" ; EBL : END 


2 PRINT^tl, 


■SYNTAX ERROR IN LINE" j ERL : END 


3 PRI(JTS64, 


■RETURN WITHOUT GOSUB EBRGP IN LINE' ; ERL : END 


4 PItItIT9e4, 


■OUT OF DATA ERROR IN LINE" ; ERL : END 


5 FRIKT»e4, 


•illegal FUNCTION CALL IS LINE" ,■ ERL : END 


6 PHINTS64, 


"OVERFLOW ERROR IN LINE" ; ERL ; END 


7 PRItJTS6 4, 


■OUT OF MEMORY ERROR IN LINE' ; ERL : END 


8 PRISTS64, 


"UNDEFINED LINE IN LINE" ; ERL ; END 


9 fRlint6t, 


"SUBSCRIPT OUT OF RANGE ERROR IN LINE" ; EBL : END 


If PRINT«6t, 


"BEDIMENSIONED ARRAY ERROR IN LINE* ; ERL ; END 


11 PR1NTS6 4, 


"DIVISION BY ZERO ERROR IN LINE" : ERL : END 


12 REM 


■ID ERROR POSSIBLE COMMAND KODE ONLY 


13 PRINTS* 4, 


"TYPE MISBATCH ERROR IN LINE" ; ERL : END 


14 PRINTS64, 


■OUT OF STRING SPACE ERROR IN LINE" ; EBL ; END 


15 PRINT?64, 


"STRING TOO LONG ERROR IN LINE* ; ERL : END 


16 PR!NT?G4, 


"STRING FORMULA TOO COHPLEX IN LINE" ; ERL : END 


17 PRINTS64, 


■CAN'T CONTINUE ERROR IN LINE' ; ERL : END 


18 PHINTg64, 


■NO RESUME ERBOB IN LINE" ; ERL : END 


19 PBIIJTg64, 


"RESUME WITHOUT ERROR IN LINE* ; EBL : END 


2B PRrNTP64, 


"UNPRINTABLE ERBOB IN LINE" ; ERL : END 


21 PHINTS64, 


■hissing operand error in line" ; erl : end 


22 PR1HT9G4, 


■BAD FILE DATA EBROB ' : END 


23 PRINTg64, 


■disc basic error * : END 


24 ON ERR/ 2+ 


1 GOTO I, 2, 3, 4, 5, 6, 7, 8, 9, IB, 11,12, 13, 14, 15, 16, 17, 


18,19,20,21 


,22,23 


25 REM 


'STAKT YOUR PROGRAM HERE 




Program Listing 1. 



19EC 


OOIOO 


ORG 


19ECM 




1»EC C»*«tl 


OOUQ 


CALL 


IIA^ 


RAH LIMK LKAIION 


l»Et 57 


00120 


LD 


D.A 


?\JJ ERROR CODE IN D 


1«0 Xit 


OOMu 


LD 


A,3FH 


aUESTION MARX 


I'FJ COZAOJ 


ooiw 


CW.1. 


032AH 


DIWLHIS SINCLE ei'( 


ivn 1' 


OOkSO 


AID 


ML.DE 


POINTS 10 TTPE Qf ERROR 


l?f* E 


MUO 


LI 


A.IHL) 


GfT FIRST LETTER 


ivn tB^AOj 


00170 


CW.L 


032AH 


llSRLAl LETTER 


i»;i. Dv 


coiao 


RST 


lOH 


]NC ». AMD LOAOS 2ND LETTER 


i?re cbMOj 


00 HO 


OIL 


032an 


DISPLAY 2NI LETIEB 


\fii ino\i 


00200 


LD 


HL-141DH 


POINTS TO MORI ERROR- 


ISOl C5 


00210 


PUSH 


W. 




l«a2 2UA1C 


00220 


LD 


HL,(UOEAH) 




!*05 El 


00! 30 


E> 


IS*).* 




lAOe CM77a 


002UO 


CALL 


2eA7H 




IW El 


00250 


POP 


M. 




lAOk IIFEFF 


002AO 


LI 


Dt.OfFFEH 




l«OD Of 


O0270 


RSI 


I8H 




I*OE CATUOi 


00280 


^ 


;.0»7UH 




imi 7C 


002 »0 


LD 


t.H 




i»i; « 


00300 


AKD 


L 




1<I13 ,'C 


ooiio 


IHC 


« 




\»1* CVA70F 


00320 


CALL 


NZ.0FA7K 




:*!/ JlCl 


00310 


LI 


A,0C1N 




lAlf CI>8BD3 


OOJ'iO 


CALL 


03SBH 




1'IC CJHiLH\ 


00350 


CALL 


UlACH 




&000 


OOlbO 


EKI 






00*0(1 lOIftL 


ERKDDS 


Prog 


ram Listing 2 





00100 ORG 7E;4H 






OOUO :«*l*l(*«lt«ttl«>«tlll«t*t*>ltttt***l<»t*««t*l*t>*«**»«ft«« 


00670 


DEFU QMERH 


OOIZO :* « 


00680 


DEFU ULERB 


00130 :* THIS SECTION IMIlfllI7E:, RAH LINK « 


00690 


DEFU ESERR 


00140 :< * 


00700 


DEFU DDERR 


00150 ;t«t*«tl«l«*t*t«*««*«««*t«t*tt**t«*»l«ttftt*l***ltt>t*t«t« 


00710 


DEFU DOERR 


00160 : 


00720 


DEFU IDERR 


00370 ID HL.mnfiH TPCiNT TO RArt LINK 


00730 


DEFU TMERR 


00180 LD DtrSIARl :F!NC START 


00740 


DEFW OSERfi 


001^0 LD (hl>.ul3h ijuif ro - 


00750 


DEFU LSERR 


0020U INC HL 


00760 


DEFU STERR 


OOilO LD (HLi.t :- LSI* 


00770 


DEFU CNERR 


00220 INC HL 


007B0 


DEFU NRERR 


OOZJO LD (HLI.D : - flSB 


00790 


DEFU RUERR 


OOEWO JP 007ZH iBflCK TO BASIC 


OOBOO 


DEFU UEERR 


002SU j****»»*l*lttt*tt*ftt*».M**tt$**$**tt*$*iHt»tttttt*»t**.*«tt 


OOBIO 


DEFU MQERR 


00260 ;t 1 


00820 


DEFU FDERR 


00270 !« THIS SELIION DEFINES TH£ ERROR MESSAGES t 


00830 


DEFU L3ERR 


'J0280 :l t 


OO840 




003?0 ;**»>t*l««>*>*tt((««t«>tlt>l>>tl*(ll*«(«t««tt*t«t«tt>tt«t 


00650 


:((>(««(* t«t«tt****(it***t*t«>t(*(*tt«*tlt«(ttt>>t*>t«ltt> 


O03OO : 


00860 


:t ( 


00310 NFtRR BEFH 'NE<T UITKOUT FOR"' 


00970 


;> THIS SECTION SELECTS THE CORRECT MESSAGE 1 


00320 SNEfiP, DEFM SYNTAX"' 


OOB80 


;t 1 


0O33O RGERft DEFM 'REIJRN ylTHOUI GOSUB"' 


00890 


;ttttltl*t>*tt»«ttttttt**>>t>*tt>>t>>*tS**>tt>>t>>*>>*>It> 


00340 O&ERH DEFM 'OUT OF DATA"' 


00900 




00350 FCEBfi DEFM 'ILLEGAL FUNCTION CALL"' 


00910 


START LD HL.TABL jPOINT TO LQOK-UP TABLE 


00360 DyEHH DEFM 'OyERFLOU'" 


00920 


ADD HL.BC lADVANCE TO MESSAGE NEEDED 


00370 OrtERR DEFM 'OUT OF MEHORY"' 


00930 


PUSH DE iSAOE REGISTER 


003BO ULERR DEFM 'UNDEFINED LIME"' 


00940 


LD E,(HL) ;GET LSB OF MESSAGE ADDRESS 


00390 BStRR DEFfl 'SUBSURIPT QUI OF RANGE"' 


00950 


INC HL * 


00400 DDERR DEFM 'REDEMENSIONED ARRAY"' 


00960 


LD D,(HL) ;GET MSB OF MESSAGE ADDRESS 


00410 DOEPR DEFM 'JIUIDE BY ZERO"' 


00970 


EX DE,HL ;POINT TO MESSAGE 


00420 IDERB DEFM ILLEGAL DIRECT COMMAND" 


00980 


POP DE ;RESTORE REGISTER 


00430 TMERR DEFM 'TYPE MISMATCH"' 


00990 




00440 OSERR DEFM 'OUT OF STRING MEMORY"' 


01000 


;*»«>t*t*|«*«tl*tt«a>(ttl*>ttt(t«t«**>*»Mlt*«tt<**«*f*l 


00450 LSERR DEFM 'STRING :00 LONG"' 


01010 


;■ t 


00460 STERR DEFM 'iiTRiNG ;00 COMPLEX"' 


01020 


:« THIS SECTION SENDS MESSAGE TO THE SCREEt* * 


00170 CNERR DEFM 'CAN NOT CONTINUE"' 


01030 


;« t 


OOftSO NRERR DEFM 'NO RESUME"' 


01040 


:ltt(>(tt>titfttti(t(tSI«t«ltt*tt«tttii*iii>>t>>tf>*l*tt(t 


00^90 HUEHR DEFM RLSUMt yilHOUT'" 


01050 


OUTPT CALL 2afl7H jDISPLAY STRING TQ SCREEN 


00500 UEERR DEFM ' IJNPRINIABLE'" 


01060 


LD HLa91DH tPOINT TQ 'ERROR' MESSAGE 


0O510 nOEKR DEFM 'MISSING OPERAND"' 


01070 


PUSH HL tSAVE it 


00520 FDERR DEFM 'BAD fILE DATA"' 


01080 


LD HL. (40EAH) 


00530 L3ERR DEFM 'DISC BASIC ONLY"' 


01090 


EX (SP).HL 


00540 ; 


01100 


CALL 2eA7H 


00550 ;t*tttttt*t****»*>***««*»l»«tl*ltt*t**t*t)II>(t*lt*l»*t«t( 


OHIO 


POP HL 


00560 T* t 


01120 


LD DE.OFFFEH 


00570 r* THIS SELTION IS A TABLE OF fiESSflGL ADDRESSES » 


OllJO 


RST 18H 


0053U :t a 


01140 


JP Z.0674H 


00590 -t>***t*ll «■«***! «tx»ltt»(l«t**«(t(*f*tt*tlt«**tt*tl*l>>«t 


01150 


LD A.H 


00600 : 


0116O 


AND L 


00610 TABL DEFU NFFRR 


01170 


INC A 


00620 DEFU 5NLRR 


OllBO 


CALL NZ.0FA7H 


00630 DLf U RGFRR 


01190 


LD A,ocm 


U0i4u DEFU QDtRR 


01200 


CALL 03BBH 


00650 DEFU fCERR 


01210 


JP lAlFH 


00660 DEFU DiJLRR 


01220 


END 


Program 


Listing 3. 
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ZIP UP YOUR 
. MODEL I 



SPEED-UP UNIT - an easy to install elvctronic device that enables programs 
to run 2 to 3 times taster. It's the fastest and finest quality speed-up unit 
on ttiB market. 

• guaranteed to double processing speed- no additional 
purctiases required. 

• programs will run up to 3 times faster (5.3 mtiz) by adding 
a Z8QB microprocessor and delay tine - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keytioard power-on light changas color to indicate operating 
speed 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen tor a much easier to read presentation. 
Software controlled Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only. 
Assembled. 
$24.00 

"SATISFACTION GUARANTEED ' 



Add $2. DO postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

{916) 635-5408 

Dealer inquiries invited 



MOVING? 

Let us know a weeks in advance so that you won't miss a sin- 
gle issue of rO Wu ri.^.. uf'ipul!' 

Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



□ Address change only 
D Extend subscription 
n Enter new subscription 
u 1 year $25.00 



□ Payment enclosed 

(1 extra BONUS issue] 
D Bill me later 
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It you have nu label handy, pnni OLD address here. 
Call 



^ Name 



Address 



tcity. 



Sute. 



print NEW address hew: 



Name 



Call 



Address. 
City 



.Sute. 



Zip, 



I'O Box 4H1 • farmin^d.ile NY 11717 



SPECIAL DELIVERY 



WORDPROCESSING 

. POWER - 

for the TRS-80® 

" If you'te presently looking lor a mailing list proc- 
essor thia represents the current state of the art 

80 MICROCOMPUTING - 80 REVIEWS - JULY 1980 

MAILFORM is data entry at its best, just iill in 
the iorm! FAST, EASY to use functions include: 

search, sort, extract, page forward and back. 

Transparent cursor', insert/delete characters, 

and MORE' 

MAIliRITE prints personalized' form letters 
by inserting information from MAILFORM into 
Electric Pencil*, Scripsit*, or BASIC text files. 
Print letters, labels, even envelopes! Boldface, 
underscore, change margins, pause, print 
'unprintable' characters, and MORE! 

XTRA! includes, MAILFORM; MAILRITE - 
with capability of printing variable text from 
a 'key' file; MAILABEL - 1. 2, 3, or 4 across 
label printer; and MAILSORT - sort a full 
40 track double density data diskette in 
only 48KI 

ALL MACHINE LANGUAGE 

msani unsurpas*d 
SPEED. REUABIUTY & EASE OF USE 

For VISA, Master Card & COD orders only 

Call NOW - TOLLFREE 

(800) 824-7888 

ASK FOR OPERATOR 203 

California (800) 852-7777 

Hawaii & Alaska (800) 824-7919 

For more information call (214} 233-3998 

(R»quirtts min 32K aingU dick driv«) 

FOR THE MODEL I & III 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY ..$199 
FOR THE MODEL n 

SPECIAL DELIVERY $199 



(Raquir** Mod II DOS v*r«ion 2.0) 

.^,si..„-.lK...l^.ii..rk.-t I^ri.iy' 



■■~J 



software concepts 

13534 Preston Rd. Suite 142 
Dallas, Texas 75240 



Dealer Inquiries invited >^299 



-See I-isf ol Advei'isers on page 386 
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UTILITY 



Store source and object code on disk with this Microsoft program. 



Modifying EDTASM Plus 



Arne Rohde 
Pi level 31 
7600 Struer 
Denmark 



One of the main problems 
with converting from a 
tape-based TRS-80 to disk drives 
is that many programs use tape 
for data storage. Conversion is 
usually no problem with Basic 
programs, since the user has ac- 
cess to the source code and 
relocation is handled by the 
Basic interpreter. System pro- 
grams are often more problem- 
atic. Relocation Is complicated, 
if the source code is not avail- 
able, and is desirable, if DOS 
facilities are needed and the 
program storage area conflicts 
with the DOS storage area. 

The common solution is to 
move the program in memory so 
it can be loaded with DOS, then 
move it to its correct location, 
destroying the DOS. The DOS fa- 
cilities, such as data storage on 
disk, are no longer available, 
and the user is forced to contin- 



ue to use tape for this purpose. 

MIcrosoH Edltor/Assemblar Plus 

Microsoft's Editor/Assembler 
Plus is tape-based. It was in- 
tended to replace Radio Shack's 
EDTASM and T-Bug. offering 
more facilities at a lower price. 
The disadvantage is that no 
modification is available allow- 
ing it to be used on a disk-based 
system to store source and ob- 
ject code on disk. 

Apparat Inc. has made a 
modification to Radio Shack's 
EDTASM which allows it to be 
used with TRSDOS or NEWDOS. 
It comes with NEWDOS/80, but 
the user must purchase the 
Radio Shack version to obtain 
the documentation. There are 
still advantages to using the 
Microsoft version, such as a 
macro facility, the ability to 
generate code directly into 
memory, and the option of leav- 
ing the source In memory while 
the program is debugged with 
Z-Bug. 

I have used both and prefer 
the Microsoft version for most 
purposes, even though it lacks a 
cross-reference listing facility. 
The program itself uses almost 
12K storage when all modules 



are resident, so the sheer size of 
the task puts relocation out of 
the question for me. However. 
relocation is the only way to 
store source code on disk. If the 
Dump command could be used 
to move the source to disk and 
Load used to reload it into 
memory before the assembler is 
moved into position, the source 
code need not be stored on tape. 
Since object code can be gen- 
erated directly into memory (as 
long as It does not conflict with 
the assembler). Dump can also 
be used to store the object code 
on disk. In certain cases It may 
be necessary to write the object 
code to tape, and then copy it to 
disk with TAPEDISK or similar 
utility. 

Modifying EDTASM/Plus 

I have not been able to find 
any free memory within ED- 
TASM/Plus, so the modifica- 
tions must be made by removing 
commands and using up the re- 
sulting space by appending the 
utility onto the end of the code 
and forcing the program to re- 
gard this as reserved memory or 
by locating the utility at the high 
end of memory and forcing the 
program to avoid this area. 



I rejected the first approach, 
since none of the commands 
seem dispensable. The third ap- 
proach requires different proce- 
dures lor different memory sizes 
and restricts the routines which 
can be located in this area. I 
chose the second approach, 
even though it has one major 
disadvantage— quashing the 
assembler orZ-Bug destroys the 
modification. However, if quash- 
ing is necessary, the advan- 
tages of having all three rou- 
tines available simultaneously 
would no longer apply. Since I 
have 48K available (over 32K 
free), large programs can usual- 
ly be written without a need to 
quash. 

EDTASM/Plus occupies the 
area from 4380H - 7265H, but 
source code is written from 
71C9H, the remainder being 
one-time code. I use the area 
from 7266H - 72FFH. allowing 
the source code to begin at 
73O0H. I also use the area nor- 
mally used by the Quash com- 
mand. When I store programs 
such as EDTASM/Plus on disk, I 
save more memory than is nec- 
essary in order to recreate the 
original program environment 
as closely as possible without 
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leftovers from DOS. I do this by 
storing the contents of reserved 
memory from 40CX)H to the be- 
ginning of the program, together 
with the program itself. The 
modifications shown In the Pro- 
gram Listing can be applied by 
using the following sequence, 
using RSM2D as the rrronltor. 

1. Load RSM2D. 

2. Reset with the break key 
held down. 

3. Answer the mwnory size 
question with a specific 
value. 

4. Type System. 

5. Load EOTASM/Plus. 

6. Enter RSM20 by typing/en- 
try address. 

7. Type in the changes shown 
in the Listing. (You must sup- 
ply the hex values of the text 
strings.) 

8. Move the area 4000H- 
7305H to 5200H-8505H. 

9. Press reset to load the DOS. 

10. Dump the area from 5200H 
- 8505H to disk, with either 
84F0H or no transfer point. 

11. If DOS transfer is used. 
Dump 8500H - aSOSH, and 
transfer 84F0H as a dummy 
source module. 

The procedure for initiating 
the assembler (assuming DOS 
entry point) is now as follows: 

1. Type EDTASM (if EDTASM 
/Plus is stored as EDTASM/ 
CMD). 

2. Type the name of the 
source file to be loaded. 

If 84F0H is used as transfer 
point for EDTASM, Load must 
be used for EDTASM when a 
source file is to t>e loaded im- 
mediately afterward. 

When a source file is to be 
saved on disk, command Q is 
used (for Quit, instead of Quash) 
to move the source In memory 
and to display the values to be 
used for the Dump statement. 
Note these values since the 
screen will be erased as soon as 
the space key rs depressed. The 
Dump command should be us&l 
as soon as DOS has been load- 
ed. The source files are nof di- 
rectly transferable to other 
assemblers, although a conver- 
sion program could easily be 
written. The source could also 
be transferred via cassette tape. 

Comments 

The modifications may need a 



few comments. I found that the 
command resides in the area 
646CH - 64B3H. The command 
table address starts at 4659H, 
with one byte for the command 
code and two bytes for the ad- 
dress of the corresponding rou- 
tine. These values should be 
checked before the modifica- 
tions are applied. I used the ED- 
TASM/Plus warm entry point 
(4363H), since source code is 



present on entry. This entry 
skips the check for the end-of- 
memory address (normally all 
memory is used with no check 
for reserved memory), so this ad- 
dress must also be set up. I use 
this opportunity to reserve mem- 
ory to advantage. I have a driver 
for an RS232 printer resident 
here, so It may be used with EO- 
TASM/Plus. Also, I leave room 
for RSM2D or Other code as re- 



quired. 

The source start and end ad- 
dresses are stored together with 
the source code in the four bytes 
at 8500H. When command Q is 
used, the source code and ad- 
dresses are moved in memory, 
but no check is made for menv 
ory overflow. A check could be 
made that the new end address 
does not exceed the address In 
location 4236H, though It should 
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00100 


fCHANGES TO MICROSOFT EDTASH-PLUS TO ALLOW FOR STORING 1 






00110 


fASSEHBler text 


ON DISK 








00120 


;PROGRAHHCD BY 


ARNE ROHDE, STRUER, DENMARK, SEPTEMBER 1980 






00130 


;C0HNAHD Q USED 


TO EXIT AND MOVE SOURCE IN MEMORY 


8500 




00140 


BFSTAD 


EQU 


e500H 


; STORE BUFFER START ADDR 


8502 




00150 


BPENAD 


EQU 


BFSTAD+2 


; STORE BUFFER END ADDR 


8504 




00160 


BUFFER 


EQU 


BFENAO+2 


; STORE TEXT BUFFER 


EBFF 




00170 
00160 


HEHEHD 


EQU 


OBBFFH 


jHEHORY END, ROOM FOR RSM2D 
;PRINTER DRIVER, ETC 


646C 




00190 




ORG 


646CH 


;Q CCWHAND AREA 


646C 


2A3242 


00200 




LD 


HL,(4232H) 


I END OF SOURCE PTR 


646P 


E5 


00210 




PUSH 


HL 


; STORE END ADDR 


6470 


ED5B3042 


00220 




LD 


DE,(4230H) 


I START OF SOURCE 


6474 


D5 


00230 




PUSH 


DE 


f STORE START ADDR 


6475 


23 


00240 




INC 


HL 


I INCLUDE FFFP END HARK 


6476 


E5 


00250 




PUSH 


HL 


; STORE ADDR 


6477 


23 


00260 




INC 


HL 




6478 


AF 


00270 




XOR 


A 


;CLR CARRY 


6479 


EDS 2 


00280 




SBC 


HL,DE 


;FIND HOVE LENGTH 


647B 


44 


00290 




LD 


B,H 




647C 


4D 


00300 




LD 


C,L 


;XFER TO BYTE COUNT 


647D 


210365 


00310 




LD 


HL,BUFFER-1 


;DEST ADDR -1 


6480 


09 


00320 




ADD 


HL,BC 


t+ LEH > END ADDR 


6481 


EB 


00330 




EX 


DE,HL 


•PEST ADDR TO DE 


6482 


El 


00340 




POP 


HL 


; SOURCE ADDR 


6483 


D5 


00350 




PUSH 


DE 


; STORE END AODR 


6484 


EDB6 


00360 




LDDR 




jHOVE TEXT 


6486 


Dl 


00370 




POP 


DE 


;END ADDR AGAIN 


6487 


El 


00380 




POP 


HL 


; START ADDR 


6488 


220085 


00390 




LD 


(BFSTAD) ,HL 


; STORE HITH TEXT 


648B 


El 


00400 




POP 


HL 


fEHD ADDR 


648C 


220285 


00410 




LD 


(BFENAD) ,HL 


f STORE IT AS HELL 


64eF 


219C72 


00420 




LD 


HL,TEXT+37 


fEND ADDR TEXT 


6492 


7A 


00430 




LD 


A,D 




6493 


CD6672 


00440 




CALL 


CNVL 


; CONVERT HSD TO HEX 


6496 


7A 


00450 




LD 


A,D 




6497 


CD6A72 


00460 




CALL 


CNVR 


; CONVERT LSD TO HEX 


649A 


7B 


00470 




LD 


A,E 




649B 


CD6672 


00460 




CALL 


CNVL 


{CONVERT HSD TO HEX 


649E 


7B 


00490 




LD 


A,E 




649P 


CD6A72 


00500 




CALL 


CNVR 


.•CONVERT LSlT TO HEX 


64A2 


217772 


00510 




LD 


HL.TBXT 




64A5 


CD3245 


00520 




CALL 


4532H 


rWRITE TO SCREEN 


64A8 




00530 


wtent 


EQU 


$ 




64A8 


3A4e38 


0OS40 




LD 


A,(3840H} 


/KEYBOARD HEMORY 


64AB 


E6e0 


00550 




AND 


80H 


.•ISOLATE SPACE 


6 4 AD 


2eF9 


00560 




JR 


Z.HTENT 


iHOT SPACE KEY 


64AF 


C30000 


00570 




JP 





fBOOT SYSTEM 






00580 


I COULD 


CONT TO 


64B3H, END OF Q 


COMMAND 






00590 


• 












00600 


;END OF 


EDTASH 


- EXTRA MEMORY 


RESERVED 


7266 




00610 




ORG 


7266H 








00620 


.•CONVERT NIBBLE 


TO HEX CHARACTER | 


7266 




00630 


CNVL 


EQU 


$ 




7266 


0F 


00640 




RRCA 






7267 


BF 


0S65O 




RRCA 






7266 


0F 


0S660 




RRCA 






7269 


0F 


e0670 




RRCA 




;MOVE MSD TO LSD 


726A 




00680 


CNVR 


EQU 


$ 




726A 


E60F 


00690 




AND 


OFH 


; REMOVE UNWANTED 


726C 


F630 


00700 




OR 


30H 


I ASSUME NUMERIC 


726E 


FE3A 


00710 




CP 


3AH 


; CHECK ALPHA 


7278 


3802 


00720 




JR 


CHEXOK 




7272 


C607 


00730 




ADD 


A,07H 


/CONVERT TO A-F 


7274 




00740 


KEXOK 


EQU 


$ 




7274 


77 


00750 




LD 


(HL),A 


J STORE IN TEXT 


7275 


23 


00760 




INC 


HL 




7276 


C9 


00770 




RET 






7277 


0A0A 


00780 


TEXT 


DEFW 


8A0AH 


ILF LF 


7279 


44 


00790 




DEFH 


'DUMP FILENAME 


(START-X' 

Prograf" Li$U'tg continues 
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Program Listing continued 












728F 


27 


00800 




DEFB 


27H 






7290 


38 


00810 




DEFM 


'8500 ' 






7294 


27 


00620 




DEFB 


27H 






7295 


2C 


00830 




DEFM 


' ,END=X' 






729B 


27 


00840 




DEFB 


27H 






729C 


50 


00850 




DEFK 


'xxxx' 






72A0 


27 


00860 




DEFB 


27H 






72A1 


2C 


00870 




DEFM 


' ,TRA = X' 






72A7 


27 


00880 




DEFB 


27H 






72A8 


38 


00890 




DEFM 


'64F0' 






72Af 


27 


00900 




DEFB 


27H 






72AD 


29 


00910 




DEFK 


•) ' 






7 2AE 


0A 


00920 




DEFB 


0AH 




;L1NE FEED 


72AF 


28 


00930 




DEFM 


'(SPACE) TO 


BOOT' I 


7 2BE 


0A 


00940 




DEFB 


0AH 




;LF 


72BF 


80 


00950 
00960 




DEFB 


80H 




; TERM I NATE TEXT 






00970 


; ENTRY POINT AFTER EDTASM MOVED 


IN MEMORY 


7 2C0 




00980 


BEGIN 


EQU 


s 






72C0 


318043 


00990 




LD 


SP,4380H 




; STACK FOR EDTASM 


72C3 


2A0085 


01000 




LD 


HL, (BFSTAD) 




;TEXT START ADDRESS 


7 2C6 


223042 


01010 




LD 


(4230H) ,HL 




J STORE IN EDTASM 


72C9 


E5 


01020 




PUSH 


HL 






72CA 


2A02e5 


01030 




LD 


HL, (BFENAD) 




;TEXT END ADDR 


7 2CD 


223242 


01040 




LD 


(4232H) ,HL 




! STORE IT 


7 2D0 


23 


01050 




INC 


HL 






72D1 


23 


01060 




INC 


HL 




jPAST FFFF TERMINATOR 


72D2 


Dl 


01070 




POP 


DE 




;DEST FOR MOVE 


72D3 


ED52 


01080 




SBC 


HL.DE 




; LENGTH FOR MOVE 


72D5 


44 


01090 




LD 


B,H 






72D6 


4D 


01100 




LD 


C,L 




; STORE IN BYTE COUNT 


72D7 


210485 


01110 




LD 


HL, BUFFER 




; START OF MOVE 


72DA 


EDB0 


01120 




LDIR 






;MOVE TEXT TO POSITION 


72DC 


21FFEB 


01130 




LD 


HL,«EHEND 




;EDTASM END ADDR (MODIFY) 


72DF 


223642 


01140 




LD 


(4236H) ,HL 






72E2 


2B 


01150 




DEC 


HL 






72E3 


223442 


01160 




LD 


[4234H) ,HL 




; STORE EDTASM POINTERS 


7 2E6 


C38343 


01170 
01160 




JP 


4383H 




; ENTRY TO LEAVE TEXT BUFFER 






01190 


; CODE 


ON ENTRY 


WHEN TEXT LOADED 




72F0 




01200 




ORG 


72F0H 






72F0 


F3 


01210 




DI 






jDISABLE INTERRUPTS 


72F1 


010633 


01220 




LD 


BC,3306H 




;MOVE LENGTH 


72F4 


210B52 


01230 




LD 


HL,52B0H 




.-BUFFER FROM 


72F7 


110040 


01240 




LD 


DE,4000H 




;DEST ADDR 


72FA 


EDB0 


01250 




LDIR 








72FC 


C3C072 


01260 




JP 


BEGIN 




;G0 TO MOVE TEXT 


72FF 


00 


01270 




NOP 






iFOR 7300H 






01260 


;SET UP ADDRESSES AND TEXT 


END MARKER FOR EMPTY TEXT BUFFER 1 






01290 


;REQUIRED SINCE 


WARM ENTRY 


JSED, 


IF NO SOURCE MODULE LOADED 






01300 


;KILL 


BE OVERLAID IF SOURCE 


MODULE LOADED. 1 


7300 


007 3 


01310 




DEFW 


7300H 




jTEXT START 


7302 


0073 


01320 




DEFW 


73a0H 




;TEXT END 


7304 


FFPF 


01330 




DEFW 


0FFFFH 




;END MARKER 


0000 




01340 




END 









be Obvious from the values in 
the displayed message. The ini- 
tial values stored at 7300H are 
used to initialize the source pro- 
gram area if no source program 
is to t>e loaded; they will be over- 
laid it a source program is load- 
ed t>efore executing the assem- 
bler. 

The solution t chose is not 
ideal tor converting programs to 
run on DOS systems, but it is 
reasonably easy to implement. 
The alternative would t>e to pur- 
chase a more expensive macro 
assembler and forget all about 
Z-Bug or to attempt both a 
relocation and a modification of 
EDTASM/Plus to allow it to be 
resident with DOS. With those 
alternatives, you can easily live 
with a few shortcomings! 

I implemented the modifica- 
tions using NEWDOS/80 and 
RSM2D, but I can see no reason 
why they should not work with 
TRSDOS as well. In fact, the for- 
mat of the message with the 
Dump parameters has been cod- 
ed in the TRSDOS format rather 
than the NEWDOS/80 format, 
which, incidentally, is much 
simpler. 

The principles of these 
modifications are also appli- 
cable to other programs; I have 
converted Tiny Pascal to work 
with disk storage for source and 
P-code. It is now much faster 
and it is much more reliable than 
using tape.H 



GANTT-PACK 



EASY PROJECT PLANNING 

• Dynamic Scratchpad Entry 



UNIQUE PROGRAM FEATURES 

• Simple Editing/Updating 

• Automatic Organization • Rapid Screen Review 

• Graphics for Communications • Printer of Your Choice 

• Charts and Data to Screen and Printer 



Q 



POWERFUL, FLEXIBLE. SYSTEM DESIGNED BY EXPERIENCED PROFESSIONALS 

• Now available for TRS-80' Model I, 48 K, 2 disks 

• TRS-80* Models II and III Versions by December, 1981 



LIBRA LABORATORIES, INC. 
495 Main Street 
Metuchen. NJ 08840 



^57 



Tel. (201) 494-2224 

Gantt-Pack © Libra Laboratories, 1981 

PRICE $149.50 

*TRS-80 Trademark of Tandy Corp, 
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Not all Spelling Checkers are the same 



MICROPROOF 



T.M. 



stands out! 



EASY TO USE: Prepare your text on any Z-80 bas^ micro- 
computer, using any of a number of popular word 
processing programs. When you are finished, enter the 
appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the 
scr^n. Then correcting MICROPROOF can display each 
error separately, requesting you to enter the correct 
spelling for each. Yc«j are also given the option of displaying 
errors in context or adding words to MlCROPROOF's 
50,000 word vocabulary. Finally, MICROPROOF corrects 
y<wr document. All in less than a minute. 



SELECT APPROPRIATE RESPONSE: 



CORRECT MISSPELLED WORD: 
LEAVE WORD "AS IS ": 
DISPLAY WORD IN CONTEXT: 
ADD WORD TO DICTIONARY: 

EXIT: 



ENTER CORRECT WORD 
HIT <ENTEH> KEY 
? 



WORD: 
RESPONSE: 



[Your error) 



Correcting MICROPROOF Screer^ Display 

SPEED is the single most important factor in a dictionary 
program. All dictionary programs will find your potential 
errors but if the program is too slow, you arc not likely to 
use it. MICROPROOF's speed is cxjtstanding. It can proof- 
read a several page letter in 20 seconds. 



LOW PRICES: Standard MICROPROOF is available for 
either $89.50 (TRS-80* Models 1 or 111 ) or 
$149.50 (CP/M«, TRS-80* Model II and all others). The 
optional correction feature can be added at any time tor 
am additional $60.00, Optional patches to integrate 
MICROPROOF into your word processing software can 
also be added at any time for an additional $35.00. 
(Integration patch not needed for Wordstar*.) 



MICROPROOF'S FULL 50.000 WORD VOCABU- 
LARY saves you time and allows you greater confidence 
in the lists of potential errors that MICROPROOF 
identifies. The mini-dictionary programs, with their 10,000 
and 20,000 word vocabularies, have many correctly spelled 
words omitted from their vocabularies. Consequentially, 
they identify as potentizil "errors" many words that are 
actually spelled correctly; five to ten times as many such 
words as does MICROPROOF. So, when you use 
MICROPROOF you will have far fewer extra words to 
evaluate, a major time savings. There will be less need to 
look up words in order to verify that they are in fact spelled 
correctly. The extra 30,000 words in MICROPROOF's 
vocabulary assures you confidence in the error fists that 
MICROPROOF generates. 

There are other proofreading programs availa^ to choose 
from. Since MICROPROOF became available in December 
of 1980, a number of companies have announced programs 
with small dictionaries. It took us almost two years to 
develop MICROPROOF. During that time we were able to 
compress our full 50,000 word dictionary into a manageable 
size (fits on one single density 5^/^ inch disk). And we were 
able to design a proofing program which operates 
remarkably fast. The chart below illustrates the corr^iara- 
tive advantages of MICROPROOF. 

ADVANTAGES OF MICROPROOF 

MICROPROOF OTHERS 
DICTIONARY (Mmi- 

SOFTWARE Dictionaries) 



DICTIONARY SIZE 


50,000 Words 


20,000 Words 


DISK SPACE 


70.000 BYTES 


170,000 BYTES 


REQUIRED 


[fits easily on 




FOR DICTIONARY 


one 5-4" disk) 




DICTIONARY 


VIRTUALLY 


EXTREMELY 


ENLARGEMENT 


UNLIMITED 


LIMITED 


SPEED-400 Words 


20 Seconds 


1 to 5 Minutes 


SPEED -3, 000 Words 


1 Minute 


2 to 10 Minutes 


CORRECTION 


Optional 


Not Available 


FEATURE 








See vour local microcomputer dealer or write to: 



CORNUCOPIA SOFTWARE 



Post Office Box 5028. Walnut Creek, California 94396 



(415) 893-0633 ^3/8 
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Get yourself a real chill on 



HALL0WiI 



In the nationwide 
CompuServe Adventure Tournament. 



Prizes: Grand Masters win two 

hours of free time on CompuServe. 

Runners-up win a CompuServe 
Adventure T-shirt (Grand Masters 
win this too.) 

Everyone who enters can, on 
request, receive a large poster of 
the Gray Morrow art on the opposite 
page in full color. We'll charge your 
account $2.00 for postage and 
handling. 

When? Starting at 6 PM local time on 

Friday, October 30, running through 
5 AM on Monday, November 2. 

How? Since this will be our first nationally- 
advertised tournament, we may 
have to make some last minute 
changes following our "in-house" 
tournament on Labor Day. So 
check the "What's New" section of 
the CompuServe Information 
Service for details preceding the 
contest. So enter. Collect treasures. 
Slay dwarves. And practice, prac- 
tice, practice. How else will we be 
able to afford the T-shirts? 



CompuServe 

5000 Arlington Centre Blvd. 
Columbus, Oh 43220 
Information Service Division 
(800) 848-8990 



^424 



If you're not already a member 
of the country's largest personal 
computer network, get on-line now! 

How does it work? 

Your computer talks to our computers. You 
need a modem and some special software. 
Software for tfie TRS-80* and Apple 11*^ 
computers are available at many Radio Shack** 
outlets and all Radio Shack" Computer 
Centers. Atari" users can access the system 
viaTelelink'" software. Persons owning other 
brands of computers or terminals can also 
purchase the CompuSen/e Information Service 
through Radio Shack *^. In more than 260 
U.S. cities you can reach the CompuServe 
Information Service via a local phone call. The 
cost is $5 per hour, billed in minutes, to your 
charge card, for service between 6 PM and 
5 AM local time on weekdays and all day on 
Saturday. Sunday and most holidays. Limited 
daytime access is available at a higher rate. 

What do I get? 

There are more than 1 75 topics listed in the 
on-line index. Most first-time users are 
interested in: 

1. News, weather, sports. We offer the 
electronic editions of many of the major 
daily newspapers ar>d the AP news and 
sports wires. 

2. CB simulation. "Talk" to other computer 
users anywhere in the country. We also 
offer electronic mail. 

3. Games. Many, including the multi-player 
Space War. Star-Trek, four Adventure 
games. 

4. Finance. Again, a wide variety for both 
historical and current data on stocks, bonds 
and commodities. 

5. Computer user groups (including national 
bulletin boards) and computer 
manufacturers' newsletters. 

6. Home information. Family Service. 
Government publications. Aviation news. 
Energy-saving tips. And more. 

When you are ready, CompuServe Information 
Service can provide you with a lot of big 
mainframe computer power. But see a 
demonstration at Radio Shack ^ right away so 
you can get on-line before the tournament. 

Radio Shack and TflS-80 are Irademarks ol Tandy 

Corporation ATARI and Telelink are trademarks ol ATARI, 
Inc Apple IS a irademark of Apple Computer, Inc 



■See Lisl of Advertisers on page 386 
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TECHNIQUE 



An easier way for data entry. 



Formatted Screen Input 



F. Christian Byrnes 
83 Fairmount Ave. 
Hackensack, NJ 07601 



Entering moderate volumes 
of data Into the TRS-80 can 
be frustrating. A Basic program 
displays a prompting message 
which requests the input of one 
or more fields of data. If more 
than one field Is to be Input, the 
operator must know to use a 
comma between them. 

Terminals attached to large 
systems enjoy the advantage 
of formatted screens. The 
operator sees the screen as be- 
ing divided into headings or 
titles and Input fields. Data 
corresponding to each heading 
is entered following its 
heading and the cursor jumps 
from one field to the next as the 
data Is entered. All of the 
headings remain unaltered in 
place until all of the data for 
that screen have been entered. 

Initially the TRS-80 does not 
appear to allow us the luxury of 
a formatted screen, but a little 
fancy footwork can change the 
operator's view of the computer 
drastically. 

Overvtew 

This program listing is an ex- 
ample of the formatting and in- 
put routines Imbedded in a 
driver program to demonstrate 
how they may be used. Screen 
formatting is performed by the 
routine in statements 1100 and 



1110 using arrays OS and 08$. 
Array OS contains, in element 
zero, the number of field 
headings in this screen. Each 
element of the array thereafter 
contains the screen starting 
position of a heading. The 
elements of array OSS, starting 
with element one, contain the 
text corresponding to the posi- 
tions specified in OS. 

Input is accepted by a call to 
the routine at statement 900. 
This routine selects the next 
element from array OM and 
calls the subroutine at state- 
ment 1000 to position the cur- 
sor and read the keyboard. 
Array OM has two dimensions. 
Each element pair consists of a 
starting position and length for 
an input field. Element (0,0) 
contains a count of input fields 
for this screen. The accepted 
data is returned in variable 0B$. 
Variable OE contains a pointer 
to the next element of OM. 

Logic 

The example program shows 
how to use these subroutines. 
Line one dimensions the re- 
quired arrays. Line 10 and 20 
load these arrays from data 
statements. In a disk system 
this information could easily be 
read from a file. 

Line 30 calls the screen for- 
matting subroutine. Upon 
return all of the headings have 
been placed In their proper 
positions on the screen. 

Line 35 calls the screen input 
procedure at line 900. Line 910 
tests variable OE. The numt)er 



of the next array element of OM 
to tie used as location and 
length of the input field Is con- 
tained in OE. The calling pro- 
gram could change this value 
prior to a call in order to skip or 
repeat a field. If such a function 
is to be used, a device such as 
T-Beep would be needed to 
alert the operator to the 
change. 

Lines 920 and 930 set inter- 
nal variables XP and XL equal 
to the referenced elements of 



array OM and are followed by a 
call to the subroutine at line 
1000. This method was chosen 
so multiple format and input 
tables could be used within a 
single program. Modified ver- 
sions of lines 900 to 960 could 
be coded in a single program, 
each for a different screen for- 
mat, and all could call line 1000 
for input. 

• 1000 t>egins the keyboard 
input routine. 

• 1001 sets 0B$ to null. 



1 CLEAB15BatDin OH(25, 2! ,DS(58) ,OSS ( 58) 

5 DIN AA${25) 

le HEAD 0M(8,B)iF0B OH-1 TO CM ((,«) iREAD 0« (OH ,1) ,0H (Cffl ,2) iNEXT 

2fl READ OSdIiPOR OH-l TO 0S(8) tREAD OS (OB) ,OSS (CW) iHEXT 

30 GOSUB 116B 

35 GOSUB 900 

*t AAS(OE-1)-OB5 

Se IF OE<-OH(0,fl} THEN 35 

60 CLS;PRIin' "THABI; YOU* 

70 'PROCESSING ROUTINE GOES HERE 

80 FOB H-1 TO OEiPRINT AAS(H))' "tiNEXTN 

B5 N$-IHKEVS:IE LEN(N$)-B THEN 85 

90 GOTO 30 

900 'INPUT ARRAY DRIVER 

918 IF OE-0 OR OE>Om0,0) THEN OE-1 

920 XP-OH(OE,1) 

930 XL-OH(0E,2) 

94B GOSUB 1000 

950 OE-OE+1 

960 RETURN 

1000 'GET FIELD 

1001 OBS--- 

1002 PRINTSXP,CHES(14) i 
1004 FOR OC-1 TO XL 

1B05 OAS-IHKEYS:IF LEHtOAS).0 THEN 1005 
1010 IF 0AS-CHRS(8) THEN GOSUB 1050 :GOTO10e5 
1012 IF 0AS"CHRS(9) THEN OAS-CHRS(32) 
1015 IF 0AS-CHRS(13) THEN OC -XL:GOTO 103B 

1019 IF OAS>CHHS(90) OR OA5<CHRS(J2) THEN 1005 

1020 OBS-OBS+OAS:PRINT OASi 
1038 NEXTiPRINT CHRS ( 15) | iRETURN 
1050 ■ BACKSPACE KEY PRESSED 

1055 IF LEN(OBS)-0 THEN OC=l!RETURN 

1060 0BS-LEFTS(0BS,LEN(0BS)-1} :PRINT CHRS(B) ; 

1065 OC-OC-1 

1070 RETURN 

IIBB CLS:FOR OH-1 TO OS(0) : PRINTSOS (OH) ,0S$(OH) :NEXT 

1118 RETURN 

900B DATA 1 5, 2BB, 40, 272, 44, 336, 15, 35 9, 2, 367, 5, 4 59, 3, 46 3, 3, 467, 4, 

476,4,525,40,671,8,735,8,841,55,905,55,969,55 

9010 DATA 11, 81, SAMPLE DATA COLLECTION SCREEN, 192 , ACCOUNT NAME , 2 
6 4, ADDRESS, 328, CITY, 353, STATE, 36 3, ZIP, 448, "TELEPHONE [ ) 

EXT:" 

9011 DATA 512, REFERRED BY, 652, FIRST ACTIVE DATE ,716 , LAST ACTIVE 
DATE, 832, COHHENTS 



Program Listing 
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spelling Errors? Does yourTRS-80* wordprocessor need help? 




T.M. 



CAN SPELL rendezvous AND mnemonic AND OVER 38.000 OTHER WORDS 

Now let TRS-80 and Proofreader by Aspen Software Company check your Scripsit*. Electric Pencil, or other 
documents for spelling and typographical errors. It has all the features needed to meet your proofreading requirements. 



■ Checks every single word of even your biggest 
document in under 5 minutes. 

• The 38,000 word dictionary is one of the 

largest available. 

• Dictionary can be easily extended to add more 

words such as technical terms or names. 



• All unknown words are listed on the screen and 

can be saved on a file for printing. 

• Works with almost any TRS-80 wordprocessor 

including Scripsit and Electric Pencil. 

• Comes with complete and easy to understand 

User's Manual. 



• Proof-Edit"*, optional interactive corrections feature for Model I/Ill 

QKAMMATik" 



BEYOND SPELLING CHECKING 



A spelling checker may nol be enough! This paragraph 
contains a number of common errors (indicated by 
underlining) that will be discovered by Grammatik that 
would seldom ever be caught by a spelling checker. 
FOr example. Grammatik checks for improper word 
usage as identified b> a number of writing style man- 
uals (such as '_^e!dom cver)^ Grammatik will check for 
ihc presence of certain words such as, jargon or sexi^i 
icrms. jl also checks for consisiant punctuation, cap- 



ilaliMiion, balanced quotation marks and parentheses, 
■And and repeated words. In addition, ii will produce a 
list of all unique words found in your document with the 
number ot times each was used. Grammatik comes 
with a dictionary ot commonlv misused phrases and a 
didinnary of sexist terms. It ahn includes a complete 
ici of uiililics to build., son. and merge phrase and 
jargon dictionaries ot your own. Works with Scnpsil. 
Electric Pencil, and other standard TRSDOS text files. 



MODFL I Kequir<.-s.}2K RAM, I disk drive. TRSDOS or NEWDOS. 
MODKl II HequircsMK RAM. 1 disk drive. TRSDOS 2,0 

lean ihcck 1,2 fik-susme XFHKSYSl 

MODKL 111 Reiiuir<:sJ2K RAM. 1 disk drive, TRSDOS 

Manual only, spccitv model Ircflindabte) 



Proofreader 
$M,00 

$109.00 

S64,00 

$3,00 



Proof-Edit 
$30.00 

N/A 

$30,00 

$5.00 



Grammatik 
$49,00 

$99,00 

$59,00 

S5,00 



Aspen Software programs are professional quality 
software tools developed for the TRS-80 by a Ph.D. in 
Computer Science. Other tools include: 



— SOFT SCREEN '"a powerful, state of the art full 
screen text editor. Over a year in development. Soft- 
Screen is compatible with all TRS-80 programming 
languages, including BASIC, FORTRAN. MACRO. 
Ratfor. and COBOL. Kasy to use. comes with tutorial 
and full documentation. 



— RATFOR. a structured language preprocessor 
for Fortran developed at Bell Labs. Aspen Software 
Raifor provides a number of extensions, including 



"case" and "string". Includes complete manual with 
;ill ihc information needed to learn and write Ratfor 
programs. Requires FORTRAN, 

— PP-RATFOR. a preny printer for use with Aspen 
Software Ratfor, Automatically formats and indents 
Ratfor source programs. 





Ratfor 


PP Ratfor Both 


Soft-ScFMn 


MODEL 1 


S49 00 


$30.00 S74,00 




S69.00 


MODEL 11 


$99,00 


$49 00 $13S.0O 




$BS.OO 


MODEL III 


$59,00 


$34.00 $84-00 




$75.00 


Manual only( 


efundable 


S12.00 




$15.00 


MODKl 


i. 111 rtqiiin 


4HK, 2dnv(.-s. TRSDOS 






MODKL 


11 nqiiiri's 


MK, 1 drue, TRSDOS 2 


u 




Pleiseca 


1 ot »rile for deniis aboul our wordprocc 


so 


y 



,T.M 



.^^ ,. , ., , ASPEN SOFTWARE 

Orders sent postpaid by first class mail. R^ Formerly __ _ „„ ^449 

Terms: Cash, check, money order, VISA, or MiSilt« SOFT-TOOLS S \ w 

Master Card. NM residents add 4% tax. g^ ti* mm R7n« 

When ordering, specify modek memory size, ^^^^ ,«y,c?«i ir-T/ 

number of drives, and operating system. Dealer mqumes mv.led (505) 281-1634 

•Trademark of Tandy Corporation Proofreader, Grammatik, and Soft-Screen are trademarks of Aspen Software. 



'See List ol Advertiseis on page 386 



80 Microcomputing, October 1981 • 351 



"The standard TRS-80 method of accepting input from its 
operator is about as efficient as punched card input." 



• 1002 turns on the cursor in 
the first position of the input 
field. 

• 1004 counts the number of 
characters Input up to the 
maximum field length. 

• 1005 accepts one character. 

• 1010 is used if the char- 
acter is a backspace. Go to 
the subroutine at 1050 (see 
below), then goto 1005, 

• 1012 is used if the char- 
acter is a forward arrow; 
turn it into a space and con- 
tinue. 

• 1015 is used if the char- 
acter is the enter key, then 
the field is complete, so 
make the field length equal 
the maximum field length 
and then go to line 1030. 

• 1019 is used if the char- 
acter is neither alphabetic 
nor numeric; discard it and 
accept the next character by 



going to line 1005. 

• 1020 appends the char- 
acter to the previously ac- 
cepted characters and dis- 
plays it on the screen. 

• 1030 repeats until the max- 
imum field length Is achieved, 
then turns off the cursor and 
returns to line 950. 

Line 950 increments OE to 
point to the next element of ar- 
ray OM in preparation for the 
next call to this routine. It then 
returns to the calling program 
with variable 0B$ containing 
the requested input string. 

The subroutine at line 1050 is 
called from line 1010 if the input 
character is a backspace. Line 
1055 handles a backspace from 
the first position of a field and 
prevents the cursor from mov- 
ing into the title field. Lines 
1060 and 1065 handle all other 
backspace conditions followed 



by a return to the input process- 
ing in the middle of line 1010. 

Usage 

In this example the calling 
program consists of lines one 
through 90 and provides no 
function other than data ac- 
cumulation of a single screen. 
Rudimentary validation of the 
contents of 0B$ between calls 
to the input array driver at line 
900 is possible, but more exten- 
sive processing could cause 
the operator to overrun the in- 
put capabilities of the program. 
Any delays caused by in- 
put/output should be isolated 
to the time between screens or 
even better, after all input is 
complete. This, of course, will 
depend upon available storage. 

Summary 

The structure of these rou- 



tines was chosen to facilitate 
their usage in as many pro- 
grams as possible. This build- 
ing-block approach will help to 
speed development of future 
programs. In keeping with this 
design technique, we have des- 
ignated certain variables as be- 
longing to common routines. 
The letters O and X are the initial 
letters of all variables within 
these routines. Additionally, al- 
though this listing does not 
demonstrate it, we have re- 
served variables starting with 
the letter Z tor binary flags 
(yes/no). 

Data collection is an Impor- 
tant pari of many applications. 
The standard TRS-80 method of 
accepting input from its 
operator is about as efficient 
as punched card input. These 
routines could speed up file 
building. ■ 



ISOI 




Pal »4, 259, 705 



ISO 2 



DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Power Line Spikes. Surges & 

Hash could be the culprit' 

Floppies, printers, memory & processor often interact! Our 

patenled ISOLATORS eliminate equipment interaction AND curb 

damaging Power Line Spikes. Surges and Hash 

• ISOLATOR (ISO-1) 3 f(lt»f isolated 3-pfong socktis; Integral 
Surm/Splka Suppression; 1875 W Maximum load. 1 KW load any 
socket $62.95 

• ISOLATOR (ISO 2) 2 (liter Isolated S^prong socket banks: (6 
sockets total): Integral Spike/Surge Suppression: 1875 W Max 
load. 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO-3). similar to ISO-1 except double 
liltering A Suppression $94.95 

• ISOLATOR (ls6-4). similar to ISO-1 except unit has 6 
individually llltered sockets $106.95 

< SUPER ISOLATOR (ISO-1 1) similar to ISO-2 except double 
filtering A Suppression $94.95 

• CIRCuIt breaker, any model (add-CB) Add S 8.00 
- CKT BRKR/SWITCH/PILOT (-CBS) Add $16.00 

Master-Card, Visa, American Express 
OrdwToll Free 1-800-225-4876 
(except AK, HI, PR A Canada) 



AT YOUR 
DEALERS 



L^iiM^ Electronic Specialists. Inc 

TT South Mni" ^I'-et S^luf M^iss 0»'60 

Technical & N on 800 1 617 655 1532 




ST.ARDATE \27Frf> A .\n t.\pliisiiiT\ bus dt>iri)\Ld (ht mam ciiRints 

dboaj-ii \h<- dcqi sjai'c t'xpUiri-r. ihi- .^Sdl'S The siii;i !•• linfnni^ w.ih luily 
majiuveruiiJ fniwer. The life siipjHin sysiems an; failing aiul ilw main rddiiis ari- 
dtail .\htaii lies Sjuiivsialion .\Ll'fLA, .\ frannt tall fi)r help iin ihc iiiitTgciuy 
traiismiuiT linnns imly siliiice. Yimi only chantc for simi4"a] is lo rcail^ the 
sifetv ot S|iatcs[ati<m .\l,l'IL\ 

SPACE STATION ALPHA DEAD AHEAD. 
THE DOCKING LAMP IS LIT 



For dii iivit nf ihis wijrl(i iii 



sUTv nrikr ihis iliissK- nuik'huiv' lyjiy^uaKi- advcnl iiri' 
IVi*9b diK(IJt-16K r.«i;WK dJM) MIID1.» 



EDI^WAHE EAST 

£ \ i-.n. Bu> s»e 

E/ UI7H4 

SI7.)[SH-H«41 




TIbk. MHlsrcnifl HBd phnitK 
■ir-dci-K ■■scplcil. .*Ikbb. rcBldcBld 
adil S'h Ibi. I>*«neaa oi-den add 
fla tar sir (hlpiBKBt. A>k sbOBl 
nur can«eltv dupUeatiiiri acrrlaa. 



352 • 80 Microcomputing, October 1981 



DIS^ III 



100% Compatible 



Model III Disks 



Complete Business 
System includes: 
48K TRS-SO'- Model 
III, Disk III'" 2 Drive 
System, TRSDOS 
and Manual. 



$1882 




DISK III Single 

drive assy $599.00 
DISK ill Two 

drive assy 864.00 
DISK ill Assy 

w/out drives 435.00 
TRSDOS^ & 

Manual 21.90 

Externai drives 

(3 81 4) 299.00 



IMMEDIATE DELIVERY - COMPARE AND SAVE 

VR Data's DiSK lil features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & burned-in 

• Up to 4 drive configuration 

• Heavy duty linear power supply 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

• READ 40 - Pgm. to read 40 tk. Diskettes 

on SOtk. Drives $25.00 

DISK III single drive assembly includes: one 40 controtler. mounting hardware, and applicable 
track 5Vi " double density drive, power supply. cables 



Peripherals 

Epson MX80 
Epson MX80FT 
EPSON MX100 
Centronics 739 
Starwriter25(P) 
RS-232Modellll 
Lexicon Modem 



$500.00 
625.00 

$800.00 
750 00 

1395 00 

75.00 

12500 



MODEL i/in COQO 

EXTERNAL DRIVE^^ ^ / 
W/ PS a ENC 

Fully Compatible 
120 day warranty 
Easy installation 
80tkor2sided 
eOtk&2sided 



1 

$419.00 
549.00 



IF YOU DONT SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 

DISK III IS a trademark of VR Data Corp. 

Dealership available. To ord«r c«i) wi trt«- 600 345-6102 or |2i5) 46i-53(win pa. 



OTHER PRODUCTS 

SUPERBRAIN 64K 
PARALLEL PORT - 

SUPERBRAIN 
MOTOR MINDER'" 

FOR SUPERBRAIN 
DISK&MYSTERIES 
BASIC & MYSTERIES 
NEW— 
LDOS Operating 

System 
COMING SOON!! 
5 / 10 Meg WINCHESTER for 
MOD III 
Internal MODEM for MOD III 



2990.00 

9995 

149.95 
22.50 
29.95 



149.00 




VR Data Corporation 

777 Henderson Boulevard • Folcroft, PA 19032 



'£•• Lift 0< MvtrtittfJ on Mg»39i 
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TECHNIQUE 



M 



A loop in a nest slows you in a rush. 



Thoughts on For . . . Next 



Richard Amyx 

994 North Second St. 

San Jose. CA 95112 



Awhil« ago I was tinkering 
with a little game I'd found 
in a book, the gist of which was 
to keep tabs on a nlne^lement 
array and to toss out array 
elements as certain conditions 
were met. The listing was rela- 



tively short and had no terribly 
complicated statements, so I 
keyed it in without paying much 
attention to what was going on 
within the program. 

The routine was query/re- 
sponse, next query/response, 
and so on, with virtually no time 
lag between my responses and 
the next query— until the fifth 
or sixth response, at which 
point the program appeared to 
take oft into outer space. After 
welting a reesonabie length of 
time I broke out of the program 
and proofread my keypunching 
around the break— no errors. 

So I tried again and got the 



UpMf 


Total 


%0f 


Limll 


lt«r«tlon» 


Mcxlmum 


9 


7380 


100.0 


8 


4680 


63.4 


7 


2800 


37.9 


e 


1554 


21.1 


5 


780 


10.6 


4 


340 


56 


3 


120 


1.6 


2 


30 


0.4 



Table 1. Four-deep For loops. 



same result. But this time I 
decided to wait the machine 
out. When I eventually returned 
to the computer, I found that 
the program had indeed gone 
on as it should have. Why, I 
wondered, the sudden quan- 
tum leap In time between 
response and query? 

I then looked at the program 
more closely wttere I'd broken 
out of It the first time, and 
found that the break had been 
in the middle of a sequence 
that looked like this: 



10 FOR 1 ■ 


1T0 9 


» FOR J > 


1T0» 


30 FOR K > 


1T09 


40 FOR L - 


iTog 


100 NEXT L 




110 NEXT K 




120 NEXT J 




130 NEXT 1 




140 GOTO xxK 



It didn't take too much 
button-punching to learn that if 
this nest of For loops went all 
the way through It would re- 
quire 7380 (9 -f 92 -I- 93 + 94) 
total iterations. Combine that 



with a couple of If statements 
In the middle, and you can bet 
you're going to have to wait for 
a response. 

Then looking at the program 
even more closely, I decided 
that It would require very little 
housekeeping to reduce the 
length of the array, and hence 
the upper limit of these For 
statements, as the game pro- 
gressed. I wondered how much 
time could t>e saved if this one 
change were made. The givens 
were that the For loops would 
remain four deep and that the 
equation for the total number 
of iterations required was Y = 
N + n2 -». n3 + N*, where N 
was the upper limit of the For 
loop. A little more button- 
punching yielded the numtwrs 
in Tablet. 

The numbers of iterations 
themselves ought to be im- 
pressive—certainly they're big 
enough— but what's even more 
important are the differences 
between them and the percent- 
age of maximum time those dif- 
ferences represent. This is 
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TRS-80® sonWARE TRS-80® 



MODEL III SOFTWARE 

26-1563 Scripsit I & III S79.00 

261566 Visicalc I S83.00 

261567 Visicok III $83,00 

26-1552 Generol Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivoble $135.00 

26-1554 Accls. Payable $135.00 

26-1558 Bus. Moil List $90.00 

26-2201 Fortron I $90.00 

261562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36.00 

26-3051 Quoser $36.00 

26-3052 Pinball $27.00 

26-3053 Footboll $36.00 

26-3055 Checkers $27.00 

26 3057 Dino Wors $36.00 

26 3059 Backgommon $27.00 

26-3152 Typing Tutor $27.00 







1 ■■■ 
1 ■■> 
1 *'* 

m 



YiVi'iVCi-VCCji"'. 



MODEL 11 SOFTWARE 

26-4530 Scr.psit II $265.00 

26-4511 Visicolc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26 4504 Accts Receivable $270.00 

26 4505 Accts Payable $270.00 

26-4507 Moil List II $108.00 

26-4701 Fortran $270.00 

26 4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26 3510 Real Estate $22.50 

26-3511 Civil Eng $22.50 

26-3513 Aviation $22.50 

26-3516 Bus. Statistics $18.00 

26-3517 Bus. Finonciol $18.00 

26-3518 Per. Finonciol $18.00 

26-3514 Moth Drill $13.50 

26-3515 Games $13.50 



± 



ORDER TOLL FREe1.800-84 1-0860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



WJCHD KlflWflBEWEWT SVSTEWS, ililC." 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. 4A 
115 C. SECOND AVE. S.W. 

CAIRO. GEORGIA 31728 

(912) 377-7120 Go. Phone No. 

m-M It r*«Ut*r^ tradvtnwh el (h* laMdy Corp. 



Thousands of 
Satisfied Customers 



VISA And 
Masterchorge Welcomed 



vSee Lfil 0/ AUveriisers on page 386 
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PUBUCATI0N5 for the TRS-80' Model III 

Mystsry of th« ROM Mystery of the DISKETTE 

Mystery of the DOS S19.95 each 

Must additions to Ihe compuler library ot the serious 
programmer as well as the casually interested. Written 
in a technical, yet easy-lo-read and understandable style 
Each book Includes: 

• detailed tables of contents and indexes, alphabetical 
and numerical tables with numerous cross references. 

• register setup going into routines. 

• register results coming out of routines 

• detailed explanations on all routines, structures, 
codes, etc: and not just a few ambiguous comments. 

• Numerous summaries tor ease of book use. 

Special ... all three $49.95 
50RT/CMD 

• multi-key (to 14 fields). Multi-tag (to 14 more fields) 

• sort any combination ot variable type 

• integrates easily into any existing program 

$1 9.95 each Disk or non-disk; Model I or III, 32K or 4dK 

PATCHES 

to allow operation of many Model t programs on the Model III 

• IM OFFSET/CMD, Superzap/CMD- 

• RSM 2D/CMD lOK, 32K, 48K= 

• Big Five Software Games (all games)' 

$5.95 each Many more send for brocfiure! 

DISK DIRECTORY INDEX PROGRAM (Model iii only) 

• Maintain a master directory listing and tile all diskettes 

• Index size limited only by diskette space available 
and number of diskettes on wfiicfi the index will be 

maintained. 

• Summary by file name, diskette, or extension 

Direct/BAS $14.95 

Direct/CMD $24.95 (enhanced, more powertui. faster) 

Send check or money order (Kansas residents 
add 3% sales tax) to Twenty-First Century Software 
1607 North Cochran Hutchinson, Kansas 67501 
Call 316 663-1047 for additional information 




most strikingly illustrated by a 
graph (see Fig. 1). 

As you can see, once you get 
past an upper limit of six you're 
going to be making some very 
powerful time trade-offs for 
every increment in the upper 
limit of the loops. 

Getting back to the game, it 
appeared that the program 
usually wouldn't get into the 
heavy looping sequence until at 
least the third response, which 
meant that the upper limit 
could have been reduced from 
nine to seven and that a 62 per- 
cent saving in time might be 
realized. The next step, of 
course, was to test my 
hypothesis. 

To do this, I wrote a short pro 
gram just like the example se- 
quence shown, filling in the 
dots with a couple of do- 
nothing If statements to in- 
crease overall execution time 
and thereby reduce the effect 
of my own reaction time on the 



stop w^atch. The results I got 

were (N again representing the 
upper limit of the loop index): 

N = 9, t = 46 sec 
N = 8. t = 29 
N ^ 7, 1 = 17 

This was close enough to prove 
the theory. The execution of a 
very slow portion of the pro- 
gram could indeed be speeded 
up by at least 62 percent just by 
indexing the upper limits of the 
four For loops. 

The rule is simple: The 
amount of time it takes to ex- 
ecute nested For.. .Next loops 
increases by the power of the 
depth to which the loops are 
nested — two-deep loops, time 
squared; three-deep loops, time 
cubed; and so on. Obviously, 
the best solution is not to nest 
For loops any deeper than ab- 
solutely necessary, but if you 
must nest them deeply, then 
pay very close attention to the 
ranges of the loop indices. ■ 



Total 

Iteralions 

Required 

(% Of 7380) 



7380 
(100) 

7000 

(90) 

6000 
(80) 

(70) 
MOO 

(60) 

4000 

(50) 

3000 
(40) 

(30) 
2OO0 

(20) 

1000 
(10) 



Registered uaOemarks or producls ol Tarxjy Corp . 'Aopafsl Inc 
'Small Systems Software 'Big Five Software Company 
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0123456789 

Upper Limit 

Fig. 1. Total iterations versus upper limit for four-deep For 
loops- 



PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II 'i a como'ehensive rete'encc cjuiQe lo I'le LevS' (i ROMs which allows 
Ihe Tiac'iifie iangi,age or Basic programmef lo easily uiir^e ine sophislicaled 'outmes 
iiiFy contain Concisely eipiains sel-ups calling sequences and vanaDie passage lO' 
numijer conversion arithmetic operations and mattiematicai (unctions as wen as 
lieyboa'd tape and video loudnes Pa'l ll presents an entirely new composite cogram 
sltuclu'e which loads under ihe SYSTEM command ana e«ecutes in tjoth Basic and 
machine code with the speed and etiiciencv o( a coiripiler in addition the '8 chao'ers 
include a large tioOy ot oltier m'ofmation useful to the programmer including tape 
Iwmals RAM useage relocation ol Basic o'Ograms USR can eipansion ceating 
SYSTEM tapes ot your own programs interlacing ol Bas.c i/anabies dneciiy *iih 
machine coOe a method ol greatly inceasing ttie speed at which data elements aie 
slofed cf taoe and special precautions lor disk systems INSIOE LEVEL n is a cieany 
organ zed relerence manual it is luiiy lypeset and pacKed with riothinq bui usetui 
inlmmation ii does not contain questions and answers ROM dumps oi carloons 
Includai updatM tor Uo<M III. INSIOE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEPSO allows you to step through iiny Basic or rnach.ne language program one 
inslruclion at alime and see the address tie «adecimai value Z log rnnemonic register 
cortents and step count tor each instruction Ttielop 14 lines ol the video sceena'eletl 
uoatlered so ttiat the laiget program may perlorm its d'Spiay lunclions unoPslructed 
STEPBO will loiiow program How right into the ROMs and is an invaluable aid in learning 
flow Itie ROM roohnes function Commands include step (trace) disassemble run in 
step mode al variable step rate display O' alter memory or CPU registers lump lo 
memory locMlion eiecute a CALL set breakpoints in RAM or ROM write SYSTEM 
tapes and relocate to any page n RAM The display may also be rouled to your line 
pnntei ttirough tho Oviii-.e conlro biOCK so custom pr^nt drivers are aulotnalica'iy 
supported 
Spacity Modal I or Mod*) III. STEPM $1B.H 

TELECOMMUNICATIONS PROGRAM 

This machine language program allows reliable h.gh speed tile transfers between two 
disk-oased compulers over modems or direct wire it is menu driven and e«ireriieiy 
simple lo use FunclioJis mciude reai time lermma. mode save RAM biitier on disk 
transmit disk lile receive binary tues enamme and modify UARTpararneters programs 
cusloin log -on messages automatic 16 bit cbecksum venticalionot accurate transm.s 
sioo and recepfion and many more use' conveniences Supports line pnnierB jnd 
lowercase characters With this program you will no longer need to convert mac'urie 
language programs 10 ASCII for transmission and you will kriow immedalely il UW 
transmission was accurate 
SpKify Mo€M I or Nodal m. TELCOM.....t39.95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an aiphat>etii:ed inde« o' your entire program library from disk directories 
Program riames and tree space are read aulomalicaliy (need not tje lyped in| and may 
tie aiDhat>eti/ed with a lasl Shell Uetzner son by disk or program The iist may also be 
searched tor any disk program, oientension disks or programs added or deleted and 
the whole list or any pari sent to the printer Finally Ihe lisl ilsell may De Stored on disk lor 
future access and update The best thing since sliced bread (January issue Ol 60 
Microcomputing) Works uvilh TRSDOS NEWDOS andNEWDOSSO One dnve and 
32K -equired 
Model I only. Model III version soon. INDEX $t9.9S 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 Clock modification allows CPU speeds lo be switched belween normal, an 
increase ol 50% or a 50% reduction seleclable at any lime without interrupting 
e'ecution or crashing Ihe program Instructions are also given lor a 100% increase lo 
3 54 MHz The SK-2 may be configured by the user to change speed with a toggle 
switch or on soUware command It will automatically return lo normal speed any time a 
disk IS active requires no change to tine operating system and has proviSKins tor 
adding an LED lo indicate when the compiler is not at normal speed II rnounts inside 
the keyboard unit with only 4 necessary connections for the switch option (switch noi 
inciudedl and IS easily removed il Ihe compuler ever needs service The SK-2 comes 
iuHy assembled with sockeieO IC s and illustrated inslfuctions 
Model I only. SK-2....424.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is :i neA powerful tape -based assemliiei .^nd detiugger 
lor iiie TRS 80 Now you i;an assemble direcliy to memory and immediately debut] your 
program with the buill in single stepping debugger Uuickly switch from assembior lo 
debugger and back again without losing the source code This lealuremakes INSTANT 
ASSEMBLER an eicelienl learning tool tor assembly language programming 
INSTANT ASSEMBLER is ai>soiuieiv unique among tape l)ased assemblers in thai ii 
()roduces relocatable code modules that cari \ie linked with Ihe sep.n.tfe LINKifMG 
LOADER, winch IS supplied in two versions for loading pro(|r^ms mloeilher iinih or low 
RAM This lets you buiid long programs wilh small modules INSTANT ASSEMBLER .iiso 
features immediate detection ol eiiors a? ine source code is entered a comp.ictiy 
coded source lorrnal thai OSes 1 3 as irnicn memory .is standard source and m.iny 
operational features including single stroke entry ol DEFB and Ot F VW. pmixmil control ol 
listings alptiaoetic listing ol symtioi (able separate comrnands lo< iistint) enoi tines ur 
me symbol lalMe Block move function and venlical'On ot source laiies 
//VSMA/T ASSlMBI cfl s detxigge* provides s«K|le Sleijpi™) wilii Urii re<iistc< d>s[^*V^ 
decimal or rie> entry ul addresses loi*aTdoiljackwa"t)menx>rydisi«.iys dis.isst>mliiy 
of Diiicct code .n memory memory dtsptay in ASCu lornvil .ind tiex lo-(te<.im.ii oi 
decdnal-to-hei conveision I tie single stepper wiB step one nislrticlion .4 .i tone or .it ii 
fast rate lo any de'ined address 
INSTANT ASSEHBLER ocaipies less than 8400 tiytes ol memuiy m .i 16K m-ichiiiL' 

this will leaiC you enouqri memory io write assembly Lintjuatte proijram-, of .iKiund 
2000 oyles This and its module- linking leature make INSTANT ASSEMBLER lOfrti loi 
users with only 16K machines The instruction manuri' may iMJpurCtiased soii.ii.ilely loi 
$5 whicii w II apply towards Ihe purchase ol Ihc iNSTANT ASStMBLLR 
Specify Model I or Model III. INTASM $29.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a liiii icilure pi ml toim.dimft p.-icKriqe tealuiinii u'-er deline.iliif line .md 
page lenglti (wilh .ine leeds iriseiled between words oi .iHt'i iiuiictu.itioni screen 
dump, printer pause control and Ijaud rate selection Inadditiun pnntinriisdoneliom.i 
4K eipandable bulfei area so thai the LPRINT or LLIST command letums control to the 
user while printing is teng done (deal tor Seleclnc or ollu'r slow ptmlers Allows 
printing and processing to run concurrently Output rrwiy \i: directed lu eillier tlie 
parallel i.iort ■,e".-(i ixiri o' thf video scocn 
Specify Model t or Model ill. SPOOLER SI6.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes J versions ol the machine l.ingu.trie EF TASM routirif 
assembled lor 16 32 and 48K rnacnioes a stiort sam()le Basic proijr.tm lo -iccess 
them a 10K Basic program which includes sopiwsiic^ed inter -ttl ive giaptanq andd^da 
manipulation and a manual of ■nslroctioiis and enarr^ies Ttie macfitne iarw|uage 
subroutines use variables detined t)y a st^Jpofling Basic iwoijiam to make data entry 
and retrieval entremeiy lasl and easy tor custom impKimeni at lon Ttiey tjerlrym 2010 40 
times lasler than Ihe" Basic eguivaieni |25G poKTIs m 12 H secCM*dSl arW leguirG less 
than 1550 bytes ol memory The FFT rc usetul in analy/itg slock m.jrket and comoOiiy 
trends as wei' as tnr scieniilic iniormaii(x> 
Specify Model I or Model III. FFTASM S49-9S 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies ol any lape wllen lo' Levei ii Ihey may lie SYSTEM tapes or 
data iisls The filename loadaOOress enlry poinl. andevety Ijyteim ASCII lormatfa'e 
displayed on the mdeo screen Model III version allows changing tape speed 
Specify Model t or Model tit. CLONE $16.95 

RAMTEST FOR LEVEL II 

This machine language program is a very thorough test lor several types ol HAM errors 
Acompteteteslofeach individual bit in a48KmactiinetaKes|ust I4 seconds includes a 
separate test lor power iine giiiches 
Model I only. RAHTEST.-..-$9.9S 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data tile into the disk version of Elecl'ic Pencil 
for ed'lling One cornmand Irom DOS quickly modilies existing files to Pencil (ormat 
One disk and 32K required 
Model I only. PENPATCH.-.-J9.9S 



V,. : Mi-[.''. 



MUMFORD '"'■':";":/,;;:':.:^::::::..;i,::':^::V;;/::::::.:v.:::,-:.::' l:;:: 

lk.Mir^rir\ -; ..■■. 1. ■:■ 1 :■ :■ -.liii. ( II.'. ■■■... --^ i.n: :■.:■' -u-i^- V,- i M.i.. .;■.:. 

jVlJV_,f\Vj (Mil , :, .1, ; SI'f Cll V MODE 1 1 OK MODM III J i. m '^ji ;. :■■. i. i 

SYSTEMS " Box 400-t: Su.nmerland, California 93067 (805) 969-4557 



SI'f Cll V MODE 1 1 OK iMODt I III 



vSee Lis! ol Advertisers on page 386 
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UTILITY 



Can you say ''data?" 



Datafix 



A. J. Barnard, Jr. 

J.T. Baker Chemical Company 

Phillipsburg, NJ 08865 

A. D. Barnard 
Rensselaer Polytechnic 
Institute 
Troy. NY 12181 



The TRS-80 keypad can help 
you whenever you're enter- 
ing programs with long data 
statements— lor example, 
music and graphics programs, 
science programs or long data 
lines to be POKEd into ma- 
chine-code routines. 

The keypad, you say, only 
allows you to use ten digits, a 
period (decimal point) and the 
enter key. You'll still have to 
enter the word data, any 
necessary commas and minus 
signs from the keyboard. 

Not necessarily. With the 
following routine, you can 



translate two or more con- 
secutive periods Into the word 
data, a comma, or a minus sign. 
Datafix is a Basic routine for a 
Modet 1 Level II TRS-80 that 
gives you the proper syntax 
from the keypad, using only 
four variables. 

Changing Coda 

If you enter two consecutive 
periods after a line number, 
Datafix recognizes that the line 
is a data statement and, by 
POKEs, changes the first 
period to the word data (inter- 
nal code 136) and the second to 
a space (32). 

At any further point In the 
statement, if you enter two con- 
secutive periods, the routine 
changes them to a comma (44) 
and a space (32). If you enter 
three consecutive commas, the 
third is converted to a minus 
sign (45). The routine ignores 
any periods within quotation 
marks and leaves a space after 



9 GOTOIB 

1 ZX-PSEK(165*8)»256«PEEIt(lfi5l9! 

2 IF(PEEK(ZX)+PEEK(IX+11 -fl|THEN6 
ELS£IFPEEK(IX*<K>*6THEN5 
LLSE2V-9 -.ZW-t : IV-t 

:FOfil-IX + 4TOZX*255:IFPEEK|n-BTHEN5 
eLSEIF|l-IXf5ANDFEEKlI-l)**6WroPEEK(I)-46) 
TH ENPOKEI-l, 136 jPOIEI, 32:20-1: NEXT 

3 IF|IV-iANDPEEi:(ll-3«lTHENIV-l!HEXT 
ELSEIFUV-iWJDPEEKdl 030THENKEKT 
ELSEIF[SV-1WJDPEEI[(I1-34)THEHIV-»:I1BXT 

4 IF( IV-BANDPEEK 1 1-l ) -46MJDPEEI: ( I ) -4«) 
THENPOKEI-1 , 44 : POKEl ,31 : ZW-I i KEXT 
ELSEIF[l-IU»10HI-ZH*l)ANDPEEKlI)-46 
THENPOKEI , 45 : lU-B : IWB : NEXT 
ELSEUEXT 

5 ZX-PEEK(IX1 •■I56*PEEPr(ZX+l) ! GOTO 2 

6 PBINT,*DATA STATOtENTE COHECTED. ' i END 

10 REM * MAIN PROGRAM STARTS HERE * 

Program Listing 1. Datafix Routine 



the word data and between 
each item. 

For example, you can enter 
the following lines, except for 
alphabetic and special char- 
acters, using the keypad only: 

100. 10 1.40.2 

106. 10.1 ,.40,2 

110. JONES 40,2 

115. ."BYE NOW.,.",.. 10.1 

Upon enterning; RUN 1, Data- 
fix converts these statements to: 

TOO DATA 10 1, 40,2 

106 DATA -101. -40,2 

110DATA JONES, 40-2 

115 DATA "BYE NOW,,,", -10.1 

and then advise you that the 
data statements were cor- 
rected. 

As written, you can load 
Datafix before your program. 
You can also renumber the 
routine to, say, 60CX)1 -60006 
and append It to a program In 
memory (see, for example, 80 
Microcomputing, January 1981, 
p. 213 for the PEEKyPOKE ap- 
proach). 

If you are entering and 
editing statements only once, 
you can delete the routine after 
you use it. 

How It Works 

In Program Listing 1, we use 
line feeds and Indents to make 
the logic clearer. Dropping this 
nicety, reduces memory re- 
quirements. Line bridges the 
routine and returns to the main 
program at line 10. 

Line 1 returns the decimal ad- 



dress, ZX, of the first line of a 
Basic program. 

Line 2 first Checks the two 
bytes of the line pointer; if they 
equal zero, the routine goes to 
line 6 and ends. Line 2 also 
Checks for a period Immediate- 
ly following the line number; if 
none exists, the line Is not a 
data statement and the routine 
passes to line 5. 

Finally, line 2 can also start a 
character-by-character PEEK 
of a statement to be edited. 
When It meets character zero, 
Datafix has reached the end of 
the line, and passes to line 5. 

If line 2 finds that the first 
two characters of a program 
line are periods, the periods are 
changed to the codes for the 
word data and a space. ZU is 
set to the character position I. 

Line 5 finds the address of 
the next program line and 
returns to line 2. 

Line 3 checks for a quotation 
mark (code 34). If one is found, 
flag ZV is set and Datafix will 
not check for periods until 
either a second quotation is en- 
countered or the line ends. 

If Datafix finds two con- 
secutive periods beyond the 
start of the data statement, but 
not within quotation marks, 
line 4 changes them to a com- 
ma and a space, and ZW is set 
to the character position I. 

Then, if the routine meets a 
third period and confirms it as 
consecutive by I being equal to 
ZU ■»- 1 or ZW + 1, it is converted 
to a minus sign. ■ 
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Are my TRS-80* business systems really that good? 

Michael Tannenbaum thinks so. 

Here's what he said about my Model II 
systems in the August "80 Microcomputing." 



On the General Ledger's ability to file and report; 

"...the best I have yet 
seen in a microcomputer 
system." 

On the Accounts Receivable system: 

"...clear and simple to 
follow." 

"...the first time I have 
seen this feature in a 
microcomputer system.' 

(referring to its ability to calculate a salesman's commission 



99 



On our policy of customizing our systems 
to each buyer's needs: 

"...Taranto does his 
customers an enormous 



V9 




service. 



And on our systems in general: 

"...a comprehensive and ivell-documented 
system, an impressive product at a very 
reasonable price." 



Thank you, Michael. 



Taranto 

& ASSOCIATES, INC. ^ 45 

The Total System Store. 

121 Paul Drive, San Rafael CA 94903. 

Outside California, toll free (800) 227-2868 In California, (415) 472-2670. 

Authorized dealers thioughotit America 



-See L'Sf O' Adveriissrs on page 386 
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APPLICATION 



Strengthen NEWDOS 80's chain command. 



Weak Link 



Steven Denholtz, D.M.D. 

Livingston Professional 

Building 

114 West Mt. Pleasant Ave. 

Livingston, NJ 07039 



Unlike Its use under New- 
dosSO, the Chain function 
usually exits and erases a resi- 
dent Basic program, then in- 
puts another Basic program 
from disk. This program, In 
turn.operateson a still resident 
set of variables and/or flies that 
are shared by related pro- 
grams. The rationale is to 
reduce the amount of user 
memory the program con- 
sumes so a larger share of 
memory can be used for data or 
variables. 

In NewdosSO, however, the 
Chain function performs an en- 
tirely different operation. A 
short Basic utility Is provided 
^ here so you can use Chain with 
speed and ease not available 
under NewdosSO. 

What Is Chain? 

Chain is a DOS library com- 
mand. After a Chain command, 
anytime a program asks for in- 
put from the keyboard, the key- 
board record will automatically 
be supplied from a disk chain 
file without any operator ac- 
tion. How did the keytxiard 
answers get on the disk? How 
does the computer know where 
to look? To answer these ques- 
tions, let's learn a few new 



terms and look at what a chain 
file is: 



Chain File: SectlonO 
Sectlonl 
S«ctlon2 
>fltc. til EOF 



Syntax 

Each section Is an indepen- 
dent subfile of keyboard re- 
sponses. Multiple sections can 
share the same file name. This 
avoids wasting a whole granule 
of disk space (1.25k) for each 
group of keyboard responses 
that usually takes a few words 
(100 bytes maytw). Thus the 
chain file was designed to have 
sections that are really in- 
dependent subfiles sharing one 
filespec. This saves valuable 
disk space. You address the 
section when you issue the 
Chain command: 



2b. 'CHAIN filespec <SECTIONn>' It In 
Dos; or, 

2Ci. 'CMD'XHAIN fllespec 

<SECTI0Nn>" ' If In Disk Basic. 



SECTIONn is optional on the 
first section (0). If the chain file 
contains more than one sec- 
tion, you must specify which 
one you are addressing, where 
n Is a positive Integer. If SEC- 
TIONn Is deleted when issuing 
the Chain command, the de- 
fault naturally Is the first sec- 
tion, SECTIONO. The filespec In 
Fig. 2 has a default extension 
of JCL, (which stands for Job 
Control Language, but that Is 



getting iMyond the scope of 
this article). 

Section: opeclal character> 
<SECTIONn> 
key board record 
End Of Line character (OD H or 
Enter) 

The special character Is 
always one of the following: 

CHR$(128) (80 H) : atari of a new Section 
CHR${12g) (81 H) : display message, await 
ENTER before proceeding 
CHRS{130) (82 H) : chain file "remark" 
CHRS(131) (83 H) : display message, no 
pause 

The special character 128(80 
Hex) is mandatory when start- 
ing a new section, except for 
the first section. Ail other char- 
acters are strictly optional. But, 
after using a CHR${128) to start 
a new section, you must also 
put SECTIONn immediately 
after it so you can later address 
which subfile (or section) you 
wish to use when you Invoke 



Chain, as shown In Fig. 2. 

Uses of Chain 

The keyboard record is the 
answer that will be displayed 
on the screen and used as if it 
were actually Input from the 
keyt>oard (see Fig. 3). This can 
supply a commonly used set of 
parameters to an often used 
utility. More often, it may be a 
series of System and Basic 
commands Implementing a 
complex program such as 
shown In Fig. 5. 

My diskettes include a "JCU- 
JCL" file to be used in an Auto 
boot mode— every diskette, 
that is, but my Newdos80 
system diskette. That one has 
the Auto command: AUTO 
CHAIN JCUJCL, but has no file 
named JCUJCL. This way, 
whenever I use my computer, I 
simply place either the system 
diskette or my application 



LCORIVEFI 
BASIC 

LOAD'LEDGEHB" 
CLS 

LIST1 

LIST1 0030- 10040 

EDIT10040 

DOS READY 

CHAIN JCUJCLI 

DOS READY 

LCDRIVER 

GENERAL PURPOSE LOWER CASE DRIVER 

DOS READY 

BASIC 

DISK BASIC, RADIO SHACKS ROM ENCHANCED WITH APPARAT'S NEWDOSSO 

EXTENDED AND DISK FEATURES 



Fig. 5 A Typical Use of Cfiain. 
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PROVEN MONEY MAKERS FOR YOUR TRS-80* 

'Tandy Corp. Trademark 



MAIL LIST SYSTEM (di.koniy) $69.95 

Our easy-to-use system will accomodate almost any "custom" 
requirement of even your most demandmg clients A glance 
below will show that we are far ahead of any other system in 
speed, variety of features, and sheer volume of names 
handled but don't let that fool you. This system can be used 
iust as easily on one disk for a small Christmas card fist 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph or zip order essential for large lists 

• Sort 2320 entries (2 full 40 track double density disks) m 
only 32K or an incredible 4640 entires [2 full 80 track 
double density disks) in only 48K' Wade possible with 
our unique date compression techniques on the Model 111 

• Super fast sort by alph or zip order (8 sec for 1000 
entries) ..both orders can exist simultaneously on disk 

• High speed recovery of entries from disk. ..speed of sort is 
meaningless if retreival from disk is slow ours pulls in 
over n per sec' 

• In zip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "0" appended on labels 

• Backup data disks are easily updated as entries are 
created, edited, or sorted . extremely useful" 

• Optional reversal of name about comma for that ncin- 
computer, personalized look. 

• Master printouts of your list in several formats [not )ust a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this' 

• All s in address labels are replaced by easier to read O's 

• All labels optionally support an "Attn " line 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting even allows for 
inequalities powerful and easy to use" 

• Continuous screen display of how many addresses 
currently printed 

• Each disk entry automatically "remembers" how many 
mailings have been made for that particular entry Can 
be tied in with purge/select. 

• Primarily written in BASIC for easy modification 
embedded machine code for those speed sensitive areas 

• f diting is simple and fast automatic search 

• Optional 9 digit zip 

• Deleted entries have "holes" on disk filled automatically 

and alph order is still mainfained' 

• Test label pnntmg lets you make horizontal and vertical 
adjustments with ease 

• Optional "one time" mailing for some selected entries 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout! 

• Extensive documentations manual available separately 
for S3 95 

• Hardware requirements 32K. printer, and 1 or 2 disk drives 



Provide your customers with ^f'AIFWDAR S1 9 95 

printed calendar (along with 

standard banker's holidays) of any month of any year Tape only 

for Model I or 111 



Same features as Calendar JJJPER CALE NDAR 

Additionally prints out large OQ QC 

"graphics" type wall calendars (tape only) >Z^.^:> 

with memos under each day Use as a planning calendar with 
optional disk storage requires IbK and printer 



Precision 
Prototypes 



410 E. Roca 

RefuRio, Tx 78377 

[^12-52fa-47,'58) 



Football Scouting Report („°^) $89.95 

How many high schools and colleges are there within a 75 mile 
radius of you' Did you know that each is a potential customer at 
the rate of from J300-i1000 per season' Manv already subscribe 
to more expensive (but inferior) computer anaKsis services of 
their scouting reports Using sue h a service a coach will typically 
have an opponent scouted several limes prior to actually playing 
them This series of programs was wfitlen to the spec itn ations of 
a coach with two state championships to his credit As a result, 
the emphasis is on producing statistic that will help m predict- 
ing what the opponent will do in a given situation This is a 
sophisticated set of programs iullv equivalent to that used by 
professional football teams 

• Separate and detailed analysis oT running, passing, and 
kicking 

• Passing and running tendanties by field position 

• Point of attack tendancies and statistics for runs 

• Tendancies and statistics for wide/short side, weak/strong 
side, and lei tiright run 

• Each analysis can be broken down according to forma 
tion, down, and yards to go 

• Allows for up to 5 games to be analyzed simultaneously 

• Convenient disk storage of plays and games 

• Extensive error traps won't let you make an error 

• Two actual games (almost 100 plays) on disk to tacilitate 
your learning and evaluation 

• Extensive documentation available separately tor S3 9S 

even includes some advertising and price samples to 
help plan your promotion Also inc luded are some sample 
printouts 

• Hardware requirements i2K. 1 disk driver and prmler 



Interfaces to your own 
basic programs sort with 
the speed of machine code 
but with the convenience 
of basic You don't have to 



FAST SORT 

{with multiple dim. arrays) 
and 

ALPHABETIZER 

(disk only) $19.95 



know assembly language programming to use these two 
programs lust use your disk to merge our short basic programs 
(with embedded machine code) with your own basic program 
follow our simple instructions to poke only 2 values before 
making the user call from basic The pokes will set up a sort tor 
string, integer, single, or double precision arrays Also ascending 
or descending order is controlled by a single poke Use one of 
two programs to sort arrays of the form A(l) or A[Q(1)) The disk 
includes six simple basic programs that are ready to merge with 
the main sort programs Use them for learning and evaluation 
Also included is a ready to use basic program [already merged 
with the ORDER program) Use it to obtain a printout of 
alphabetized names 

Sample Sort Times 
8 sec. for 1000 dbl prec numbers 50 sec for 5000 integers 
lime for alphabetizing (string sorting] is comparable but 
dependent on the length of the strings 



Loan amortization sche- LOAN AMORTIZATION 

dutes are a must for banks, C1Q QC 

5 & L institutions, and ac- >19.y5 

counting firms You will be CTape only for Model I & III) 

able to charge $5 plus per schedule Multiply that limes the 
number of all loans your clients make per day ..easiest money we 
know of! runs in about 2 minutes and achieves pin point 
accuracy with a built m calendar 



• Specify Model I or 111 when otderinR 

• Add SI. 50 liir postage and handling. 



Maslerchargc 



■See Lisl of Adverl'sers on page 386 
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diskette in drive zero and hit 
reset. The chain fiie issues all 
commands necessary to place 
my computer in a state where I 
can sit down and set to work. 
This may include listing any 
particular program lines that I 
feel need further development, 
or placing chain file messages 



to remind me where I left off, 
and even entering the Edit 
mode already pointing to a 
troublesome line. 

Last Minute Hints 

The operator may terminate 
the Chain command any time 
by pressing the up-arrow; the 



operator may force a Chain 
pause by holding the right- 
arrow, and continue by press- 
ing [enter). 

An Original Utility to Crsate 
Chain Files 

Program Listing 1, Make- 
jcl/bas, creates and appends 



chain files with every feature 
described so far fully Im- 
plemented. Study the program 
with its remarks. Type it into 
your system and save it on your 
NewdosSO system diskette. 
You will undoubtedly use it 
often and perhaps come up 
with your own appMcattons. ■ 



■MAKEJCL/BAS" - BY STEVEN DENHOLTZ, B.S., D.H.D. 
COPYRIGHT 1988 ALL RIGHTS RESERVED 



5 CLS:CLEAB*BBiPRlNT -MAKEjri./BAS - Will Create a j.c.l. 

file to be us^d by CHAIN 

by Steven DenholtZ, D.M.D. (281) 347-1277" 

IB D$-*XIIIIXXVXIXIKKIIIII1CIIXXIIIII* t[)l$'*»lXXX>IXlIXIX]llIXKXXX* 

3i PRINT" 

■:LIKEIHPUT"PlleBp*c {SO error checking I BUST have V jcl ■ t»ten 
• ion) 

:7"|FILES 
40 INPUT-Openinq |0) a new file .Appending last cecocd (A) o( 
new SECTlOKid (H) "iDS 
45 IF DS-*N*OH D5-"n" THEN 3I> 
47 IP DS-*0* OR DS-'o" THEN 4lt 

SI OPEtl"e*,l, FILES ;' open to append to existing record. 
lei PI)IKT«e4l,CHRS(25S)+CBR$(25S} iPRIHTHII," 

1>5 GOSUB Sie:PRIin'»64l,**t:LIIIEIHt>UT"DOS oi DISK BASIC Coonund 
? "jDS 

119 GOSUBeee :' interpret first character for special Beanlng 
12B PRINTIl.DS :' Put It into disk Chain fll«. 

15B PHINT*7fl4,""j :LIHEINPUT'entet another COnnand (Y/H) "iDlS 
16B IF DlS--y- OR DIS-'Y" THEN 1B0 ELSE 201 
20B CLOSE 



21B PRINT" ••* END **•" 

2 28 END 

388 'MUST LOOK UP LAST SECTIONID, ADD ONE TO IT THEN GOT035B 

318 OPEH'I',1, FILES 

315 INPUTIl.DS 

328 IFASC(DS)-12B THEN SECTINID -SECTINtD«l 

325 IF NOT EOF (1) THEN 315 

338 SECTINID-SECTINIDH:PRINTfl7B, •«•••"• Sect ionID-"|SECTINlD 

34B CLOSE 

35B OPEN'E" ,1 ,flLES i' open for the purposes of appending a nev 

Section to dn ematinq file 

36 8 DIS-CHRS(12Sl»"SECTiaN'+RIGHrS( STBS (SECTINID) ,1)+CHRS[J3) 

378 PRINTgS48,CHBS(255)»CHBS(2S5) : PRINT«64>, *" 

J75 GOSUB5B8:PBINTS64e,""; :LINEINPUT"DOS or DISK BASIC Conunar.d 7 

■;DS 

377 GOSUB69> :' Interpret first character for special aeanlng 

3BI FRINT(l,Di;*DS :'Put it into the disk Chain file. 

395 GOTO158 

399 END 

408 0PEN"0",1, PILES :' Open a new file (this will erase an exist 

ing file with th« saae filsspec 1) 

428 GOTO10B :' pretty up the screen 

5ee F0RX»'=736TO9S2STEP64:PHINT*X%,'."i:NEXT:PRIWTS739,*(,) user 

comnent uith pause* I i PRINT^8e3 , " I . 1 user coBBent"; : PRINTS867 , ■ (/ 

I file couent'i 

5 58 RETURN 

688 ' "Interpret first character of Comsand 
61B IP LEPTS(DS,11-"," THEN DE-CHRS(1!9) +DS 
620 IF LEFTSIDS,!)-"." THEN DS-CHRS(1 Jl) +DS 
63B IF LEPTS(DS,1)-"/" THEN DS-CHRS(1 31) *-DS 

6 4B RETURN 



Program Listing 1 



M0'?«^> 



V0RK10 

BASF-DPS 

WORLD STANDARD TAPE 



5»! 






• PROFESSIONAL 5-SCREW SHELL 

• UNIVERSAL INDUSTRY ACCEPTANCE 

DATA TRAC - C-10, C-20 
MUSI TRAC - C-45, C-90 



W^ . a" 









two 
to"-^der 






'ood'VP'^'" ^^''''" 



, trie 



<> 



Bot.«*' vo^^ 



cass«' 



f>the 



ope* 






■HiQ 



hi' 



,113 



,ins 



,8pe "■ f,t P- 



^e- 






BB' 



,sie' 



6'' 



. YOUVE TRIED THE REST. NOW BUY THE BEST' 



.^f^ 






Call: 213/710-1430 tor IMUEDIATE shipment on Credit Card Orders 



I ORDER NOW... Mail to: VORH 10 Computefuuore 

?4S73 Kinndge St . ^SOA. Cano^a Park. CA 91307 

□ ChediM MOencSsed n Crwn* In m> Great OO 

□ VISA n MASTERCARD Exmsdae 



IBBIH IDOZBI JDOZBI 


dbMoK 

tvni 


C-K) □ aoo n "« 


C-M □woo □ 18 00 


C* n '3 M □ 23 M 




CW □ 21 n □ 39 OO 


SU6T0TM 




at/ mMfk. nU pit ata m 




SMw lOd t? !d<i S3 SO 
■Mr Mi; s^ 


- 



I 

■ WntTE FOR QUANTrrV DffiCOUNTS 
I in-ovnl KM c*J tn UPS It sDtrl HXIfHS in ConI 



(* 



mt/v 





Programming drive 
you wild? 

We have the high quality programs you demand 

at a price that will please. Send for FREE catalog. 

y. THE BERG WORKS ^35^ . 

W^^ Box 742C Janesville, Wl 53547 ^Z 
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Your best 

Model I/Ill 

peripheral buy 

is a modem. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-cofuputer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services lilte electronic mail, 
instant r>ews and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Ot course, we re talking about a 
modem. A far more sensible first 
step in expanding than. say. joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you- A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A workJ you tap through 
your telephone 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that s LYNX. 




The new LYNX for TRS-80 l^odel I and f\/1odel 
III. It's the latest innovation from the people who 
are making data communications affordable. Its 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 




@D LYrvrx-O 



Ytaurbest 
Model [/III 
modem buy 

is mux. 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communk;a- 
tkms package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PmCE: $299.95! 

• Compatible with both Model I 
and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, 
eluding ST-80 by Mteklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variabie word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion Interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on etther side of 
Model III. 

• No tools needed to install. 

No otf>ef modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $1001 



re- 



in- 



'278 



123 LOCUST STHEET LANCASTEH, PENNSYLVANIA 17602 
Phona 717/291-1116 

TRS-SO IS a trademark ot the Radio Shack Division ol Tandy CorpoiatiOn. 
FCC Rogotrabon Number: A909KE -68171 -OM-N 

Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTERNATIONAL 
Longwood, FL 
800/327-7172 

T>ie PROGRAM STORE 
Washington, IX 
800/424-2738 



ADVANCED COMPUTER PRODUCTS TSE HARDSIDE 

Irvine, CA Milford, NH 

800/854-8241 800/258-1 790 

STEVENS RADIO SHACK SIMUTEK 

Phoenixville. PA Tucson, AZ 

800/345-6279 800/528-1 1 49 



COMPUTER PLUS 
Littleton. MA 
800/343-8124 

PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 



■Hee List ol Advertisers or) oage Jflfi 
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UTILITY 



A machine-code subroutine to dump memory on your display. 



Memory Window 



Warren Merkey 
824 S.E 1st Avenue 
Gainesville. FL 32601 

Now you can view any 1024- 
byte block of memory in 
your Model I Level II keyboard- 
all 32 K. Memory window dumps 
memory onto the screen using 
a machine-code subroutine 
(a USR). 

Here is how the program 
works. Line 1010 tells the com- 
puter where the USR is located 
and also makes all variables 
into integers. Line 1020 is the 
USR in the form of decimal 
data. Line 1030 loads the USR 
Into place in high memory. Line 
1040 asks the user for a place to 
start. Line 1050 calls the sub- 
routine that moves memory 
onto the screen. Lines 1060-1080 
are a loop that looks for control 
key input (arrow keys, Enter, and 
space bar). Line 2000 prints the 
current value of M in the upper 
left corner of the screen, with an 
arrow pointing to M. Line 9000 
keeps the value of M within the 
first 32K of memory. Line 9010 
calculates decimal POKE values. 
(This will be explained below.) 
Line 9020 POKEs the address 
of the memory block to be 
displayed into the USR and 
then calls the USR. 

The USR consists of 12 bytes 
of code, in which the BC, DE 
and HL register pairs are 
loaded with the block-move 
parameters, which is done by 

the LDIR instruction. As the 
display scrolls the HL pair is 



the only one changed but the 

BC and DE pairs can also be 
easily changed. With these 12 
bytes of code and some skillful 
POKEing, you can move any 
part of memory to any other 
location. By POKEing a 184 
where there is a 176 {BO hex), 
you change the LDIR to LDDR. 
This is sometimes necessary 
when moving a block of memory 
Into an overlapping area, where 
the direction of the move would 
cause memory to be overwritten 
before it is moved. (Refer to 
"Now You See It" in 80 
Microcomputing, February 1981 
for another application ot the 
12-byte LDIR subroutine.) 

To use this program, respond 
to the Memory Size question 
with 32512 to protect the USR. 
Key in the program as listed 
and save it on tape before run- 
ning it. The program may bomb 



when It scans through certain 
sensitive areas of memory. The 
four arrow keys give you scroll- 
ing in the four directions. The 
enter key allows you to stop 
and pick another starting place. 
The space bar causes the cur- 
rent memory location (and ASCII 
value) to be printed in the upper 
left corner. 

In line 9010, the POKE values 
must be decimal, although they 
are related to hexadecimal. Take 
the value 32600 which equals 
7F58 hex. The 7F is the Most Sig- 
nificant Byte and the 58 is the 
Least Significant Byte. The LSB 
and MSB converted back to dec- 
imal are POKE values 88 and 
127. These values are POKEd in- 
to memory locations 32519 and 
32520 read by the machine-code 
program as 7F58 hex. 

Note that a hex number is 
translated to decimal by multl- 



IfHlO 'MErmRy UlNDOW 

lOlil P0HEIA52f.,0l POKE 1652', 1 27 : DEF I NTA-Z 

102O DflTn 1,0,4, 17,0,60, 33,0,0,237, I7fc,201 

lO-^O «-32512iFnRB-OTail!F«€RDCiPOkEA*B,CiNtXT8 

10«ii CI S; INPUT "bTftRTINB POINT (O - 3174JI";M 

lOVt liOBUB9000 

lOMl C-PEEt;(14«00)i IFC-OTfCNlObOtLStlFC-BTMENM-M-t* 

107i> IFC«16I»«MM-n*<»4EL6«lFC-52THENn'H- 1 ELSE I FC"(i4THEW1"«» 1 

lOBO lFC-lTt«N1040eL5EIFC»17BTHeN;(>OOtLSE1050 

2000 PRINrai ,CH**lfZ> l"-[H]PFf»IH); : WtlUlOfcO 

•?OiVl IFriiOr»tWt='OeL5EIFM>3174TThCNf1-31 F*l 

9O10 1-lNT <n/4;-tt,> i J=M-l»40«(iiN -INT( J/25fc) I H-K* 1 &* I i L-J-Kt2?(> 

90?0 F'Q»;E5rS19,L!Pt>E325i.'O.M: » = USB lO) iFff TURN 



USK AS'.*neiy I ISTING 



7F00 
7F00 
7F03 
7F06 
7F09 
7FOB 

'f oo 



01 oo o« 

11 00 sc 
21 oo 00 
ED BO 
C9 



ooioo 

OOl 10 
00120 
OOl 30 
00140 
00150 
OOldO 



LDIFI 
REI 

END 



3?312 lUBR AOOREB5 

Bt:, 1024 [LENGTH OF BLOCK 

Df, 153fc0 iBTART OF SCREEN MEMORY 
HI ,0 iPOKEd FROn BASIC PROGRAM 

|BLDCK-nDVE INSTRUCTION 
i RE TURN TO BASIC 
I END ASSEHBLV fNOGHMI 



Program Listing 



plying the values of its digits. 
7F58 hex translates as 7 x 4096 
-t-Fx 256 + 5x16 + 8x1 equals 
326000. Remember that F equals 
15. To reverse the procedure, 
you begin by dividing by 4096. 
The first two statements of line 
9010 are long division: 



(I = INT(My4096)l 



409e)32«00 
28672 



3928 = J. |J-M-r-4096)) 

The third and fourth statements 
are long division by 256: 

15 " K (K . INT(j;258» 

256)3928 
3840 

88 = L. (L = J~K'256) 

The next divisor would be 16; 
however, as you can see, 88 is 
the decimal POKE value we 
need for the LSB. This leaves us 
with a seven and a 15, which we 
know is 7F hex, a one-byte 
number. If we multiply seven by 
16 and add 15, we get 127, the 
decimal equivalent of 7F hex. 
This last step is expressed as 
H = K + 16'I. Lines 9000-9020 
are executed every time you 
press an arrow key. The USR 
reloads the entire screen with 
memory in the blink of an eye, 
giving the illusion of scrolling. 

I have used the algorithms in 
this program to build a memory 
editor which works reasonably 
well as a word processor. At the 
very least, Memory Window 
may Impart some knowledge to 
those of you who can grasp its 
principles- ■ 
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********************************* *^*A* * *^** *-i *jl* t- ^j 

4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 




*»n ,ou'»» co*>ired th« fwUm of »fi LWeO Ci»put*r, you'll nulckly 
jnutr-swid nftj tHr L*80 15 tfw ultiwt* IHSaO (oflsrtre coiip<tlD>* iyite". 
L* REMABCh off»r5 tlte "OSt coin(>!et» mlcrottuvuttr jystan »t an oiitiUnd- 
mg low 0'fc». 

Wc b»ck up our product wltfi an imconventiornl 6 nontfi mrrjBly and d 10 
da/1 full refund nnltcy, less shipeinq cMr9*^. 

U*I80 Conputer il ,4SO.0O 

LWBO CoKJuMr ■/Blk Hti^i M)r t one 5- Driit SI. 914. 00 

An orders mst t* prepaid, C* residents please include 61 sales tax. 
Contact MB for Bhippinq charges 

* 'Ri80 Praduct of Tandy Corporation. 

*■ P^ Crodutt of Perional Mi crocoBputer. Inc. 



COWME IKE 
FtATimES 


[£ATL«£S AND PlBfORMWiCE 

LNW80 Ph;-80" 


TRS-80* 
W)HL HI 


PBOCES^Oil 




t.O *7 


1.B WU 


2.0 »"Z 


LEVEL U WSIC IXTEW. 




YES 


«s 


LEvtL II : 

USIC 


TRS80 NOOtL 1 LEVEL 11 CO(**TlBLt 


YES 


YES 


■»0 


4aK BYItS RW 




YES 


TES 


VES 


CASSETTE BAUD WTl 




500/iooa 


soo 


500/lSOO 


aOPPT DISH CXWlHOtLER 




SlKLt/ 
DDUlLI 


smaE 


siiat/ 

C0U61E 


StRIAL RSZ32 WWT 




TE5 


VES 


VES 


PRldlER PORT 




fES 


lES 


YES 


HEAl TI« CLOCK 




1ES 


VES 


YES 


2* I SO CHASACTIiS 




TIS 


HO 


NO 


V1DC0 nONMOR 




111 


TtS 


YES 


UPPfR AND lOWER CASE 




(ES 


OPTIONAl 


YES 


REVERSE VIDEO 




l£S 


MO 


NO 


«TBO*MJ 




n m 


S3 K£T 


jl Wl 


tMCtllC UT PAD 




fES 


n 


TES 


t/V GRAPHICS, iia X ta 




TtS 


lES 


lES 


MI-FSSOLirriON B/H CRAPIIICS. 


480 11 192 


TES 


NO 


HD 


HI-HESOlLniOll COLOR fiRAPHlCS 
IZ8 I 19? IN 8 COlOftS 


INTSC). 


YES 


RO 


M 


HI -RESOLUT ion COlOfi UWMICS 
3&4 I \32 IN B COLORS 


{RGB), 


OPTIONAL 


NO 


NO 


HARRAHTV 




i HOHIKS 


90 OATS 


90 DA*'. 


TOTAL SVSTEM PHICE 




S>. '14.00 


tl.B40.OO 


ii.-.aJ.oo 


LESS NOHITOR AMO QISK DRIVI 




SI .aSO.OO 


tl.3'S.OO 


■" 



LNW80 

BARE PBINTIO CIRCUIT B1»RD 1 HANIjAl 189. 9S 

ine lnhSO ■ A titgh-speed color coa|iuter totally coapatible witri 
the IRS-80*. The LNUaO gl.es you tHe ed9e in Satisfying your 
conputitiofi nee<ls in business, scientific ami Mrsonat cnputa- 
lion. Mitn perform nee of * mz, iSOA CPU, you' 11 achtew per- 
fonMnce of D«er twice the [irocMSing speed of • IRS-80". Tnis 
•eaus you'll jet tfie perfonMnce that Is coeparible to the most 
cipensiie <iitcn>coii<>uter xlth tne compatibility to tlw world's 
B»st popular computer (IRS-80*) resullloq In the Mtdest soft- 
Mrf base. 

fLAIUdES. 

. TRS-aO "todel 1 Luel li Software Co^atible 
Mgti Resolution Graphics 

RGB Output - 384 . 192 In 8 Colors 
NTSC Video or RF HOD - 128 i 19? 1r 3 Colors 
. Biack and Ul^ice - 480 > 197 
, 4 Wi CPU 

. SOO/IOOO Baud Cassette 
Upper and LoMr Case 
16t Bytes RAH. I2K 8yUs ROW 
. Solder Hasted and Si Uscreened 



LNW SYSTEM EXPANSION 

BARE PRINTED CIRCUIT BOARD 

WD MANUAL J69.95 

.WITH &OLD COfiNECTORS S84.95 



The Sr^te* Efpansloii xi 1 1 alloH you to Eipand your LMBC. 
or P>tC-aO"* to a coapiete coi^uter systa* that Is itill t 
software coiviCible with the TRS-BQ* Model * Leiel M. 



IRS -BO* 
totally 



LNDoubler&DOS PLUS 3.3D 



- Aneifcled and Tested M/aOS PLUS 3.)D SnS.OO 

Dovble-dernUy disk stura^e for th« LM Research's "SystBt Eipan- 
sion" or tfi* Tandy's 'tjipansion Interface", The L^Ooubler"" is 
Uit4lly softiMri coRMtlble witn any doifile density softwarr 
jenerated for the Ptrc(*'s Doubler'", The LMOaubler™ pro. Ides 
the folloHlnq ojtstandin? features. 

. Store up to 3S0« bytes on i single 5" disk 
. Sin9le and double density data separation 

Preilslon write orecoipe«satlon circuit 
. Software twitch between sir^le and double density 

Easy plug In instaiUtloii retjulring no etch cuts, Ji«pers 
or ioldering 

3S. 40, 77. 80 track S" disk operation 

120 day parts and labor Warranty 

■** Doubler is a produit of Perco" Data Ci«pany. Im.. 

ECS Plus 3. id 

Micro SyslBus software's double density disk operating lystdni. 
This operating i/slem contains all the outstanding features of 
d well developed DOS, Hith ease in useability. 



KEYBOARD 



LNU80 KEYBOAflO <[T SB4.9S 

The h:eyt>Mrd Kit cortalns a 63 key plus a 10 key, P.C. board, and 
rwaintrr^ conponents. 



CASE 



321; Bytes Mexory 

S' Fluppy CO"trol ler 

Serial RS232 20h 1/0 

Parallel Printer 

tteal Tine Clock 

Screen Printer Bus 

On Board Power Supply 

Solder Masked and SiUscrecned 



LNW RESEARCH 

C OR PORA T ION 
2620 WALNUT 
TUSTIN CA. 92680 .571 



LNUaO CASE . tB4.95 

The streaahne design of tMs aettl case win houst the CNuao. 
UN Systw Eipansion, imtC PLeyWMrd. pmer supply and fan, 
INOoubler™. or LNK Bita Separator. Tnis kit includes all the 
bardwai-e to nount all of the above. Add S'J.oo tor shipping 

PARTS AVAtlWLE FfKW LNU RESERARCh 
. Ilt« - 200ns RW 

6 Cilf set l?fc.(W 

8 cMp set i33.SO 

16 Chip set 164.00 

?i chip set . 194.00 

32 chip set ........ .1124,00 

, LNM80 -Start up parts lef IHItao-l 182,00 

. LMSO 'YIdeo parts set" LIMAO-; 131.00 

. LNMSO irinsforwr LIM80-] l'>8.00 

. L*SO Keyboard caBle ..t4dli-t $16.00 

. 40 Pin computer to eipansion cable , , . , . , , IIS.OO 

System Eipansion Transformer 119. 00 

Floppy Controller (FD17711 and UARI iTP1602; . . J30,00 



ORDERS & t N FO NO. 714 - 544 ~ 5744 
SERVICE Ha 7t4-64t-8850 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTED 

ADO *3 FOR SHIW«G 



INTRODUCING TmE MEW 
ORYBOX MEWOOyE«P*N 
lON UM' ■ ■ Wemo'y Tnai 
Ne<e' Neeai ''■cieci.on ' 
■ 10:4 S>tes .-. ' 0AM 1- At 
Unas5ig-ej Area ' ' Sqi>bs 
Meino^i AiiotaiiO" Pro- 
blems ■ P'oa'a^is Sla> 11 
tie MEMQ«' BOX Eve" 
W-en CPU Is I u'neO 01' ' ' 
Fu- M Jpi i Level 11 A n A 11 
Dos S. Sle"-5 |4 16 32.48RI 

t49 95 ■ 1*0 UMii, So'i*a'e 
P'OH'^r^s Wnrre'i f^or Tne 
MEMORY BO" Are ' 
1 ■ M ICMON ■ A Powerful 
Mac^ re Lafis^^Be Monitor 
laccessaDie *ii^oji disiu'D 
i19 95 
Ur.iiiy "m: ^Oe» 
Cdiseire Leve Meter Pro- 
□ ■am ■ Aaj KeyCoa'a De- 
bou-^e " Sceen P-int Ori.flt 
' LineSPage Leiglfi Coii'Oi' 
C iSe Numceririg " Smart 
Line Term if aliOi ■ MORE " 

Ii;95 ■INT«0DUCT0RT 
OFFER COMPLETE PACK- 
AGE J6* 95 



CERTIFIED DATA CARTRIDGES ' 

■ Superior Qua H. CASSETTE 
TAPES ■ ' GUARANTEED 100% 
Erro: Free ' " Fiire Sere* Con- 
»1 ruction ' 

■ Langin 12 PACK 24 PACK " 

C 10 68 •* 58 »• 
C ?0 88 ea 'Sea 



■ 2K HIDEAWAY ■ Ep'OTi Boa'O 
Po*et Supply loci . USES 2"8 
EpromOlip (r^oi induOBOl 149 95 

'^ EPflOM PHOGflAMER S69 95 

■ U V ■ EPROM ERASER LAMP 
179 95 27'6 (BLANK! EPROM 
CHIP t8 95 



Aoa II 50 'O' shipping anil nanO- 
i.nn TO ORDER SEND CMEC«S 
AND MONEY ORDERS TO 



DISPLAYED VIDEO 

7538 JACKSON ROAD 

ANN ARBOR, Ml *ei03 

OR CALL |313) 426-5086 0« 

13131 482-44^4 



DlSPUYFDl 



RELOAD 80 



Many of our readers have 
called with questions 
atxjut Color Computer programs 
and LOAD80. Some wanted to 
know if Color Computer pro- 
grams were on the tapes, others 
wondered if they could load the 
LOAD80 programs into their Col- 
or Computer, alter them and run 
them. This month, we'll clear the 
air about the Color Computer. 

First, the Color Computer pro* 
grams we publish in the maga- 
zine are not on the LOAD60 
tapes. This is because the Color 
Computer downloads data at 
1500 baud only. LOAD80 tapes 
are recorded at 500 baud so they 
can be used by both Model I and 
Model III users. LOAD80 tapes 
with programs recorded at dif- 
ferent baud rates cannot be du- 
plicated by our high speed 
duplicator. 

You cannot load the LOAD80 
tapes into the Color Computer 



for two reasons: one, the baud 
rates are different, and two, the 
Color Computer uses two separ- 
ate tone pulses to output data- 
one to indicate a binary 1, the 
other to indicate a binary 0- The 
Models I and III use a single tone 
pulse that is either on or off to 
indicate the respective binary 1 
or 0. For these reasons, the Col- 
or Computer and LOAD80 are 
incompatible. 

Of course, you can still modi- 
fy the programs m 80 Microcom- 
puting to comply with Color Ba- 
sic, and then type in the listings. 

At the moment, there are 
plans afoot to put together a col- 
lection of the magazine's Color 
Computer programs in a special 
edition. Color LOAD80. This spe- 
cial edition should be available 
by Christmas, Check this col- 
umn next month for full details. 

Model II owners have been 
asking for a LOAD80 of Model 11 



programs, as well. This project 
is also under development and 
an announcement is planned for 
our December issue. The Model 
II LOAD80 will be a bit more ex- 
pensive than either the regular 
LOAD80 or the special Color 
LOAD80, since it will be disk 
based. 

The response to the LOAD80 
project has been almost over- 
whelming. The Editors of the 
magazine are glad to be able to 
make this service available. We 
appreciate your feedback. Send 
your LOAD80 comments to this 
column, care of 80 Microcom- 
puting. 80 Pine Street, Peterbor- 
ough, NH 03458. 

Next month, we'll delve into 
the mysteries of the Editor/As- 
sembler, a subject postponed 
from this month because of the 
great number of Color Computer 
inquiries. ■ 





October LOAD80 Directory 




PGM# 


Filename 


Page 


Comments 


1 


MASTMIND 


122 


None 


2 


SYLLOG 


132 


None 


3 


VOICE 


141 


None 


4 


SPEAK 


141 


None 


5 


TYPE 


141 


None 


6 


TALKER 


146 


None 


7 


BSKTBALL 


184 


None 


8 


HOMEINVT 


220 


None 


9 


BOOKS 


234 


None 


10 


SUNSET 


272 


None 


11 


FREEZER 


274 


None 


12 


TRSCPM 


288 


None 


13 


YAHT2EE 


302 


None 


14 


BRIDGE 


306 


None 


15 


FIREFGHT 


316 


None 


16 


SPACE 


334 


None 


17 


JERICHO 


350 


None 


18 


TPRGEN/SCR 


196 


Needs EDTASM 


19 


AUTOKEY/SRC 


242 


Needs EDTASM 


20 


ASMPTCH/SRC 


326 


Needs EDTASM 


21 


EDASFIX/SRC 


344 


Needs EDTASM 


22 


COPYIT/SRC 


370 


Needs EDTASM 
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Do You Have Disk Errors? 

Over 90% of Diskerrorsarecausedby two things. Bad disks and guarantees all their Disks for a minimum of 2 years. 
not having a data seperator If you haven't ordered Percom's 

Doubler II then see our ad for details and order one now. You will Percom ran extensive tests during their research and design of 

not believe the improvement in your system. If you are having the doubler and reached the conclusion that Wabash made the 

CRC errors, Data not found, or other errors especially in the best S'A inch double density diskette. 
higher numbered tracks you probably have a bad or worn out 

disk. Order some today if you don't like them for any reason return 

them within 30 days and we will give you a prompt refund. If you 

Every disk sold is certified but there is a big difference between have any problems with them in the next two years return the 

brands. Some brands just barely pass the ANSI certification disk and we will send you a new one. No other company can 

standards, others like WABASH produce disks that are far better match that offer at our LOW prices. 
than the minimum standards. (Wabash sells the disks that aren't 

good enough to put the Wabash Label on to Discount outlets Single Density 35/40 tracks $25,95 

that sell them as off brands and no Label disks.) WABASH Disks Double Density 35/40 tracks $32.99 

are certified over the entire useable disk surtace. Despite Double Density 77/80 tracks $32.99 

repeated use and normal wear and calibration drift on your drive Double Density 80 tracks 2 sided 39.00 

system, WABASH disks will continue to work reliably - long after 8 Inch Floppies. Double Density $39.00 

the so called bargain brands have failed. That's why WABASH SAVEMORE.ORDERTWOORMOREBOXESANDTAKEADOLLAR 

A BOX DISCOUNT. 



FREE PRINT BUFFER! 

What's a print bufffer you ask? It is hard to describe 
physically it's a 8x1 0x4 box that has 1 6k memory and 
plugs in between the computer and the printer. The 
printer can only accept data a line at a time with the 
Epson mx-80 thats around 100 baud. The computer 
can send print data through the printer port at over 
1000 baud. The print buffer takes the data from the 
computer and stores it until the printer is ready for it. 

If you are using your computer for business or if your 
time is valuable and you hate to sit doing nothing while 
the printer is printing YOU NEED THIS. With the time, 
the buffer saves you, it will pay for itself within a few 
days. We are so sure that you will like it that you can use 
it for 30 days free. If you don't think it will pay for itself 
send it back for a prompt refund. 

MICR0C0MPAT1BLE with 1 6K of Ivlemory S290.00 

Cable $35.00 



TWO NEW ARCADE GAMES 

DUNGEON ESCAPE 

It's been on the market for two months and has been getting rave reviews. 
Some of the comments are "I like it better than all of the previous dungeon 
games. It's got the great graphics and it's fast" "I get tired of the Big Five" 
arcade games as they are the same every time. Dungeon Escape gives 
you a different dungeon and a different ghost every game." "My favorite 
game." "I used to fall asleep waiting for the graphics in Hellfire Warrior', 
Dungeon Escape is 10 times as fast". 

SUPER 6MPMICS * INTEMCTIVE SOUND 
UtnST PII06UIIMIHB TECHNIQUES 

SCARFMAN 

A new game by the author of Adventure Internationals Missle Attack This 

is very similar to the PAC-MAN arcade game. 

It hasexcellent graphics, with sound, and you can even use the joysticks 

with this one. 

YOU MUST SPECIFY MODEL I DH MDDEL III. 

Available on: 

1 6K Tape $1 5.95 

Diskette. 32K $19.50 



PERCOM'S DOUOLER II 

It you haven't got a doubler for your Model I, order 
one now. this is the greatest thing to come along lor 
the Model I. Since it actually reducesdisk read/wrjte 
errors, your system will run Better with a PERCOM 
doubler. And you will also save both time and money 
by having more programs per diskette. 
PERCOM'S DOUBLEK II $159.00 



NEW MODEM GAMES 

Play Checkers. Chess, or Othello over your modem 
with your tnends! Each game features full graphics, 
sound, and a chat mode permitting you to send 
messages and sounds (to gel the other persons 
allention). Games are for two players, either one or 
two computers. Complete documentation. All three: 

Tipa $14.95 DItk $10.95 



SUPERMETER 




The biggest problem in loading tapes has been the volume control. 
Prerecorded tapes are produced at differing volume levels. Now 
finally, a device to let you set the correct volume levels for loading any tape. You will 
now load any tape the FIRST time. SUPERMETER plugs in {no cutting or soldering) 
between your tape recorder and the computer and lets you set the volume to the level 
that your computer wants. 

SUPERMETER $20.00 



Computer Shack 

1691 Eason • Pontiac, Michigan 

Nbw Games • Utilities • Builnets Proorsms 
WANTED 



Deaier inquires Inviied. 

C O.D ■ certified check M O or cash only. Sorry, no C O over $1 50.00' Most orders 
shipped next day All orders must have shipptng included Please add 2% or $2.50, 
whicfievei is fugher. for sfiipping (unless otherwise slated]. Oul-of-Country orders, please 
add SI 00 additional shipping and handling. Dalarice returned upon shipment. 



PHONE OROERS WELCOME: (313)173-2224 B73-I700 

Call between 8-2 E.ST. 



^Ses List 0/ AOverlisers on page 386 
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5&CAlENDAIt 



October 



Oct. 2 and 3 A two-day conference 
on "Classroom Applications of Com- 
puters" will be conducted at Indepen- 
dence High School, San Jose, CA, by 
Computer-Using Educators and Santa 
Clara Valley Mathematics Assn. The 
Conference will cover mathematics, 
science, business, music, special edu- 
cation, language arts and administra- 
tive applications of computers at lev- 
els ranging from pre-school through 
college. Information is available from 
Computer-Using Educators, Indepen- 
dence High School, 1776 Educational 
Park Dr., San Jose, CA 95133. 



Oct. 24 and 25 The second annual 
New Jersey Microcomputer Show and 
Fleamarftet is scheduled at the Holi- 



day Inn North Convention Center, New- 
ark, NJ. The show will feature 75 com- 
mercial exhibitors and more than 100 
outdoor fleamarket vendors and user- 
group meetings for TRS-80s. Admis- 
sion for the show and fleamarket is $5; 
for the fleamarket only, $3. It is spon- 
sored by Kengore Corp., 3001 Rte. 27, 
Franklin NJ 08823 



Oct. 26-Nov. 4 Virginia Polytechnic In- 
stitute and State University will con- 
duct three workshops in October and 
November Digital Electronics for 
Automation and Instrumentation will 
be Oct. 26-28; Microcomputer Design 
Interfacing and Programming using 
ZBO/8065/8080 will be Oct. 29-31; and 
Scientific Instrument Automation, In- 
terfacing and Programming using ttie 




^.'Q.UM^ 



TRS^ microcomputer will be Nov. 
2-4. Information is available from Dr. 
Lindy Leffel, CEC, Virginia Tech, 
Blacksburg.VA 24061- 



Technlcal Education Research Cen- 
ters, 8 Eliot St., Cambridge, MA 02138, 
will sponsor a series of workshops on 
Microcomputers In Education" in Col 
lege Park, MD, Oct 2-4; Toronto, Cana- 
da, October 22-24; and Cambridge, 
MA, Nov. 22-24. They will include a dis- 
cussion of educational issues, three 
microcomputer languages and labora- 
tory and science applications of micro- 
computers. 



The commission on Software Issues 
in the 'SOs, 1301 20th St., N.W., Suite 
116, Washington, DC 20036, will spon- 
sor the National Conference on Soft- 
ware: Critical Decisions, at the Shore- 
ham Hotel, Washington, DC, Oct. 5-6. 
Subject areas will include education, 
software protection, technical issues 
and taxation. 



The University of California, Berke- 
ley, will sponsor a two-day course on 
"Bit-Slice Microprocessor Design" for 

engineers and engineering managers 
at the Marriott Santa Clara Hotel, San- 
ta Clara, CA Oct 26-27. Fee is $350. In- 
terested parties can register through 
the Office of Continuing Education in 
Engineering, University of California 
Extension, 2223 Fulton St., Berkeley, 
CA 94720. 



Ken Orr and Associates, Inc., 715 E. 
8th St., Topeka, KS 66607, will sponsor 
courses and conferences on several is- 
sues in October. Subjects are: Oct. 



366 • 80 Microcomputing. October 1981 



5-7, Data Structured Systsms Design 
Users Conference, Topeka; Oct. 8, Sys- 
tems Maintenance Update Confer- 
ence, Topeka; Oct 19-23, Structured 
Systems Design, Kansas City, MO; 
Oct. 20-23, Structured Requirements 
Definition, Atlanta, QA; Oct. 27-29, 
Structured Data Base Design, Topeka; 
Oct. 27-30. Structured Requirements 
Definition, Denver, CO. 



November 

The University ot California, Berke- 
ley, will sponsor a two-day course titled 
"Comparison of Recent Microcom- 
puter Architectures" for design en- 
gineers, programmers and technical 
managers at the San Francisco Airport 
Hilton, Nov. 9-10. Fee is $400. Informa- 
tion and registration is available 
through the office of Continuing Edu- 
cation in Engineering, University of 
California Extension, 2223 Fulton St., 
Berkely, CA 94720 



The New Mexico Computer Society 
will host the third annual New Mexico 
Computer Fair Nov. 14 at the Albuquer- 
que Civic Auditorium. Admission is 
free, information is available from Ron 
Benninghoff, c/o f^ew Mexico Com- 
puter Society, 515 Wyoming NE No. 2, 
Albuquerque, NM 87108 



Ken Orr and Associates, Inc., 715 E. 
8th St., Topeka, KS 66607, will sponsor 
several courses and conferences in 
November. Subjects are: Nov. 3-6 
Structured Requirements Definition, 
San Antonio, TX; Nov. 3-6, Structured 
Program Design, Boston, MA; Nov. 10, 
Management Overview of Data Struc- 
tured Systems Development, Denver, 
CO; Nov. 11, Management Overview of 
Data Structured Systems Develop- 
ment, Portland, OR; Nov. 13, Manage- 
ment Overview of Data Structured Sys- 
tems Development, Seattle, WA; Nov. 
9-13, Structured Systems Design/ 



Structured Program Design Combined 
Course, St. Louis, MO; Nov. 10-13, 
Structured Requirements Definition, 
Los Angeles, CA; Nov. 16-20, Struc- 
tured Systems Design/Structured Pro- 
gram Design Combined Course, Wash- 
ington, DC. 



December 

Ken Orr and Associates, Inc., 715 E. 
8th St., Topeka, KS 66607 will run 
several courses in December. Subjects 
are: Dec. 1-4, Structured Systems De- 
sign, Chicago, IL; Dec. 8-10, Struc- 
tured Program Design for Teleproces- 
sing, Topeka, KS; Dec. 8-11, Struc- 
tured Requirements Definition, Phila- 
delphia, PA; Dec. 8-11, Structured Pro- 
gram Design, Kansas City, MO; Dec. 
14-18, Structured Systems Design/ 
Structured Program Design Combined 
Course, Atlanta, QA. 



GOSGB 

GOSUB'S MXBO/70 FRICTION FEED KIT 
ONLY $49.95 ppd 

The Gosub MX80/70 Friction Feed Kit (or the Epson MX80 
printer will give you complete paper conlrol. 
You get easy to follow instructions and all parts necessary 
to give your epson friction feed capabilities. 
No drilling and it installs in about 15 minutes. 
Money back guarantee If not satisfied. 
PLUS: 

' USE SINGLE SHEET PAPER 

■ USE INEXPENSIVE nOLL PAPER 

* USE YOun CWN LETTER MEAD 

■ FREE PAPER ROLL RACK INCLUDED WITH KIT 

• DOES NOT AFFECT PIN-FEED USE 

PRINTERS: EPSON MXao . S51S EPSON MX100 ..UM 



STRATEGY SIMULATIONS 
MERCENARY FORCE 

Command a meicsnary 
army. Decide ihe number of 
men, type of weapons, 
armor, air support, medical 
Bid and transports. Battle 
ine enemy In jungles, 
underwater, on moons and 
in space (1-4 players) 

TRS«0 L2 16K S1S.K 



FOR THE TRSW 
SPACE MERCHANT 

Build an Empire in the 
stars Choose your cargo, 
means ot shipping, and 
security. Risk pirates. Ion 
storms, engine failure and 
other hazards while you try 
lo become a Space 
Merchant. (1-6 players) 
TRSO L2/16K S9.B5 



«*NS»S RtS ADO )% i*ll S I*X n*S-»0 IS * IR*DtMA(«« Of lAMDY CORP J 

All PKlCf S 5UBIICT ro CHANCf WIIMOVJI NOIlCi «H CAIAIOC UPON MQOIII. 

^^^ SINO CHECK Ol MONEf OKOfR TO: ^^PM 



P.O. BOX 275-G 



QOSGB 

(316) 26&-Ma2 



^284 



WICHITA, KS 67901 




TRS-80 ADVENTURES FOR 16K COLO 

Extended color or Level II BASIC 
ESCAPE FROM MARS - You are stranded on Mars and some- 
where in the Martian city are the parts you need to repair your 

ship. Our best adventure for new adventurers. 

TREK ADVENTURE - You will recognize the Spaceship this 1 

takes place on. The crew has left— for good reason— but they j 

forgot you— and the "Orbit is Decaying," Almost as good as 

being there. 

PYRAMID - Our most advanced and challenging adventure, this 

takes place in our own special ancient pyramid. The builders 

were as nasty as pyramid builders usually are, and ransacking 

this one is a dangerous job. 

ADVENTURES are all written in BASIC, all come with listings, 

and each sells for $14.95, 

ARCADE AND THINKING GAMES ' 

16K and extended or level II BASIC 
TIME TREK. REAL TIME REAL GRAPHICS TREK. See the 

torpedoes fly and the Klinsons explode. No more scolling dis- 
plays, no more turn taking. — This one has real time and real 
displays. In BASIC - for 16K level II or extended color BASIC. 
$14.95. 

STARFIGHTER — This one man space war game pits you against 
spacecruisers, battlewagons. and one man fighters. You have 
the view from your cockpit window, a working instrument 
panel, and your wits. Another real time goody. 
BATTLEFLEET — This grown-up version of Battleship is the 
toughest thinking game available on 80 computers. There is no 
luck involved as you seek out the 80's hidden fleet. This is a 
topograpfiical toughie. $9.95, 

SLASHBALL — A two player game of strategy and skill, this is 
like nothing you have ever seen before. This takes fast fingers, 
quick wits and concentration. Playable from age 6 to 65, it is a 
good family game, $9.95. 



^^ 



% 



FREE CATALOG 

AARDVARK-80.129 

2352 S. Commerce, Walled Lake, Ml 48088 

{313)669-3110 



• See Ltsi ol AOveriise's on page 386 
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UTILITY 



Leave typing to typists. Enter data the easy way. 



Copyit 



Program Listing 1. Copyit 



4020 
0000 

0001 

001A 
40A4 
402S 
0000 
0001 
001A 
40A4 
085P 
42E9 



42E9 3Ae443 
42EC B7 
42ED 2060 
42EF CD0000 



42F2 PEIA 
42F4 C0 



42F5 
42F6 
42F9 
42FC 
42FF 
4301 
4304 
4306 
4308 
430A 
430D 
4310 
4311 
4312 



D9 

216F43 

CDA728 

216543 

0608 

CDD905 

FE01 

2845 

3E5F 

322240 

CD5A1E 

7A 

B3 

2B39 



00001 
00002 
00003 
00100 
00110 
00120 
00125 
00130 
00140 
00150 
00160 
00170 
001B0 
00190 
00200 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00295 
00296 
00297 
00300 
00301 
00302 
00303 
00304 
00305 
00310 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00461 
00462 
00463 
00464 
00465 



. ***** COPYIT ** 
r BY RON BALEWSKI 
; 12/19/1980 
CSRPOS EQU 
KEYSCN EQU 
BREAK EQU 
; SHDOWN CAN BE 
SHDOWN EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

ORG 



B AS BEG 

CSRPOS 

KEYSCN 

BREAK 

SHDOWN 

BASBEG 

CURSOR 



4020H 



CHANGED 

26 

40A4H 

4020H 



1 

26 

40A4H 

95 

42E9H 



TO ANY DESIRED TURN-ON CODE 



; CURSOR CHARACTER 



ENTRY POINT — IF COPY IN PROGRESS, GO TO CONSEN 
CALL RADIO SHACK KEYBOARD DRIVER 
IF CHARACTER RETURNED = SHIFT-DOWN-ARROW 

THEN GO TO START A COPY OTHERWISE GIVE 

THE CHARACTER TO BASIC 



COPYIT 



KEYADD 



LD 
OR 
JR 
CALL 



A, (DUPFLG) 

A 

NZ, CONSEN 

KEYSCN 



;COPY IN PROGRESS? 



;IF SO, 
?CALL R 



CONTINUE SENDING 
S KEYBOARD DRIVER 



THE ADDRESS OF THE ABOVE CALL WILL BE LOADED IN DURING 
THE PROGRAM SETUP TIME. 



CP 
RET 



SHDOWN 
NZ 



; SHIFT-DOWN PRESSED? 
;IF NOT, RETURN 



START COPY AFTER SHIFT-DOWN PRESSED 

ASK FOR AND DECODE DESIRED LINE NUMBER. 

IF 0, LEAVE COPYIT 

IF BREAK PRESSED DURING INPUT, LEAVE COPYIT WITH A 
BREAK CHARACTER 
EXX ,-SWAP REGS 

; POINT TO COPY LINE HSG 

; PRINT IT 

;GET ADD OF MY INPUT BUFF 

;MAX OF 8 CHARACTERS 

jCALL INPUT RTN 

;QU1T W/ BREAK? 

J IF SO, LEAVE W/ BREAK 

;GET CURSOR 

jTURN CURSOR BACK ON 

;CONVERT t TO BINARY 

;0 RETURNED? 

J IF SO, LEAVE 



BEGIN SEARCHING BASIC TEXT FOR DESIRED LINE NUMBER 
IF PRESENT, GO TO FOUND ELSE GO TO NOTFND 

Piogiam continues 



LD 


HL,MSGl 


CALL 


28A7H 


LD 


HL.COPBUF 


LD 


B,8 


CALL 


05D9H 


CP 


BREAK 


JR 


Z,EXIT 


LD 


A, CURSOR 


LD 


{4022H) ,A 


CALL 


1E5AH 


LD 


A,D 


OR 


E 


JR 


Z,EXIT 



Ron Balewski 
412 E. Ridge St. 
Nanticoke, PA 18634 



Even Christmas can be te- 
dious. About a week before 
the last Yule, I typed some 
seasonal music on my TRS-80. 
Because most songs contain 
more than one verse, and 
Christmas tunes are no excep- 
tion, I found myself typing iden- 
tical data statements over and 
over — not something I enjoy. 

Since I had already typed the 
data once, I figured alt 1 had to 
do was find it. 

Copyit 

I wrote a short utility (2K 
plus) that can save you time re- 
typing long, tedious data state- 
ments when they are repeated 
in any Basic program. I call it 
Copyit. 

Copyit lets you duplicate one 
line of Basic code In another. I 
placed it In low memory {below 
Basic) to eliminate the need for 
separate programs for 16, 32 
and 48K machines. I patched 
Copyit into the keyboard's 
device control block {DCB), so 
that each time you strike a 
character, Basic calls Copyit, 
instead of the usual input 
routine. 

Copyit checks a flag that indi- 
cates you need a copy of a previ- 
ous data statement. If the flag 
says no, Copyit calls the key- 
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THE BOOKKEEPERS 



FOR INFO CALL (603)-447-2745 



Full Charge Bookkeeper-48K. 3 DRIVE, vv/ ALPHA $129.95 
Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 
Cheap Bookkeeper-32K, 2DRIVE & Printer $ 89.95 

All Above Are Daily Journal— C/ L S\/stems 



Ann Rose, our Accounts Receivable Clerk — 
48K, 2 DRIVE SPRINTER 



$150.00 



STURDiVANT & DUNN, INC- ^82 

BOX 277, 124 WASHINGTON ST.. CONWA>. NM, 03818 




SUPER MICRO PRO CESSOR FOOTBALL 



5CD»: ■< f:*'v aj'pij"'E' - 1 



] :i 21 31 

!Sr DOW CKD IB W THE N1I>JT> Jl'CJ'EPS 31 



lllll IW; IS VQlW OrFENSlUE P>J1Y' Mill 



cmo IS WRING - ';« «*iwsri ii : a 



Animated Graphics - Game Timn riork 
|48K 32K1 Available for TRS80* Lll Ml or M3 
48K DISC »22 95 - :i2K DISC M9.95 dSK 

has more nf evprylhing'" i 

16K DISC OR TAPF M2 95 ' 

Many more super piograms Pleasf' wntp tc 
free listing and prcgrijm riptails 

Attention: Software Authors We want good 

pfograms -Top royalty plan Dealer rnrjuiries 

welcomed 

■ TRS80 IS a Reg Trademark of Tandy Corp 

MICRO PRO SYSTEMS 

Route #2 Box 533 
Gumming, Georgia 30130 



MAKE «$$$$ 
«*$ MONEY 

Selling SO Microcomputing, the only major journal for the users of the 
TRS-SO*, is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "80" will make you money. . .it's the only magaxine for the 
TRS-80 • users and you know how many of those there are. So call today 
and join the dealers who make money ^vith ^*8o*\ 

For information on selling 80 Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
at 80 Microcomputing, Pine Street, Peterborough, NH 03458, 



'TRS-SO is a trademark oE the Tandy Corp. 



■See List at AOvemsers on page 3S6 
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board driver. 

If you pressed any character 
other than a shift down-arrow 
Basic records the character in 
the A register as usuai. 

if the keyboard driver returns 
the shift down-arrow, you'll ac- 
tivate Copyit and it will ask you 
for a line number. The routine 
converts this number to binary 
and searches for it. If Copyit 
can't find the line, it prints a 
message to that effect and ter- 
minates itself, until you ac- 
tivate it again. 

If the routine finds the line 
number, it sets a "next-byte-to- 
copy" pointer to the first 
character of that line, turns on 
the copy flag, sets the A 
register to zero and returns 
control to Basic. Setting the A 
register to zero fools the com- 
puter into thinking that nothing 
has happened. 

From this point on, whenever 
the keyboard is scanned and 
the copy flag is on, Copyit reads 
the "next-byte-to-copy" pointer. 
It loads this byte into the A reg- 
ister, and the pointer is bumped 
up one. Control is then returned 
to Basic with the character in 
the A register, just as If you had 
typttd it. 

Sk'ee the copy flag remains 
on, thB entire line will be sent to 
Basic, character by character, 
until the "next-byte-to-copy" is 
zero. If so, Copyit has found the 
end of the line; it turns off the 
flag, and Basic resumes. 

Operating Instructions 

Let's take an example. To 
copy line 10 into line 20, type: 20 
shift down-arrow. Copyit will re- 
spond with: Line Number? 

You then type 10 and hit 
Enter. Hit Enter once again, and 
you have rejoined Basic. 

If your machine has a new 
ROM, you will have to type: shift 
down-arrow Z to activate Copyit. 
You can tell if you have a new 
ROM, because your computer 
will ask you for the Memory Size 
while, if your computer has an 
old ROM, it will ask you for the 
Memory Size. You can change 
this by replacing the 26 in line 
130 with the ASCII code you 
want to use. 

You can activate Copyit at 
any time, not just at the begin- 
ning of a line. You can type a 



Program Listing ^ Continued 










4314 DD2AA440 


00470 




LD 


IX, (BASBEG) 


;POINT TO BEGIN OF BASIC 


4318 DD6E02 


00460 PROLIN 


LD 


L, {IX-e2) 


;GET CURRENT LINE # 


431B DD6603 


00490 




LD 


H,{IX-f3} 




431E DF 


00500 




RST 


leH 


(•COMPARE WITH t WANTED 


431F 2B0D 


00510 




JH 


Z, FOUND 


;JUMP IF FOUND 


4321 3020 


00520 
00530 




JR 


NC, NOTFND 


;IF CURRENT>WANTED 
; THEN NOT IN TEXT. 


4323 DD6601 


00540 




LD 


H,(IX+1) 


fGET ADD OF NEXT LINE 


4326 DD6E00 


00550 




LD 


L,(IX+0) 




4329 E5 


00560 




PUSH 


HL 


! TRANSFER TO 


432A DDEl 


00570 




POP 


IX 


POINTER 


432C 18EA 


00580 

00581 ; 

00582 ; 

00583 ; 




JR 


PROLIN 


;G0 PROCESS THIS LINE 




00584 ; 


FOUND- 


SET DUPLICATION FLAG (DUPFLG) AND SET POINTER FOR \ 




00565 ; 




THE NEXT CALLS TO FETCH 


THE TEXT THEN LEAVE. 


432E 3E01 


005 90 FOUND 


LD 


A,i 


fSET COPY IN PROGRESS FLG 


4330 326443 


00600 




LD 


(DUPFLG) ,A 




4333 DD23 


00610 




INC 


IX 


;BUMP PAST 


4335 DD23 


00620 




INC 


IX 


; NEXT LINE PTR 


4337 DD23 


00630 




INC 


IX 


jBUMP PAST 


4339 DD23 


00640 




INC 


IX 


; LINE # 


. 433B DD226243 


00650 
00660 




LD 


(CURBYT) ,IX 


; POINT TO WHERE TO START 
; COPYING FROM 


433F 3E00 


00670 




LD 


A,0 


;SAY NOTHING HAPPENED 


4341 180A 


006 80 
00681 
00662 
00683 




JR 


EXIT 


;G0 BACK TO BASICS 




00684 


NO TFND 


- PRINT 


NOT FOUND MESSAGE AND LEAVE | 


4343 217C43 


006 90 NOTFND 


LD 


HL,MSG2 


! POINT TO NOT FOUND MSG 


4346 CDA728 


00700 




CALL 


28A7H 


; PRINT IT 


4349 3E00 


00710 




LD 


A,0 




434B 1800 


00720 




JR 


EXIT 


; LEAVE 


434D D9 


00640 EXIT 


EXX 




; RE-SWAP REGS 


434E C9 


00850 
00860 
00870 




RET 








00880 


CONSEN- CONTINUE SENDING THE CURRENT LINE BEING COPIED j 




00890 




BYTE 


BY BYTE 'TILL IT 


S DONE 




00900 










434F D9 


00910 ( 


:ONSEN 


EXX 




;SWAP REGS 


4350 2A6243 


00920 




LD 


HL, (CURBYT) 


; POINT TO BYTE TO BE SENT 


4353 7E 


00930 




LD 


A,(HL) 




4354 B7 


00940 




OR 


A 


;ByTE TO BE SENT 0? 


4355 2606 


00950 




JR 


Z,QOIT 


!IF SO, LINE ENDED, QUIT 


4357 23 


00960 




INC 


HL 


jBUMP TO NEXT CHR 


4358 226243 


00970 




LD 


(CURBYT) ,HL 


; & PUT FOR NEXT TIME 


435B D9 


00980 




EXX 




;RESWAP REGS 


435C C9 


00990 




RET 




;BACK TO BASIC 


435D 326443 


01000 


2UIT 


LD 


(DUPFLG) ,A 


;TURN OFF COPY FLAG 


4360 D9 


01010 




EXX 




; RE-SWAP REGS 


4361 C9 


01020 




RET 




J BACK TO BASIC 


4362 0000 


01030 


:URBYT 


DEFW 





fNEXT-TO-SEND POINTER 


4364 00 


01040 


DUPFLG 


DEFB 





{DUPLICATION FLAG 


000A 


01050 


:oPBUP 


DEFS 


10 




436F 20 


01060 


4SG1 


DEFM 


' COPY LINE? ' 




437B 00 


01070 




DEFB 







437C 20 


01080 


4SG2 


DEFM 


' LINE NOT POUND ' I 


438C 00 


01090 
01091 
01092 
01093 


} 


DEFB 









01094 


fSETUP- 


THIS SECTION IS OVERWRITTEN BY YOUR BASIC. 




01095 


f 


IT SETS START-BASIC POINTER TO ITS BEGINNING, 




01096 


1 


PATCHES COPYIT INTO THE 


KEYBOARD DCB, AND 




01097 


} 


RETURNS TO BASIC WITH A 


"NEW" COMMAND. 


438D 218D43 


01100 


SETUP 


LD 


HL, SETUP 


jWHERE BASIC WILL START 


4390 3600 


01110 




LD 


(HL),0 


(INITIALIZE TO 


4392 23 


01120 




INC 


HL 




4393 22A440 


01130 




LD 


(40A4H] ,HL 


(PUT IN BASIC PGM PTR 


4396 21191A 


01140 




LD 


HL,1A19H 


I GET READY ADD 


4399 E5 


01150 




PUSH 


HL 


;PUT READY ON STACK 


439A 2A1640 


01160 




LD 


HL,(4016H) 


jGET KBD DRIVER ADD 


439D 22F042 


01170 




LD 


(KEYADD+1) ,HL 


(SAVE IT FOR USE 


43A0 21E942 


01160 




LD 


HL, COPYIT 


(GET MY ADDRESS 


43A3 221640 


01190 




LD 


[4016H) ,HL 


;MAKE ME HEW DRIVER 


43A6 C34D1B 


01200 




JP 


1B4DH 


;G0 NEW AND READY 


43 BD 


01210 




END 


SETUP 





Statement or two before copy- 
ing line 10; you can also copy 

something after copying line 
10, but before entering the line; 



or you can copy line 10 into line 
20 more than one time. 

Once you see how much typ- 
ing Copyit can save you, you'll 



start loading It habitually before 
typing long data statements. 
Remember, you may have to 
move those statements. ■ 
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THE BIGGEST NAME IN LfTTLE COMPUTERS" 

TRS-80 Model 0— Your Best Buy 
In a Business Microcomputer 



niiiiiiijjiiii III" II" 




UP 
TO 

15% 



I 



on 

TRS-80 computers, 
software and peripherals 

Similar values on oil merchondise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply .37 

701 W. Broadway - P O Box 1060 
Van Horn, Texas 79855 
Wm DEALER G055 

■^^^-> Form F48 Provided 

Standard Warranty in Effect 
THE NATIONWIDE SUPERMAHKB7 OF SOUND* 



ELECTRIC SPREADSHEET 



NEW - For Personal or Business Use 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data. Select preprogrammed operators 
for line, column, or cell calculations. Run Results appear 
on the screen, formatted for your printer. Revise. Run 
again. 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet Output 
features scrolling and split-screen Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P L forecast Personal 
budget Real estate investment. Net worth forecast. 
Invoice. Cash flow estimate. Sales analysis. Check record. 
Business forms. 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more 

16K Model I or Mi Tape S34.95 

32/48K Model 1 or 111 Tape $64 95 

48K Model I Of Ml Disk (Spectfy Model) S67.95 

YOU CAN'T LOSE! CaNf orders add &°\, tax 



Dan G. Haney & Associates, Inc. ^464 
P.O. Box 687. San Mateo, CA 94401 
(415) 493-4094 



ItielMI^TRANSlOOO 



A completely refurbished 
IBM Selectric Terminal witii 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• 300 Baud Serial 

• 14.9 characters per second 
printout 

• Reliable heavy duly Setectrir 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty— parts and 
labor 

• High quality Selectric print- 
ing Off-line use as typewriter 

• Optional tractor feed 
available 

• 15 inch carriage width 



Also works with Exa- 

(ron's Stringy lloppy. 
for fast loading of pro- 
grams. (Has RS232 
built in stringy) 

HOW TO ORDER 
DATA-TRAXS lOOO 

1 . We accept Visa , Master 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
EO.B. San Jose, CA 

3. Deliveries are immediate 




I 



Desk and table top models also available. 
For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 .^274 
Fremont CA 94538 

Phone: (408) 263-9246 



-See L.sf o' Advertisers on page 386 
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APPLICATION 



Take pride in your listing's appearance. 



Listprog 



Doug Riffel 

1836 Metzerott Road tt906 

Adelphi. MD 20783 



I have always been a stickler 
for neat and legible program 
dooumentation. Consequently, 
I c^iiAly became frustrated at 
theivtal lack of form control In- 
corpdrated in the Basic LLtST 
command. Even NEWDOS/80 
with all its extensions to Disk 
Basic otters no help. 

There were two basic features 
t wanted. I quickly found that 
automatically feeding the page 



over the perforation was not as 
easy as I thought it would be. I 
also wanted to indent the lines 
to provide room for three-hole 
punching so the program list- 
ings could be stored in binders. 

I also wanted some other 
neat little goodies. First, the 
name of the program should ap- 
pear prominently in the header. 
Second, I wanted to print the 
date the program 'is listed. 
Third, I needed page numbering 
and finally, double-spacing be- 
tween statements to provide 
for pencil corrections. 

All these features have been 



II CLSiCLEAS ^fl0:FN-l 

2» POKE 16425, l:PT-lBB.-rN.15 

1B9^ IF LEFTSITIMBS,2)--BB' THEN INPOT'Enter todays date [KM/DD 

/YY)"fAS!lF LENIASI-B THEN AS-'DATE ".ASiCKD'AS' 

laiB CLSlIHFUT'FILE NAME";FLS 

Itle OPEN "I'.l.FLS 

l»ie SL-INSTR(FLS,"/")-l:IF SL<1 THEN KU-LENIFLS) 

ItAt LPRII(TCHBS127) iCHKS(191 iCHHS(27) ,CHBS[1*1 )TAB(19] , LEFTS [FLS 

,SL!|CHBS{271 tCHRS115);TAB(*2),-DATE; ', LEFTS (TIMES , B) iLPElMTCHR 

S[138) 

1858 LPRINTCHRS1138) ;LPHiNTCHfiSl27) fCHHS(2B) ;TA8(69) ;■• PAGE 'iP 

N;' ••!LPRI^fTCHRS[l^Sl : LPRI NTCHRSUSB) 

IU» IF EOFCl LPBINTCHRS(27) ,CHHS|19) iCHRS{!l| !CLOSEiPRINT:PHIN 

T'* PROGRAM TERHINATED •"lEND 

1971 LINE INPUTtl.AS 

1080 SP-INSTBIAS,- ■) iTS-SP-H:TL-LEN(AS)-SP:HL-INT(TL/PTl ;EC-TL- 

NL*PT 

1890 FOR !i-TS TO LENIASl 

1180 IF MIDS(AS,N,1)-CHRS11B) THEN MIDSI AS,N, U -CHBS [ 94 J 

1110 NEXT 

1120 LPHINTTABIIN) ;LEFTS(AS,SP) ! 

1138 IF NL-B AND EC-0 THEN LPRINTCHHS ( 13B) sGOTO 1178 

1140 IF NL«0 LPRINTTABIIN+B) ;MIDS1AS,TS,EC1 :LPBINTCMRS{13ai iGOTO 

U7fl 
1158 LPBINTTAB(IN+B) jHIDS (AS ,TS ,PT) 
1160 TS"TS*P'1':NL-M.-1:G0T0 113B 

117B IF PEEK116425) >55 THEN LPRINTCHBS 1 11) : PH-PM+liCaJTO 1B5B 
1188 GOTO 1868 



Program Listing 



incorporated in Program List- 
ing 1, which I call Listprog. It re- 
quires Disk Basic and 
NEWDOS/80 to operate, and will 
work equally well with TRSDOS 
with the deletion of line 1000. 

Although Listprog was writ- 
ten to capitalize on some of the 
features of Radio Shack's Line 
Printer IV (Centronics 737), with 
some minor modifications it 
will work just as well with other 
printers. The necessary modifi- 
cations will be covered later. 

Listprog 

Whenever a printed line ex- 
ceeds the line length of the 
printer, the printer logic auto- 
matically prints across a full 
line and then prints the re- 
mainder on the following line. 
When this happens, location 
16425 (Basic's line counter) 
does not get updated. This, in 
essence, means total loss of 
form control. 

A similar situation occurs if 
the down arrow is encountered 
within a statement, I use the 
down arrow quite frequently to 
print multiple lines on the 
screen with one statement. If 
the printer logic detects this 
character, the line up to that 
point is printed and the re- 
mainder is printed on the 
following line. Again, the Basic 
line counter is not updated. 



When a program is stored on 
disk in ASCII format, the first 
space encountered in a state- 
ment is always the separator be- 
tween the statement number 
and the statement text. 

Lines 10 and 20 of Listprog 
merely clear string space and 
set certain variables. Line 1000 
(NEWDOS/80 only) examines 
TIMES to see if a date has been 
entered- If not, it requests the 
date and executes a DOS com- 
mand to set it. 

Lines 1010 and 1020 request 
the filespec and open that file. 

Line 1030 examines the 
filespec for the presence of a 
slash, if a slash is present, it 
and everything to the right of it 
(the file extension) is dis- 
carded. I personally prefer to 
keep ASCII-formatted program 
files separate from the Basic 
program files by using the 
filespec extension "/TXT"; 
therefore, the extension on the 
filespec actually being printed 
is irrelevent. 

Line 1040 prints the header 
which consists of the program 
name, printed at five char- 
acters per inch, and the date, 
printed at 10 characters per 
inch. For any printer other than 
the LP IV, this line should be 
modified accordingly. 

Line 1050 turns on the 16.7 
characters per inch mode (132 
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imUTY 
FORCE 



THE VIDEO MANAGER ^%M FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen: forms design direct from screen to printer; send 
entire screen or any part to your printer save screen to 
disk as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TRS-SO." Mod I TRS 
DOS 2.3. Mod It TRS DOS 1.2 & 2.0. CP« 2.0 or later, 
soon available foi*Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand- 
ling and postage. " "T^ndyCorp 

SOFTWAREHOUSE IPtTTERNATIONAL 

5070 N. Sixth St. Suite 103B 
Fresno, CA 93710 (209) 221-7877 

TO RECEIVE A FREE CATALOG PLEASE .^n 




RS205 



AP101 Apple II wfith Single Disk Drive S109 

API 02 Apple II with Double Disk Drives 119 

AP103 Apple II. 9 inch Monitor & Double Drives ... 129 

API 04 Apple ///. two additional Drives 4 Silentype 139 

AP105 12 inch monitor plus accessories 99 

RS201 TRS-80 Model 1. Expansion Unit & Drives 109 

RS202 TRS-BO Monitor or TV set 84 

RS204 TRS-80 Model III 129 

RS205 Radio Shack Color Computer 89 

P401 Paper Tiger 440 445 460 99 

' P402 Centronics 730 737 - Line Printer ll'IV 89 

> P403 Epson MX70 or MX80 89 

I CC90 Matching Attache Case 75 

compuier case companv ^^ 

b6M INDIAN MOUND CT COLUMBUS OHIO 43213 (614ia68-9«M 



CONVERT YOUR TRS-80 MODELI INTO A 

DEVELOPMENT SYSTEM 

No* you can oeuelop Z 80 based siand-dione aevices such as games 'Obo!s 
instrumems ana pe'ipdo'al conuoller', by usirigyouc THS-SO as d developmenl syslem 
The DEVElOPMATL plugs ir.tu !he eipansio"! conneclw 0' you' TB5-80 anO adOs 
PROM PROGRAMHING and I H-CIRCU IT -EMULATION capaDhlies 'a your 
system (wirti o* wiihoui e«pans>on inieftacei 

Comptete insl'uclions and sample schematics aie mcluaea w lelp you Oesig" your 
own simpte slana-aione -Tiicfocompuler syslems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs one TTL ci'Cuit tor clOCii afvl reset a 2 80. an EPROM and 
-^ne pe'iphefal inietlace chip 

When ine In ■Cifcuil-Er*iuialioo catile FS plugged 
into the Z BO socket of you' stand alone syslem 
tfie system Decomes a pal ol yom TRS 80 vou 
can use the lull power of youi edito''.i&se''ioiet s 
dePug and trace piogiams lo Chech out train tiie 
narOwafe dto me so'rware Simple test loops 
can be used io ctieck out tfie hardware then the 
syslem program can be run lo deDug the logic of 
your stand atone device 

Since trie orogram is kept in TRS -80 RAM 
changes can be maOe guichiy and easily Wnen 
your stand-alone Oewice works as desired yOiJ 
use the Devekjpmale s PROM PROGRAMMER 
to copy the program ,nio a PROM With Ihis 
PROM and a Z 80 in place ot tne emulation 
zabte your siarW aionedeuicewiNwoikDy piseil 

T^o DEVELOPMATE :S eitremeiy compact Both the PfiOM programmer and the 
In-Cifcuil Emulator are m one small plasic D0» ooiy 3 2 - b -i A line-phig mounted 
power supply >s nr^ludod The PROM p'ogramrne' nas s personality module vi'Mcf' 
defines the voltages and cofinei^tions □* l'>e PROM so that tuiure dev«;e5 can be 
accommodated However the svsief^ comes with a universal pe'sonahiy module 
*nich handles ?"^8 2y)8l8Ki ?7 16 25i6i 15K) 3S32i32K! as well as the new eiec 
tncdily alterable 2816 and 480 I6i 16K EEPROMsi 




The COMPLETE DEVELOPMATE Bl with software power supply 
L'Die TRS-BOcable ano universal per son atily module i50NL>S329' 
The PROM PROGRAMMEf i^ available sepa'.neiy lor OINLV S239 



ORION INSTRUMENTS "" 

17201'S Avenue Depl M WoodsiOt CA94n6,? 

,415. dbl 1172 

Wasier Charge and Visa pnone orders accepted 

California -esdents please adce^o sales las 



J I at ion 



CO 
PIGGYBACK! 




CERTRDniCS 

ADD lowercase with our 
PLUG-IN piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 

96 character ASCII PLUS choice of 
128 character APL, TRS-80/H-19 Graphics or 
Scientific (Customer defined: add $50/sel). 
Most printers convertible: specify logic board # 



SYDNEY SEZ: 

Shop Comparotlvalyf 




Digital Systems Engineering 



12503 King's Lake Drive. Reslon VA 22091 (703) 620-2994 



ALSO AVAILABLE: New Cenlrontcs ano Integral E)ata Systems pnntei^ at 
1 5-20% beiOM list also, useC onnlers ol several rrwkes Cal for infomiationf 

Mas!erCd-C VISA Creek VC ^0 A. procucls war.tr.ieea yo dsys 



■See L'sl ot Advertiso's on psge 3S6 
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NEW! 

CHECHBOOK CHECKV'HiIER 

PROGRAM FOR 

TRS flOCC " APPLE II ■' 

TRS 80 MODI/LEVEL II-" 

TRS 80 MQOEL III 
CASSETTE TAPE *9 95 
Di LISTING ** 




NOW. . -Continuous Checks 

That Can be Used With or Without Your Computer!! 
The Best in A !~lome Checking System 



Thai £ right Coniiriuous Checks tan-loioed in 
a 3-to-B-iJaBe desk sei design And i hey can be 
compute' pnnied. nandwniien or lypewriHen 
— whichever suits the quaniuy or siiuBiion 

SPECIAL DESIGN 
Our checks are not a high-voiume business 
Lorm adaplalion They re speciaMy designed 
Computer/ Manual Chacki lor ihe home 
user And they re eaiy to u»e, loo No need to 
change prnnier form *vidih «vhen loading Our 
checks are the same S'/i" iwidih as siandaid 
tractor teed printer oat>et Check tear down 
sue IS the same as Ihe classic penonal-iiied 
check issued by all hanks 

COMPLETE HOME SYSTEM 
Withthrs sysiem you can print the bulk ot your 
monihiv checks on vour computer using our 
proo'am. Vour checks and stubs can then be 
stated n our attractive Data Ring Binder 
Checkbook. Later. >t you have a few checks to 
write there 5 no need to load iheiri mio a 
printer - just write a check at your desk as 
shown above And you can mail your checks in 
our dual windowed envelope! to eliminate 
addressing chores 

UNIQUE 
You won I (ind conirnuoui checks like these 
anywhere And. our special small Quantity 
printing process will give you excellent qualiiy 
arHi appearance Standard color-coordinated 
impririing and encodng is as shown above 



(logo can Oe omitted) on blue. grey, fl'een, or 
bLtf* Checks PRICED HIGHT 
Two Hundred checks are lusi »29.9B lenve 
lopes S14.9G) Five Hundred checks are 

»49.9G {envelopes «27.95| Data Ring Check 

books are only »4.9B. 

SpaciBi "ORDER NOW" Oder 
So that you can start using your computer 
immediately to pay vour monthly Dills we II 
make you a special package offer If you order 
directly from this ad. we can send you 

200 Chicki, 100 Enuelopet, A Bindef. 
■nd Pfogrem for *49.95 

- on - 

500 Chacli). 300 Envelopei. A Binder. 
and Program for 174 95 

You II save as much as 99.85 over the 
separate purchase price And with the special 
package you can begin your monthly check 
book balancing and bill paying as soon as you 
receive your checks Just enclose a voideci 
check ifor encoding information) with your 
payment iVtSA - MasterCard ordefs must 
show signature, expiration date, and account 
numberl Or. send today for samples 

SYNERGETIC *^'^ shepherd rd 

SOLUTIONS DEPARTMENT M91 

PhONe*13,M6^557 MULBERRY FL 33860 



characters per line for the LP 
IV) and prints the page number. 
This line should aiso be mod- 
ified for printers other than the 
LP IV. 

Line 1060 returns the printer 
to 10 characte per inch, 
ejects the last ]e and ter- 
minates Listprot -ine 1070 is 
the required form ror inputting 
ASCII-formatted program files. 

Line 1080 provides the neces- 
sary set-up information for the 
remainder of the program. 
There are really two left 
margins, one for the statement 
number and one for the state- 
ment text. The length of the 
printed statement text line is 
predetermined by the value as 
signed to variable PT in line 20 
The left margin for the state 
ment number is also predeter 
mined in line 20 by variable IN 
For printers with line lengths 
different than the LP IV, these 
variables may be changed; 
however, IN-^■8-^ PT cannot ex- 
ceed the line length of the 
printer. 

Other variables and their use 



are as follows: 

•SP= Location of the space 
separator between line 
number and text 
•TS= Beginning of state- 
ment text 

•TL= Length of statement 
text 

•NL = Number of full PT- 
character lines to be printed 
"EC = Number of characters 
in last line if less than PT 

Lines 1090-1110 search the 
statement text for the down ar- 
row (CHR$(10)) and replace it 
with the ASCII carat {CHR$ 
(94)). If the printer you are using 
cannot print this character, you 
will want to change these lines. 

Lines 1 1 30-1 1 70 perform the 
actual printing, feeding prop- 
erly over the paper perfora- 
tions. 

Listprog has become an ex- 
tremely popular program on my 
TRS-BO and I use it to document 
all my Basic programs. The pro- 
gram logic Is quite simple and 
lends Itself to easy tailoring for 
individual preferences. ■ 




COMPUTER INTERFACES 
& PERIPHERALS 



• POSIOO NRZl TAPE DRIVE CONTROLLER/FORMATTER - No* your 
micro can read and write IBM/ANSI compatible NRZl formal 9-irick magncnc 

tapes. The POS-lOO consisli of S-100 bui card, 6' ribbon cable, tape drive controller 
card, cable lo Pcrtec-Slandard NRZl Tape drive, plus documentation and Z-80 or 
8080 soflware (speci(iv). Power is derived from tape drive and S-100 bus. Ship Wt,: 
10 lbs. SuggesCed Retail Price t995,00 

• POS 103/202 "MIX or MATCH" MODEM - Unique POS control design permits 
use in one housing of both Bell-compalible 103 (0-300 baud) and 202 (0-1300 

baud) modem modules originally made by VADIC Corp. for a telephone company 
subsidiary, FtATURES: RS-233 serial Interface, aulo-answtr, lulo-dial, LED 
display, telephone line interface via acoustic coupler, manual DAA or auto-answer 
DAA {sold separately), FULLY ADIUSTEO; no special tools required. 3.000 mile 
range over siandard dial-up telephone lines. Ship wt.: 15 lbs 

PRICES POS 103 Modem S199.95, POS 202 Modem 1299.95; 

POS 202 Modem Vr/Aulo-Answet J349.95; POS 103/203 Modem $499,95; 

FCC-Approved ALito-Answer DAA (1 35,00; Acoustic Coupler - J29.95, 

■ POS DAISY-WHEEL PRINTER INTERFACE for TRS-80 - Will drive Diablo 

HyType I, HyType II. and Qume Q and Sprint 3 printers. Includes IK user- 
available memory for custom print routines (such as graphics, bidirectional prinl- 



ing, etcj^ Programmed lo respond to print commands from BASIC ELECTRIC 
PENCIL^ and '. 

5 lbs. Price $350,00 



SCRIPSIT''^ software. Draws its power from primer Ship 



Cables, each (Specify HyType I, HyType 11, or Qume) , , J 25,00 

• POS ASCII INTERFACE for IBM 1/0 SELECTRIC - This Centronics sli le 
parallel pfinler interface will drive an IBM Model 731 or 735 1/0 typewriler 

(EBCD and Correspondence codes]. No software needed. Features onboard EPROM 
which holds up to 8 ASCIl-io-IBM code tables lor different type spheres. Closed- 
loop operation runs at maximum printer speed; stops and starts on a single character 
without loss of data. Requires •■13VDC and i5VDC pov*er source Ship *[ ■ 

5 lbs. Price ^249 95 

Power Supply ( -.iVDC. *1 3VDC. ■t24VDC lor Solenoids on Pnnieil . . . .i -J 9 95 

• CONVERT OFFICE SELECTRIC TO I/O TYPEWRITER - Kit mdudes 
assembled solenoids, s*Hches, wrre harness, magnet driser PCB plus instruct ions 

lor installation and mCPU interface. Price $150 00 

• "FORMALINER" Variable Width Forms Tractor tor 15 ' Selecincs , . . $95,00 

• GTE Model 560 ASCII SELECTRIC I/O Terminal -With RS-232 Serial Interlace 
and digital cassette deck lot use as metnori typewriter. Ship wt.; 100 lbs 

Price, tested and adiusted $1,195 00 

• POS ASCII IBM SELECTRIC PRINTER - 15 Seitctric trom GTE lerminal 
cleaned and adjusted with POS Centronics-style ASCII printer interlace. UC/LC 

carbon and labric ribbons, Compatible with TRS-BiJ, Apple, SOL and other CPU 
parallel printer ports. Ship wt.i 75 lbs. Puce (895 qq 

PACIFIC OFFICE SYSTEMS ^153 

2»5 Old Middlefictd Way Mountain View. Calif 94043 (41 5) 493- 7455 



MedComp, Inc. 

ANNOUNCES! 

USCD PASCAL VERSION IV.O 

FOR 

THE TRS-80 MODEL H 

•MINIMUM CONFIGURATION: 64K WITH 

1 DISK DRIVE 
•KEYBOARD TYPE AHEAD 
•SUPPORTS BOTH SERL\L AND PARALLEL 

PRINTERS 
•CLOCK SUPPORT 

•"DUMMY" USER DEVICE FOR OUTPUT 
•FORTRAN AND BASIC COMPILER 

AVAILABLE 
•BACKUP UTILITY— BYTE FOR BYTE 
•UNIVERSAL FORMATTING UTILITY 
'CONFIGURATION UTILITY 
•ADDITIONAL HARDWARE SUPPORT: 

TOTAL OF FOLJR «" FLOPPY DISKS-SINGLE OR 

DOL'BLE SIDED 
SERIAL AND OR P.AR.ULEL FBINTERS 
MODEM OR OTHER SERIAL I O DEVICE 
TERMINAL OR KSR PRINTER UHEN PARALLEL PRiNTER 

IS USED 
PARALLEL OLTPUT ttHEN SERIAL PRINTER IS 

USED 

K)R MOat' (.VFOR.MATIO,\ URITE 



MedComp Inc. 

392 Pleasant Street 
Brockton, Ma 02401 



OR CALL: (617) 965-0529 
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SPEAK-EAZY 



t:he 

:human quality: 

for your THS-BO*t;hat is 
so good you wont believe it 
Phone for demo. ®Ofl Q oo 
6 progranns on ^ u u 

tape or disk,+ user manual 



NEW 
DOUBLE DENSITY 
DISK CONTROLER WITH 
16K ONBOARD RAM 
FOR YOUR MODEL I. 
NO EXPANSION INTER- 
FACE NEEDED, RUNS 
SIN6LE OR DOUBLE DEN. 



-NEtf- 
29..° SUPER 
SENSITIVE 
LIGHT PEN 



SIMPLIFY 
YOUR TAPE LOADING 

WITH reload: 

THE 
LED -VU METER 
$ 29/- 



*TRS 80 IS A TRADEMARK OF RADIO SHACK* 
PROGRESSIVE ELECTRONICS .277 
643 E. CHESTNUT ST 
LANCASTER OH. 43130 
PHONE - 614-687-1019 



^ LOW PRICES ON TRS-80* ^ 

From Radio Ranch, Inc. 



n 




rZb- 



In business 27 years at the same location pro- 
viding electronic equipment and service. 



We Are Better Equipped To Provide 



TRS-80 

COMPUTERS & 



Accessories 
Software 



TRS-flO Mod II - b4K 3440,00 

TRS-80 Mod III - UK. .' Dr 219.S.OO 

TRS-80 Line Printer h 1020.00 

CC)R\'L S • S-10-20 M Hard Disks . . . Call For Prices 
"CORDOS " and "OASIS" operating systems 

Full factory Warranty ■ Complete Service Department 

Cerl Check ^K ^IT f^ou*^ ^' l^'^io R'nch Airport 

Cjshiers Ck ^RsiS* Polo, Illinois 61064 

Call Toll Free 600-435-8310 In III. Call 815946-2371 




FREE PREMIUM! 
1982 subscribers will 
receive the special 
MATH 1 package of 
PC programs. You 
qualify to receive 
this valuable free 
gift if you check 
either box 2 or 3 
below! Don't delay! 
Get started learning 
how to enjoy your 
pocket computer to- 
day. Use this handy 
subscription card! 



SUBSCRIPTION FORI 



D 1981 Charter Subscriber (Issues 1 - 10). $20.00 for U-S, 
delivery. (U.S. S24.00 to Canada. U.S. S30.00 elsewhere.) 

D 1981/82 Charter Subscriber (Issues 1 - 201. $40.00 in 
U.S. (U.S. $48.00 to Canada- U.S. $60,00 elsewhere.) 

D 1982 Regular Subscriber (Issues 11 - 20). $30,00 in U.S. 

(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 
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Name; 

Addr: 



City: 
^AC/V\S/\ 
Signature : 



State: 
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MODELS l'^"°lll 

ALL PROGRAMS USE TESTED 

MICRO- TYPIT A tex: editing program t.--.a* uses the seybaard 
"as 13" iii^a a typewriter. All edit and prorapt functions are 
"built in" sc instrui^ti-in or learninp 19 oinimiim. Text can be 
generated three pages at a tine and printed either nurabnrad, ar 
unnumbered sinRle or double spaced. Also, right justification 
iH optional. fJoes not require substitution of 6 for commas or 
any other character revision. Slowest function is transfarring 
text to and from tape. Nsat error free text with large print 
titles. Excellent for sppcl f ications, aareamenta, instruct inns, 
form tetters or arj-^uncemenCS . Complete with so-jnd for TRS-3C 
Model I or III and Hicroteck printer easily adaptable to most 
other printers. PRICE $25.00 

CLIENT FILES Allows ;(eepir^ several contracts for up to 20 
z\:fTi'.^. Fr.-pr ^cntra^ts including eitr.er payrient ancunts or 
percentagi^s. As bills nro sent cut and payr.ents received, th« 
prripram is a record by contract of amounts outstanding end not 
billed includinR a summary of receivables and worl^ in progress. 
WorK.s well with one to 3 projects for a dozen or so clients. 

PRTHK $25.00 

Efl~INEERING PRC^IHAKS 

LIGHTING CALCULATIONS Calculates the required number of 
■"ii'ures for a rcnn givpn t.'ie dimensions and reflectances by 
the ions cavity method. Three standard fixtures are "built in" 
s-i that ? roon calculations are ir.ade to corapar* results such as 

watts, footcand'.es and rurr-ber cf fixtures. FRICE . . . . .S30 .00 

HVAC PROGRAM This prograir. calculates sensible and latent 
cooling and heating load by lone each tvra hours of the typical 
hottest and coldest days. Equations per 1577 ASHRAE Fundamental 
Guidf: page I'j.?, Three prograns are; Calculations, Geographic 
and Variable Data and Data Generator. FPICE 335-00 

All tapes furnished with full documentation and instructions. 
Cot^unentation, TnstrJctions and Source List alone $15-00 

All programs on tape require Level 11 and 1&:. Printer is 
required for I'lCRO-TYPIT and optional an all others. Do not 
forcet to Include the Kodel Sianber [I or III) with your ?rder. 

Send Chefk or Voney Order 'no COD's please^ tct i^ 52 

Coolidge d Associat;es 

1317 3 CONGRESS * 10 AUSTtN, TEXAS 79704 (5IZ) 143-5529 



• See L-st oi AOve't'se's o" cage 38S 



80 Microcomputing. October 1981 • 377 



Education = Microcomputers. 




MC 



*to the power of 
Instant Software 

Einstein's equation helped explain the properties 
of relativity, but didn't do much to speed the learn- 
ing process. Instant Software's equation means in- 
dividual attention and greater comprehension. 
Everyone knows the best student-teacher ratio is 
1:1. That was a problem in years past, but now it's 
as easy as C.A.I. {Computer-Aided Instruction). 
These Instant Software programs will guide and 
teach each lesson with the infinite patience only a 
computer can provide, thus allowing students to 
progress at their own pace. 

Einstein had the right idea, but if he'd only known 
then what we know now 



^f 



Typing Teacher 



(/or the TRS-80^"r 



..^i=...^•:^-■■v-. •.* 













A complete seven-part package thai guides you from famil- 
iarization of ttie keyboard tfirough typing words and phrases to 
mastery of touch-typing. Your video monitor becomes a bot- 
tomless page for typing practice, and your own private TYPING 
TEACHER, ready to teach when you're ready to learn. Model I. 
Level II, 16K; Model III, 16K. Order No. 0099R-A14$12.95 plus shipping. 

Teacher's Aide (fortheTRsso^^r 

Now you can have the benefit of Computer Assisted Instruc- 
tion (CAI) in your own home. The Teacher's Aide program allows 
you to create tailor-made lessons for your child. The features of 
this program include the ability to review material before taking 
the lesson, a provision for hints to help answer questions and 
graphic displays as a reward for answering all questions correct- 
ly. Once you've created a lesson, you can save it and create an 
entire sequence of lessons. 

The Teacher's Aide package is perfect for parents, teachers. 
and students who need the unlimited patience only a computer 
can provide. Level II 32K. Order No. 0214RD-A13 (disk-based) 

$39.95 plus shipping. 

Geography Explorer: 

U.S.A. (for the TRS-80^M)' 

This program allows your child to travel the country and learn 
vital facts about each of our 50 states. Geography Explorer offers 
the most fascinating way of learning yet. Learn each state's 
name, capitol. largest city, nickname, etc. As a bonus, this 
package offers the capability of light pen use. Model I, Level M 
16K. expansion interface with 16K, one minidisk drive. Order No. 
0071RD-A16 $49.95 pus shipping 



Capitalization (fortheAppie^^^)- 

Here's the most patient grammar teacher a 
student wilt ever have. . -CAPITALIZATION. It's 
one module among several in the English Lan- 
guage Series of CAI (Computer Aided Instruc- 
tion) programs from Instant Software. This pro- 
gram introduces and exercises the twelve rules 
for capitalization in English. The student may 
study the rules in order from 1 to 12, or may sin- 
gle out one particular rule for study and practice. 
Start with CAPITALIZATION and graduate to 
proper grammar and a better understanding of 
the English language. Applesoft Basic 32K, 1 
disk drive. Order No. 0339AD-A15 (disk-based) 

$24.95 plus shipping. 



"Whydidn't ^ ^/i*'^; 
I think '' ■ " 

of that?" 



Instant Software 



TO ORDER: 

See your local 

Instant Software dealer 

or call toll-free 

1-800-258-5473 

orders only 

In New Hampshire 
1 •603-924-7296 

Mon -Fn 8.00 am-4 30 pm 6 S T 




Stt-> 



Peterborough. New Hampshire 03452 



A division of V>/ayne Green Inc. 



■THS-SOisalraOemarkof Radro Shack division of 

Tandy Corp 

■ ■ Apple IS a IraOemark o1 Apple Computet Company 
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• INTRODUCTION TO TRS-SO LEVEL II BASIC AND 
COMPUTER PROGRAMMING BKl219-bv Michae' 

P ZaDinski Wntlen Dy an exDefipn';;ea eOLicaior tlrs s 
:he book tor Ifiose beginners whj iA/ani lo leaf abour 
compulers wiinoul having in Dei on-e an expert II nas 
practical programs, usetui iirie Cy ine !:ominents. ei 
cellenl llowchaiis accomDameO t)v '"e nuTiCe'S ani] 
over 200 exercises which heip Itie reaue- assess yes 
ress. reinlorce comprehension )r,; ^rc..de -a'.-ab'!' 
praclicai experience 110 95' 

• 50 8ASIC EXERCISES-BM'9;-- :;. J P Lamoilier 
~n t [•■-- s s:-__'^-e= ar^una lie flea inai !he test 
Aa, I. cdrr- a 'ang-iage s rnrcjgh a?'ja caciice n 

Lonia n!, fiC completely Pxpiai'ieJ exercises stale 
meni snd anaiys s o' the probii-'ii i,o*charts p-i.i 
grarns an J actual runs Piogrart- subiecls mcuap 
mat'iC'ialics PusinesE games and operations 'e 
sca;i-h and arfe presented ir' u^ryir'g levels ot p'tl. 
oui!v ' '1 "i lo'inat enaDles anvonp in learn BASIC 'ap 
idiv rhi'cking tleir progress a I eat h step S' 2 95' 

« THE BASIC HAN DBOOK-BK 1174 NEW. SECOND 
EDITION by Davict Lien. This boo". ;s unique It is a vir 
lual ENCYCLOPEDIA o( BASIC VVnuenoI favoring one 
comDute' over another 1'. eiplams over 250 BASIC 
words how 10 use them and alteriate siratecies I' a 
compiiie' does noi possess IhecapaL-i'itiesota leea 
eO O' specihecl \^o'd Ihere ari? often Aays to ac 
complish the same (u-'clion by nsmg anoThe' Aotd c 
combir-aiion of woros That 5 wi-.e'e tne HANDBOOK 
comes n IL helps you gel the most from >our com 
piilei. ce il a ■txitlomol the line micro or an ove'si^ed 
monster S19 95 " 

• LEARNING LEVEL II — BKi '75 - Oy Dand Lie'- W-t 
ten especially for the TRS-8C. this book corceri'ates 
on Level II BASIC, explorng eve-y important BASIC 
language capaOility Updates are inr.luclea lor tnose 
who have studied the Le^el I Uset s Manual Settions 
include ho* to use ihe Editor, dual cassette opera 
tion. printers and peripheral devices, and the ccnver 
sion ot Level i programs to Level II. $15 95.' 

• BASIC BASIC (2ND EDITION) BKl026-by Jam,-!. 
S Coa.i This is a lentbook ,^l'.i h ncoroo-atei. Ihc 
tea'Pir',; i>l cort'oi-ier proy'd'nm 'ig ■..Sir'g the BAS'C 
language A'f the teaching qi m.itt'ei'.al cs Over n)V 
sample a'Oararrs ■■usfite the ieijoTUueS o' the BA 
SIC language ana eierv section !■, foi owe3 nt ptar* 
cai p-opierrs Tr-is second ed'i.on covefS cra-ac'e' 
stfing nanchng a-iQ f-e use of data Mes JiO 50 ' 

• ADVANCED BAStC— BK ICWO- Appiiranons mclud 
"C ;•■■ "CS a'G ' les roo'dmate georr-'elry area se 

c-e-ce- ■!"■} se'^es S'rr^jiation .jraj.nmg ai-.; games 
SIC •5- 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS 12ncl Edition) HK-C73 b, Do-a;; 
Spencer p'o. des fie seripus studer-: o' BASIC P'n 
cramming *'in inter esling p'oDiemsanasoiulior's N(^ 
knowledge o' math atxiue aigebrj required Includes a 
number ol game programs as weii as programs 'o' 
financial inlerest conversions ar'.d numeric manipula 
tions $5 95 ■ 



PASCAL — BKHSS-by Paul M. Chiriian Professor 
Chirlians teKtbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
liow a computer works, how lo use a tlowchait, work- 
ing from a terminal as well as batch operation and 
uebugging Special attentidn is paid to idiosyncrasies 
of the language and syntax flowcharts abound lor the 
i:onveniencfi of the experienced programmer Well in- 
dexed 112 95' 

• INTRODUCTION TO PASCAL- BKUSy -- Oy HoOnav 
Zaks A step-by Sli-p i"('oduC[ion 'or anyone warbling 
li ea'n the 'anguage quickly and completely Eaci 
cQn^epi is eitilampd simpiy and m a ug cai order Aii 
ipatu'esof thp languagnare presented in a c lea' oas/ 
to understand 'ormai with e>ercises to test the -eade' 
at Ihe end ot each chapter It describes both siandarj 
PASCAL and UCSD PASCAL the mpsl widely used 
Jialec; for sma.. computers No computer or prograrri 
mmg e»perien;e is 'lecessary SU 95 ' 

• PROGRAMMING IN PASCAL -- BKn JO Dy Peter 

Grogcr.o The .-omtiu;''' proyramming language 
PASCAL was Ihe 'irsi language lo embody m a coher- 
eni way Ihe concepli of Structured programming, 
which has been delmed by Edsger DijkstraandCAH 
Hoare. As such, it is a landmark m the development of 
prograrrmmg languages PASCAL was developed by 
Niklaus Wirlh in Zurich, it is derived from the language 
ALGOL 60 bul IS iiio^e powerful and easier to use 
PASCAL IS now widely accepted as a useful language 
ina' ;ar' be efhcientiv implen>ented ai'd as an ex- 
cellent teach.ng tool It does not assume knowledge o' 
any other prograrrmir'g language, it is therefore su't- 
aPle tor an mtroOijClory course $12 95 " 

—GAMES— 



• «0 COMPUTER GAMES - BK^io-; FoT, games nan 
I- -i"ie d'f'erent categories Games 'or 'arge and sman 
systems, and even a Section or calculator games Many 
-prs'cns 0' BASIC used arci a wide variety of systems 
''"■presented A mus; '-.r U\{' serious computer games- 
■iian $7 95" 

• BASIC COMPUTER GAMES-BKt074 Okay, so 

Dwr.Q you get your computer and are running m BASIC, 
then what'' Then you need some programs in BASIC, 
that s what This tjook fias 101 games for you from very 
suTiole to real buggers You get the games, a descrip- 
iLun of the games. Ihe listing to put in voui computer 
and a sample run to show yiju how they work Fun Any 
one game wi'l be worth more than ihe puce o! the tiook 
lo' Ihe 'ur .ou and your 'am My wii| have with it $7 SO ' 

• MORE BASIC COMPUTER GAMES- BKnS2- 

ediled by David h An' Mo'e fun in BASIC aa new 
games li'om the people whj brought you SASIC Com 
pule' Gdmes Includes sue ti •avonles as M--otaur iba;- 
tle the mythical beasti and E'lza lun'oaJ your f.-iubies 
on the Ooctor at t)*rgairi utesi Complete with garre 
descriptjon listing and sample run S7 50 ' 

• WHAT TO DO AFTER YOU HIT RETURN BK1071- 

PCr s 'irst book c.i conipuiei games 48 different 
computer games ynu ran play in BASIC programs 
descriplions. many illustrations Lunar Landing. Ham 
rnurabi. King. Civel 2. Oubic 5 Tairnan Star Trek 
Crash Market, en. JIO 45 ' 



*^^^*, —BUSINESS— 

• THEORY Z -BK'226 — Ho^ American Business Can 
Meet the Japanese Challenge — by William Ouchi Why 
a'-e the Japanese catcmng up and surpassing 
American industna' produf.f vily" Whal allows 
Japanese industrialists lo oHer guaranteed lifetime 
employment to their worklorce'' lliis tjook will help 
you understand the Theory Z managerial philosophy 
and Its implications tor the American corporate luture. 
Examples are given ot the Ariierican industrial giants 
already operating under Z-styie mani.tjement. and the 
impact ol this style on the quamy ol their executives 
and workers IS explored A must lor the aie'l busmess^ 
man large or small S'2 95' 



• SO YOU ARE THINKING ABOUT A SMALL 
BUSINESS COMPUTER-BKl 222- oy Richard G Can- 
n.nc and NanCy C Leepe- ^or a well orga'-.ized manual 
on The p'ocpss 3' 56iec:i"g 'he right ';ompiile! syslem 
'o' yOur small business this te"t can t be e.cei'ed De 
signed to ntrocuce Ihe novice in data and /JO'd pro- 
cessing tfj the 'eai benefits of computer izalior, the 
too-, s 'iiied with money and bme-sajing tips, pf>otos 
0' ecu pmeni lists o' suppliers prices e*. pi anal tons 
o' :ompute' lemiinoiogy. and helpful references lo 
aodil onai sources of mtormalior- Every oce con- 
tempia'ing a first computer installation should have 
thislxiok SMOO ■ 

• PAYROLL WITH COST ACCOUNTING-IN BAS 

BKlOOl -byL Poole&M Boichers, includes pre 
listings with remarks, descriptions, disciissior "' 
principle behind each program, file layouts, ant. , . 
plete users manual with step-hy step instractions. 
flowcharts, and simple reports and CRT displays. Pay- 
roll and cost accounting features include separate 
payrolls for up to 10 compan.es lime tested interac 
live data entry, easy correction o' data entry errors, job 
costing ilabo' c' diSlrib;jIion|. check printing with 'ull 
deducliOT and pay detail, and 16 different onnted re- 
pc'ts nciudi'g V. 2 and 941 un CBASICl S20 00 ■ 

• SOME COMMON BASIC PROGRAMS-BK1053- 
Pub' b'leab. Adam OsDo-ne & Associates inc Perfect 
!or -ion iechnica comouie'iSls 'eciuiri"g -eady-lo-use 
programs Busmess p'ograrr-s p'uS misce-ianeous 
p-og-ams Invaluab.e fo' fe use' ^no s .lot an ex 
oenenced p'ogrammei A : /-'H ope'aie n me stand 
alone mf>3e $14 99 papa-Dac 

• PIMS: PERSONAL INFORMATION MANAGEMENT 
SYSTEM -BK 1009— Learn how 10 unleash Ihe power 
o! a personal com.pulei for your own benefit in this 
ready ti. use data base mandgemenl program 
$11 95 ■ 

— MONEYMAKING— 

• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003 -In 10 information-packed chapters, Jefry 
Felsen describes more than 30 computer-related, 
money making h-gh profit icw capital investment op 

portumties $15 00 ■ 

• HOW TO SELL ANYTHING TO ANYBODY-BK7306- 

Acco'ding to Tne Gumnesi 800* o' tVo'W Records the 
author Joe Girard 'S 'he wond s greatest salesman 
Tn's book reveals ho* he made a lortune — anfl how you 
can too $2 25 ' 

• THE INCREDIBLE SECRET MONEY MACHINE- 
BK 1 1 78 - by Don Lancaster A dif lerent kind of "COOli- 
book from Don Lancaster Want to Slash taxes? Gel 
freevacalions'' Win at investments'' Make money from 
something that you like tj do'' You'll find this book 
essential to give you the key insider details ot what is 
really involved in starting up your own money machine 
S5 95 ■ 



"Use the order card in the back of this magazine 01 ileim^e your order on a bepaidte 
piece ot paper and mail to 80 Microcomputing Bookshi: 1 • Pelerboroiigli NH 03458 

Be sure to include check m deidiieii i.iedii card int(jm>d:iun 



No COD orders accepted All ab(5ve ridd $1 50 handling Please allow 4-6 weeks 
for delivery Questions regarding your oirler' Please write Customer Service at the 
above address 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 




Z-80— 



• TRS-80 ASSEMBLY LANGUAGE-BK 121 7 Oy 
HuDetl S Howe. Ji This book incorporales into d 
single volume alt Ihe pertinent lacts and intormatior. 
yoj need to know lo program and enjoy Ihe TBS 80 In 
eluded ate clear presentations of all inltoduclO'y ccn 
cepts, complolely tested practical prnqrams and sub- 
routines, details ot ROM and RAM and diSK operating 
systems, plus comorehensive tables, charts and ap 
pendices Suitable ^o' the hisl (ime use' oi mii' e» 
perienced users $9 95 ' 

• INSIDE LEVEL II- BK1183-Fof machine language 
prograrnmers' This is a comprehensive reference 
guide lo the Leve' ll ROMs, allowing easy utilization o* 
the sophisticated routines they contain it concisely 
explains set ups. calling sequences variable passage 
and l;0 routines Part II presents an entirely ne* corn 
posile program structure which unloads under the 
SVSTEM command and executes in both BASIC and 
machine code with the speed and efficiency ot a com 
piler Special consideration is given to disk systems 
$15 95- 

• PROGRAMMING THE Z-80-BK112?- by Rodna» 
Zaks Here is assembly language programming 'ci ine 
Z-80 presenieii as ^ progressive, step-by step course 
This book 5 Doth an educational tent ana i seit 
contained reference book, usetui toboth the beginning 
and Ihe eipenenced ptogrammer who wish to learn 
about theZ-BO Eie'Cises lo test the reader are mciua 
e4$i4 95 ■ 



• Z-SO SOFTWARE QOUflMET GUIDE AND COOK- 
BOOK— BK1045-Dy Nai Wadsworth. Scelbl's newest 
cookbook! This book contains a complete description 
of the powerful Z-8D Instruction set and a wide variety 
of programming information. Use the authors ingre- 
dients including routines, subroutines and short pro- 
grams, choose a time-tesled recipe and start cooking' 
il6.99 ■ 



6809 



• Z-BO ASSEMBLY LANGUAGE PROGRAMMINQ — 

BK1177 — by Lance A. Leventhal. This book thoroughly 
covers the Z-80 instruction set. abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage Features include Z&O 1/0 devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure 116 99 ' 

A NEW PROGRAMMING SERIES 



• 6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING- BK1215-by Andrew 3 Staugaard. 
Jr Getting involved with Tandy's new Coior Compute''' 
If so. this new book from the BNtksbu'g Group will 
allow you to eipioit the awesome power of the 
machine's 6809 rnicroprocessor (Detailed intormalion 
on processor architecture, addressing modes, register 
operation, data movement arithmetic logic opera 
lions, I'O and interlacing is provded. as well as a 
review section at the end of each chapter Four appen- 
dices are included covering the 6809 instruction sel 
specilicalion sheets of the 6809 family ol processors, 
olhei 6800 series (equipment and the 6809/6621 
Peripheral Interfact Adapter This Book is a must 'or 
Ihe serious Color Computer owner J13 95 ' 



Th« Microprocassor Sottwara Englna«r)ng Sarlas by 
John Zarrella provides connmon sense descriptions of 
advanced computer system topics for engineers, pro- 
grammers and developmerit managers. Each volume is 
a self-contained review of a software engineering 
topic, explaining fundamental concepts In easyto-un- 
derstand language and describing sophisticated soft- 
ware tools and techniques. Detailed glossary ol 
technical jargon is included in each volume This 
series will help you find the solutions to your software 
problems 



• SYSTEM ARCHITECTURE-SK1195 -P-esents a 
detailed overview o' advanced computer system 
design including object architecture and capability 
based addressing 19 95' 

• WORD PROCESSING AND TEXT EDITING-- BK 1 194 

— Provides a iirm basis for undersiandirig wotd pro 
cessing lermmology and lor comparing systems 
S7 95 ■ 

• OPERATING SYSTEMS: CONCEPTS AND PHINCI 
PLES BK1193 Presenisanoverviewol the basic op 
e'ating systern i/oes their components and capab'i 

!ies 17 95 ■ 



ALL NEW— FOR 80 OWNERS 



ENCYCLOPEDIA FOR THE TRS-80*' is 

the newest periptieral tor your mjcro- 
compuler. This ten-volume reference 
series contains progratris and articles 
especially selected to extend the docu- 
mentation that comes with the TRS-80. 
Volumes ot the Encyclopedia are being 
issued one-al-a-time, approximately six 
weeks apart. This means that each new 
volume wilt reflect the latest develop- 
ments in TRS-80 microcomputing. 
Encyclopedia for the TRS-SO is avail 
able in two editions. The deluxe 
COLLECTOR'S EDITION has a hand- 
some green and black hard cover with a 
dust jacket, A soft cover edition is also 
available. 

To order single hard cover volumes of 
the Encyclo(Mdla please specify: 
Volumel EN8101 $19.95* 

Volume 2 EN8102 $19.95' 

Volume3(avail Nov,) EN8103 J19.95* 
Volume4(avail Jan ) EN8104 $19.95' 
Volume 5 (avail Feb) EN8105 $19.95* 
To order single softcover volumes of the 
Encyclopedia please specify: 



ENCYCLOPEDIA FOR THE TRS-80* 










Volume 1 
Volume 2 
Volume 3 
Volume 4 
Volume 5 



EN8081 
EN8082 

tavail. Nov.)EN6083 
(avail. Jan.) EN8084 
(avail. Feb,) EN6085 



$10.95* 
$10.95* 
$10.95* 
$10.95* 
$10.95* 



SPECIAL INTRODUCTORY OFFER 

Order the entire set (the first ten 
volumes) of the Encyclopedia tor the 
TRS-80 and receive the tenth volume 
FREE! 

10 Volume deluxe hard cover 
COLLECTORS EDITION-a $199.50 
value. 

EN8100 $164.00 postpaid 

10 Volume soft cover edition, a $109,50 
value, 

ENS080 $83.00 postpaid 



ENCYCLOPEDIA LOADER is the soft- 
ware companion to the Encyclopedia 
for the TRS-80, This special series ot 
cassettes will allow you lo load select- 
ed programs from the Encyclopedia in- 
stantly. Hours of keyboarding time and 
the aggravating search for typos is 
eliminated by using the Encyclopedia 
Loader. 

Encyclopedia Loader for Volume 1 of the 
Encyclopedia for the TRS-80 is avail- 
able at a Special Introductory Price of 
$12.95 {a $14,95 value). To take advan- 
tage of this otter specify: 

EL800110 $12.95* 

Additional Encyclopedia Loaders will 
be available as each volume of the 
Encyclopedia for the TRS-80 is issued. 
To order specify Encyclopedia Loader 
torVolume2 EL8002 $14.95* 

for Volume 3 EL8003 $14.95* 

for Volume 4 EL8004 $14.95* 

for Volume 5 ELBOOS $14.95* 



*"TRS-80 IS a trademark of Radio Shack 
division ot Tandy Corp 



■UseinsofdBr caro m the Dac" of this magazine or itemize your order on a separate 
Diece of paper and mail to 80 Microcompuimg SooKshelt ■ Peterborough NH 03456 
Be sure to include cheCK or detailed credit earn information 



No CO 0. ord«i8 accepted All above add Si 50 handiina Please allow 4-6 weeks 
tor delivery. Questions regarding your order? Please write Customer Service al the 
above address 
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FOR TOLL FREE ORDERING CALL 1-800-258-5473 
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• UNDERSTANDING AND PROORAMMING MICRO- 
COMPUTERS— BK7382-A valuable addirion lo your 
computing library This Iwo-Da'l tent includes Ihe best 
articles Ihat have appeared m 73 and Kilobaud 
MicrocoTipuling magazines on the hardware and soft 
ware aspects ol microcomputing Well-known authors 
and well-struclurad text helps the reader gel involved 
S10 95- 

• SOME OF THE BEST FROM KILOBAUD MICROCOM- 

PUTINQ— BK731 1 —A collection ol the best arlicies that 
have appeared in Kilobaud MICROCOMPUTING Includ 
ed IS matecial on the TRS-flO and PET systems, CP/M, the 
SOeOIB066!Z-SO chips, the ASR-33 terminal Data base 
management, word pcocessing, text edilprs and file 
structures ace covered too. Progfammmg techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interlaces and TVTs are 
also included in this large format. 200 plus page edition 
J10.95 • 



oe>N 



• rOUR FIRST C0MPUTER-BKi191-by Hodnay 
Zaks Whether you are using a computer, thinking 
about using one or considering purchasing one. this 
booK IS indispensable It eiplams what a computer 
system is. what it can do. how rl works and how to 
select various components and peripheral units It is 
written m everyday language and conlams invaluable 
information for the novice and the experienced pro- 
grammer (The first edition of this book was published 
under the title 'An Introduction to Personal and 
Business ComDulmg" ) 17 %^' 

• MICROPROCESSOR INTERFACING TECHNIQUES 

— 8K1037 — by Austin Lesea & Hodnay Zaks-will 
teach you how to interconnect a complete system and 
interlace It to all the usual peripherals It covefs hard- 
ware and software skills and techniguea, Includinc the 
use and design ol model buses such as the IEEE 488 or 
S1X.$1595 ■ 



• HOBBY COMPUTERS ARE HEH^-BKJ322-lf you 
want to come up to speed on how com^'uters work 
hardware and software this is an encOJIent book It 
starts with fundamentals and explairis the circuits and 
the basics ol programming, along wilh a couple of TVT 
construction projects. ASCII Baudot, etr This book has 
the highest recommendations as a lescfting aid J4.95.' 

• THE NEW HOBBY COMPUTERS- BK7340-This 
book lakes It from where HOBBY COMPUTERS ARE 
HERE' leaves off, with chapters on Large Scale Integra 
tion. how to choose a microprocessor chip.'an iniroduc 
tion lo programming, low cost I/O for a computer, com- 
puter arithmetic, checking memory Ijoards and 
much, much more' Don't miss this tremendous value' 
Only S4 95 ■ 

• AN INTRODUCTION TO MICROCOMPUTERS. VOL, 
— BKl 130 — The Beginner's Book — Written (or readers 
who know nothing about computers — for (hose who 
have an interest in how lo use computers — and tor 
everyone else who must live with computers and 
should know a little about them The first m a series o( 
4 volumes, this book will eiplain how computers work 
and what they can do Computers have Ctecome an m 
tegral part ol lile and society During any grven day you 
are affected by computers, so start learning more 
about them with Volume $7 95 " 

• VOL. l-BK1030-2nd Edition complataly isvissd 

Dedicated to the basic concepts of microcomputers 
and hardware theory The purpose ol Volume I is to 
give you a Ihorough understanding o( what microcom- 
puters are From basic concepts (which are covered in 
detaitj. Volume I builds the necessary components ol a 
microcomputer syslem This book highlights the dif 
terence between minicomputers and microcomputers 
1 1 2 99 • 

• VOL II-BK1040 (with binder)- Contains descnp, 

lions of individual microprocessors and support 
devices used only with the parent microprocessor 
Volume II describes all available chips 131 99' 

• VOL, lll-aKtl33 (with Dinderj-Conlains descrip- 
tions of all support devices that can be used with b-'v 
microprocessor $21 99" 




• TRS80 DISK AND OTHER MYSTERIES-BK1181- 
by Harvard C Pennington This is the definitive work 
on the TRS-80 disk system. It is full ot detailed "How 
lo" information with examples, samples and m-depth 
explanations suitable for beginners and professionals 
alike. The recovery of one lost lile is worth the price 
alone. S22.50 * 

• MICROSOFT BASIC DECODED AND OTHER 

MYSTERIES— BK1186-by Jamas Farvoui. From the 
company that brought you TRS-90 DISK AND OTHER 
MYSTERIES'. Contains more than 8500 lines ot com- 
ments lor the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
wilh assembly lanouage routines showing how to use 
them. FlowcKarta for all major routines give the reader 
a real Insight into how the interpreter works. S29.50. 



—SPECIAL INTERESTS— 



• THE CUSTOM TRS-SO AND OTHER MYSTERIES— 

BK1218 — by Dennis Kits;. More than 300 pages ol 
TRS-80 customizing inlormation With this book you'll 
be able to explore your computer like never before 
Want to turn an B track into a mass storage unit'' In- 
dividual reverse characters? Replace the BASIC 
ROMs? Make Music? High speed, reverse video, Level I 
and Level l|7 Fix it if il breaks down'' All this and much, 
much more. Even if you have never used a soldering 
iron or read a circuit diagram, this book will teach you 
how! This LS the definitive guide to customizing your 
80! $29.95 • 

• BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— BK1221 —by LewJS Rosenfelder. Vou dont 
have to learn assembly lariguage to make your pro 
grams run last With the dozens ol programming tricks 

and techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands lo BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore (he power ol USR calls S29 95 ' 

• THE CPfM HANDBOOK (with MP/M)-8K1 )87-by 
Rodnay Zaks A complele guide and reference hand- 
book for CP/M — (he industry standard m operating 
systems Step-by-siep instruction (or everything Irom 
turning on the syslem and inserting the diskette lo cor- 
rect user discipline and remedial action for problem 
situations This also includes a complete discussion 
of all versions of CP(M up to and including 2 2 MP;M 
and CDOS. $14.95*. 

• INTRODUCTION TO TRS-80 GRAPHICS- BK1180- 

by Don Inman Dissatisfied with your Level I or Level II 
manual's coverage o( graphics capabiiides'' This well 
Structured twok (suitable (or classroom usel is ideal 
tor (hose who want to use all the graphics capabilities 
built into the TRS-80 A tutorial method is used with 
many demonstrations It is based on the Level I, but all 
material is suitable for Level II use SB. 95 " 




• TOOLS & TECHNIQUES FOR ELECTRONICS- 

aK734B— by A A Wicks is an easyto-undersland book 
wntlen for the beginning kit builder as well as the ex- 
perienced hobbyis! II has numerous pictures and 
descriptions ol the sate and correct ways to use tiasic 
and specialized tools for electronic projects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops $4 95 ' 

• HOW TO BUILD A MICROCOMPUTER— AND REALLY 
UNDERSTANDIT— BK7325 — bySamCreason Ttwelec 
Ironies hobbyist who wants to build his own microcorrv 
puler system now has a practical ' How-To " guidebook 
This Ixiok IS a combination technical manual and pro- 
gramming guide that takes the hobbyist step- by step 
through the design, construction, testing and debugging 
of a complete microcomputer system. Must reading tor 
anyone desiring a true understanding ol small computer 
systems. $9.95." 



'Use the order card in the back ol this magazine or itemize your order on a separate 
piece ot paper and mail lo80 Microcomputing Bookshelf • Peterborough NH 03458 
Be sure to include check or detailed credit card information 



No C D orders accepted All above add $1 SO handling Please allow 4-6 weeks 
for delivery Ques'ions regarding your order'' Please write Customer Service at the 
above addres3 




FQR TOLL FREE ORDERING CALL 1 -800-258^5473 



"RlCtS SUBJECT TO CHAFyGE WITHOUT NOnC£ 





still have storage problems? 

Fully TRS-80® Compatible 

(Model I or III] 

Disk Drives 

Model B/51 250K, 1 Side, 40 Tracks $321.00 

B/52 500K, 2 Sides, 40 Tracks per side $439.00 

B/91 500K. 1 side, 80 Tracks $439.00 

B/92 1 Meg, 2 Sides, 80 Tracks per side $590.00 

Includes: Case and Power Supply - Fully Tested 

10 Day Money Back Guarantee 

90 Days Parts and Labor Warranty e.. s-m) 

Here's just a few of the 
features of our Disk Drives 



Oth«rfMon«y Sivtno« Opportunities Order by Plione Of Mill 



CABU* 



THS-80 



2 Drive CablS 
4 Drive Cable 

DMWHM 



S29.00 
«39.00 



Verbatim 10forS31.00 

Syncom 10 for 135.00 

Plastic File Box 13.95 

OpTallr>g Syrtemt 

TRSDOS2.3 . , $14.95 

40Track Patch «9 95 

NEWDOS-t- 
40 Track 



16K Model III (899.00 

4eK Model III 

w/2 Disks S1900.00 

Expansion Interlace 

OK «274.00 

Printers 



Newdos 80 
TRSDOS Manual 
Super Utility. 



$99,00 

SI 39.00 

S5.95 

S49.00 



Make 80 »14.00 



Centronics 737-1 $815.00 
IDS460 . S1219.00 
Epson MX80 5550.00 
Oltidata M80 $499.00 
Microline82 $650.00 
MicrolineBS $950.00 
Okidala prices include tiactors 
NEC Spmwriter 5530 
(freight collect) $2579.00 
16K Memory K iU 

Prime NEC 200ns dynamic 
RAM Comes with complete 
instr uctions . $39.00 

MPI Service 

Manual $3.00 

MPI Engineering 

Manual $30.00 



40/80 Tracks " Speed constant d %% 

Auto-eject • Single/double density 

Hi-Temp stability • Optical sensors-no switches 

ADDS MORE POWER TO YOUR SYSTEM 

Save time . . . Order by phone 

Orders only: 1-800-621-3229 

Information: 312-987-1024 

Tech. assistance: 312-987-1032 



(Tl 



F 



MIDWEST 



COMPUTER 
PERIPHERALS'' 



^> 



1467 S MICHIGAN 
CHICAGO, ILLINOIS 60605 



TBS eo TANOV CO"P 



mf E! UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Ouwitity 


Descnprion 


seach 


Total 




















































iMinirTium order SSO.OOI 


6% IL Tax 
TOTAL 









n Cf>eck enclosed 
Bill my I ' Visa Z] Am Ex 
D Master Charg« 
Acct No 



Name 

Address _ 
City 



Not <tMccMib>« Iw TTPoononicai Enon PiicM SuMtCt W Cn«no« ■ o not-c* 



^B E3 H 



E«p. 



_ State. 



.Z.p. 
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WE ARE MOVING TO 
LARGER QUARTERS! 

Thank you . . . 

... for making our expansion possible and 
helping make us the leading distributor 
of microprocessor systems, terminals 
and printers. 

We are showing our appreciation by 
producing a special catalog with thousands 
of items at greatly reduced prices. 
Call or write today. 

Help us move our inventory before we have 
to move it. 



MiniMicroMart, Inc. 

943 W.Genesee St. 

Syracuse, New York 13204 

(315)422-4467 



OCTOBER 
SPECIALS 

FOR THE 

TRS-80 



iT.M. 



Percom 

The Doubler II 

Plug into your expansion interface 
and double the data storage capa- 
city of your diskettes. Reads, writes 
and formats either single or double 
density diskettes. Runs TRSDOS, 
NEWDOS+ or Percom OS-80. In- 
cludes operating software. 
Cat no. 2971 $159.95 



Disk 

Protector Cases 



" H^lds up to 50 diskettes 

* Durable hi-impact plastic, 
w/index tabs 

*.iAttractively styled smoke grey 
\color 

* Perfect for home or office 
Cat No. 2956 for 5V4" diskettes 

$24.95 
Cat No. 2957 for 8" diskettes $29.95 




16K Memory 
up-grade $29 ea. 

Everything you need to up-grade 

your Model I, Model III or Color 

Computer. Complete with RAM's, 

jumpers and instructions. 

Cat. No. 1156 Mod. I keyboard & 

Mod III unit 

Cat No. 1156B For Expansion unit 

Cat No. 3133 4K to 16K Color 

Computer up-grade. 



Percom 

Data Separator 

Virtually eliminates data read errors 
with your cassette recorder. In- 
stalls in your expansion interface 
without modifications. 
Cat No. 2972 $27.95 



HOW TO ORDER 

Write or phone. Mention this ad and WE PAY UPS GROUND shipping & handl- 
ing {USA only). Pay by check, M/C, Visa or COD. (COD $1.40 addl). Offer 
expires Nov. 1, 1981. 




1 



ELECT770N/C5 



19511 Business Center Dr., Dept. V-10 Northrldge, CA 91324 
(800) 423-5387 (Outside Calif.) (213) 886-9200 (In Calif.) 
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Why use their flexible discs: 

Ampex, Athana, BASF, Caelus, Control Data, Dysan, 

IBM, Inmac, K-Line, Maxell, Nashua, Scotch, 

Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

lot as low as $1.99 each? 

Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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Memorex Flexible Discs.. .The Ultimate in Memory Excellence 



Quality 

Memorpfl -neans quality p'odjcls !hal you can depend on 
Quality control al Memorex means slariing wilh the best 
materials available Continual surveillance throughout the 
snhre manutaclu ring process. The benefit of Memoreii's years 
ot experience m magnetic meOia produclion, resulting, for 
instance, in proprietary coating formulations The most sophis- 
licaled testing procedures you'll find anywhere in (he business. 

100 Percent Error Free 

Eacfi and euery Memorei Flexible Disc is certified to be 100 
percen! error (ree Each tracii Of eacrt flexible disc is tested, 
mdrvidually. To f^emofex's slnngenf standards of excellence 
They test signal amplitude, resolution, low-pass moOuialion, 
ovenKrile, missing pulse error and extra pulse error They are 
torque-tested, and competitively tested on drives available 
from almost every maioi drive manufacturer in the industry 
including drives that Memorei manufacturers. Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result ir a standard of excellence that 
assures you, our customer, of a Quality product designed tor 
increased data reliability and consistent top performance 

Customar-Oriantad Packaging 

Memorexs commitment (o excellence does not stoo with a 
Quality product. They are proud of their flexible discs and they 
package them with pride Both their packaging and their 
labeling have been designed with your ease of identification 
and use m mmd. The desk-top box containing ten discs is 
convenient tor filing and storage. Both box labels and lacket 
labels provide full information on compatibility, density, sec- 
toring, and record length. Envelopes with multi-language care 
and handling instructions and color-coded removable labels 
are included. A wiile-protect feature is available to provide 
data siicurity 

Full One Yaar Warrantv — Vout Assuranca of Quality 

Meno'(i> Fieiibip Discs will be rep deed "ree of Charge by 
f^emore" it they are found !o be defective m materials or 
workmanship within one year of ihe dale of purchase Other 
than replacement, fviemorex will not be responsible for any 
damages or losses (including consequential Damages) causeo 
by the use of f.^emorex Fleiible Discs 



Quanlily Discounts Available 

Memorei Flexible Discs are packed l discs lo a carion and 
10 cartons to a case Please order only in increments of 1 00 
units fo: quantity lOO pricing We are al30 willing to accom- 
modate your smaller orders Quanblieslesslhan 100 units are 
available m increments of 10 units al a 10% surcharge 
Quanttty discounts are also available. Order 500 or more 
discs at the same time ana deduct 1%; 1 .000 or more saves 
you 2%, 2.000 or more Saves you 3%; 5,000 or more saves you 
5%, 10,000 or more saves you 7%; 2 5,000 or more saves you 
8%: 50.000 or more saves you 9% and 1 00,000 or more discs 
earns you a 10% discount oft our super low quantity 1 00 price 
Almos! all Memorex Flexible Discs are immediately available 
from CE Our warehouse (acilitiesare equipped lo help us get 
you Ihe qualify product you need, when you need it If you need 
further assistance to find the flexible disc thai's right for you, 
call the Memorex compatibility hotline Dial SOO-533-8O80 
and ask for the '(e«iWe disc fiofdne extension 0997 inCalilorma 
dial 800-672-3525 extension 0997 

Buy with Confidence 

Toget the fasiest delivery from CE of your Memorex Flexible Di5Cs 
send or phone your order directly to our Computer Producis 
Division Be sure lo calculate your price using the CE prices ir ihs 
ad Ivlichigan residents please add 4% sales tax. Wnlten purchase 
orders are accepted from approved government agencies and 
most well rated firms al a 1 0% surcharge for net 10 hilling. All sale; 
are subject lo availability. All sales are final. Prices, terms and 
specifications are subject lo change without notice. Out o' atoLk 
Items will be Diaced on Dackorder automatically unless CE is 
instructed differenlly Internationalcrdersare invited with a S20 00 
surcharge for special handling m addition loshioping charges All 
shipmenisare FOB Ann Arbor, Micnigan No CODs please Non- 
certified and loreign checks require nanh clearance 

Mail orders to- CommunicBtionl Electronics Bo. 1002 An,T 
Amor, MichiganaaiOeUS A. AddSaOOpercaseoroartial-caseo' 
1 00 e-inch fliscs or 16.00 per case ol 1 00 5".-inch mini-discs lor 
UPS around shippingand handling in the cont mental U.S A If you 
have a Master Charge orVisa card, you maycall anytime and place 
a credit carij order O'dar toll-fraa m the United States Call 
anytime 800-521 -14 M if you are oiitside the U S. o'lh Michigan 
dial 313-394-4444 Dealer inquiriaa invltad All order lines at 
Communications ElBdlronics aie Mallen lA hours. 






VISA 



Order Toil-Free! 
(800) 521-4414 




For Data ReliabJItty — Memorex RexIMe Dtscs 



e 



.4 

COMMUNICATIONS 
ELECTRONICS" -^« 



Copyrighl -1981 Cc 



, Electronic*" 



Computer Products Division 

854 Phoenix ::d Box 1002 D Ann Arbor, Michigan 481 06 U S,A, 
Call T0L1,-FR£E (8001 521 -4414 or outiiO* U.S.A. (313) 8&4-4444 
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If you can beat these prices, 
you must ha^ a brother-in-laMf 
the business. 



16 K RAM KITS 

N£C4I16200ns 

DIP SHUNTS I FDR KEVBOARO MEM UPGRADE' 

TRS-80 MOD I HARDWARE 



PERCOM DATA SEPARATOR 


27 


PERCOMOOUBLER 


159 


DOUBLE ZAP II flOICONVffiTSNO.eOTDDO ) 


45 


MPI -10 TRACK DISK DRIVE [6-511 


299 


SHUGART 40 TRACK DISK DRIVE (400L) 


299 


MP'BOIRACK DISK DRIVE [B-9') 


429 


TAf^DONeo IRACK DISK DRIVE 


429 


TAMOOfJ 40 TRACK DISK DRIVE 


299 


LNW DOUBLER WITH DOSPLUS 3 3D 


159 


PERCQMSPEAK-?WE-2 


64 



TRS-80 SOFTWARE 



1795 
4 00 



95 



LAZV WRITER MODI 


125 00 


PROSOFT MOD 1 III 


79 00 


SPECIAL DELIVERY (VAIL LISI PftOGi MOD 1 HI 


11900 


X TRA SPECIAL DELIVERY (VAIL LIST PROG) 


199 00 


TRACKCE5SM0DI 


24 95 


OMNITERM SMART TERMirjAL PKG MOD 1 III 


89 95 



PRINTERS 

ANADE)(DP9000 . ... 1195 00 

ANADEXDP9001 ... . 1195 00 

AfJAOEXDP950Q , , 1295 00 

ANADEXDP9501 .._. 1295 00 

CEr4TRONICS739 765 DO 

C-nOH 25 GPS PARALLEL . 1440 00 

C-(rOH35CPSS£RIAL 149500 

C-ITOH 45 CPS PARALLEL U70 00 

C-ITOH 40 CPS SERIAL 1870 00 

C-ITOH TRACTOR OPTIOrj U5 00 

EPSON MX-80 . , ,. SCALL 

EPSOrjMX-BOF/T SCALL 

EPSONMX-100F/T jCALL 

)DS-445G PAPER TIGER 795 00 

IDS-460G PAPER TIGER !,, 1149 00 

IDS-560G PAPER TIGER 1495 00 
INFOSCRIBE 500 9X9,150 CPS 

(TI-BIOREPLACEMEMT) ... 1495 qo 

MALIBU 165 PARALLEL PRINTER . , . , 2995 00 

MALteu 200 DUAL MODE .... 2995 00 

NEC SPINWRITER 5510 SERIAL RO 2595 00 

NEC SPINWRtTER 5530 PARALLEL RO 2595 00 

NEC SPINWRITER 5500 □ SEILUM OPTION 2795 00 

NEC SPINWRITER 3500 SELLUM OPTION 2195 00 

OKIDATA MICROLINE BO 399 00 

0KIOATAMICR0LINEe2 .... 599 00 

OKIOATA MICROLINE 83 795 00 



MODEMS 

NOVATION CAT ACOUSTIC MODEM '45 00 

NOVATION 0-CAI DIRECT CONNECT MODEM 155 00 

NOVATION AUtO-CAT AUTO ANSWER MODEM 229 00 

JDS 'OSLP DIRECT CONNECI MODEM 175 00 

LEXICON LK-M MODEM '1500 



DISKETTES 

MD 525-01 10 16 26 50 

MD 550-01 10 16 44 50 

MD577-01 10 16 34 80 

M0557-OnQ16 45 60 

FD32OR34-8D0D 45 60 



DISKETTE STORAGE 

5I4" PLASTIC LIBRARY CASE 2 50 

3" PLASTIC LIBRARY CASE 3 50 

PLASTIC STORAGE BINDER WITH INSERTS 9 95 

PROTECTOR 5'4" 34 95 

PROTtCIORB" 3995 



CP/M SOFTWARE 

MICROSOFT BASIC-80 29900 

MICROSOFT BASIC COMPILER 319 00 

MICROSOFT FORTRAN-eO 39900 

PEACHTREE SYSTEMS CALL 

MAGIC WAND (REQUIRES CP'Ml 375 00 

WORD STAR (REQUIRES CP M) 310 00 

MAILMERGE (REQUIRES WORD STAR) 100 00 

SPELLGUARD 23900 

CP 'M PICKLES & TROUT FOR TflS-80 MOD II 175 00 




CORVUS 

TRS-80 MOD I, II 

Conlroller Case/PS , Operating Syslem, AST 

5 Megab/les 

lOMegabyles 

30Megatiytes . , 

MIRROR BACK-UP 



3095 00 

4495 00 

5395 00 

70000 



SPECIALS 



NO 



NO 



NO 



NO 



1 ■ TRS-80 DISK & OTHER MYSTERIES/BOX 

OF DISKS/PLASTIC LIBRARY CASE 44 50 

3 ■ NEWDOS/802 0/BOX OF DISKS/PLASTIC 

LIBfiARVCASE ... .14900 

4 - MICROSOfT BASIC COMPILER/BOX OF 

DISKS/PLASTiC LIBRARY CASE 190 00 



5 ■ MICROSOFT BASIC D & OTHER MYSTERIES/ 
BOX OF DISKS/PLASTIC LIBRARY CASE 49 9& 

NO 6- DOUBLE DENSITY SPECIAL NEWOOS/ 

80 DOUBLE ZAP II BOX OF DISKS PLASTIC 
LIBRARY CASE 309 00 

TANDON 40 TRACK WITH NEWDOS+ ... 32000 



SUPPLIES 

AVERY TABULABLES 

1.0003-1/2x15/16 8.49 

3 000 3-1/3 « 15/16 14 95 

5 000 3-1/3 1 15/16 19 95 

UARCO PAPER (Prices F.O.B, S.P.) 

9-1/2x11 18 It) white , 2900 

14-7/8 « 11 I8lb*ti(te 3900 

We Slock a complele line 9f compuler covers, prinler 
ribbons, prmi wheels & NEC thimfiles. Call us tor your 
needs. 
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We built a reputation on our 
prices and your satisfaction. 

We guarantee everyitimg we sell for 30 days If anylhmg 
IS wrong, lusl return ifie item and we'll matie it nghl 
And. of course, we'll pay Ifie shippirig cfiarges 

We accept Visa and Master Card on all orders COD 
accepted up to $300 00 We also accept school pur- 
chase orders 

Please add $2 00 lor standard UPS stiipping and 
handling on orders under 50 pounds, delivered m ifie 
continenial U.S Call us for shipping charges on items 
thai weigh more Ihan 50 pounds Foreign, FPO and APO 
orders please add 15% for shipping. California res- 
idenisadd6% sales lax 



(213) 883-8594 

31245 La Baya Drive, Westlake Village, California 91362 



CP/M IS a trademark of Digilal Research 



The onces quoled are only valifl to' slock on hantf ^^latl prices are suDiect lo change A'tfiOLit notice 



I 



■jt 




Frustrating isn't it! No matter how 
much you speed up your program 
it stilt seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 
Floppy (ESF) . 

Totally self-contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. Ail of the ESF's operations 
arc under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses a miniature tape 
cartridge, about the size of a busi- 
ness card, called a wai'er. The 
transport mechanism uses p direct 
drive motor with only one moving 
part. Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80, Apple. 
PET. OSI and an kS 232 unit 
Even the slowest of the units is 15 
times faster than a ca' sette, and all 
are as reliable as disk drives - in 
fact a lot of users say tliey are more 
reliable! 




excellence in electronics 

exatron 



To get further information abont 
the ESF give Exatron a call on 
their Hot Line 300-538 8559 
(inside California 408-737 7111). 

If you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Stieet 
Sunnyvale, CA 94086 





1KS-80, Apple anJ PET nv tndccnartK orT«ndy. Apple tnd Comnwdon t«i?ectively. 



